errore nel copiare fogli

[piter123]

Salve, ho crato un file in excel con diversi fogli, ho creato una macro in vb che copia un foglio e ne genera quindi una sua copia identica sempre all'interno del file di excel.
Su alcuni pc funziona tutto bene ma su altri mi dà il seguente errore :

errore runtime 1004
errore nel metodo copy per la classe worksheet
se proseguo e lo forzo con debug e chiusura della parte vb si crea una copia del foglio ma senza copiare i grafici, credo possa dipendere proprio da questo l'errore.

riporto di seguito il codice

NOMEFOGLIO = TextBox1.Text
ATT1 = ActiveSheet.Index
NOMEFOGLIO = "PITER"
ATT1 = ActiveSheet.Index
Sheets(ATT1).Select 'COPIA FOGLIO
Sheets(ATT1).Copy Before:=Sheets(1)
ATT2 = ActiveSheet.Index
Sheets(ATT2).Activate
Sheets(ATT2).Name = NOMEFOGLIO

[Anthony47]

Non lo dici ma immagino che l’ errore sia sull’ istruzione “Sheets(ATT1).Copy etc etc”
Se su alcuni pc funziona e altri no dovresti vedere quale e’ la differenza tra i due gruppi in termine di versione di excel e di vba.
Un ulteriore spunto potresti averlo registrando sui PC dove ora non funziona una macro che duplichi un foglio (con il comando Modifica /Sposta o copia foglio) e cercare eventuali differenze col codice che hai.
Infine potrebbe essere utile inserire prima del Copy qualcosa come

Codice: Seleziona tutto

Range("A1").select

piu' che altro per disselezionare eventuali oggetti attivi.

Btw, il codice e’ semplificabile; ad esempio questo e’ assolutamente equivalente:

Codice: Seleziona tutto

NOMEFOGLIO = TextBox1.Text
'Oppure??
NOMEFOGLIO = "PITER"
Range("A1").select        'vedi testo
Activesheet.Copy Before:=Sheets(1)
Activesheet.Name = NOMEFOGLIO

Ciao, fai sapere come evolve.