OVH Cloud OVH Cloud

Copier et renomer une feuille

1 réponse
Avatar
Jacques\(BE\)
Bonjour,

Je coince depuis pas mal de temps sans trouver la raison de l'erreur 1004
sur ces deux lignes ! :-(
Mon fichier xls contient deux feuilles. La première "BASE"(NomFeuilleBase)
et la deuxième "FEUIL1"(NomFeuille)
Ce que je veux faire, c'est copier la feuille "BASE" et ensuite la
renommer. Donc, je copie la feuille "Base" après la feuille "Feuil1" et
ensuite je la renomme


La première ligne (copy) fonctionne.C'est la deuxième ligne qui me donne un
message d'erreur.

With objWorkbook
.Worksheets(NomFeuilleBase).Copy
After:=.Worksheets(NomFeuille)
.Worksheets(Sheets.Count).Name = "027 BUD" & " " &
ResultNo_Quest
End With

Je ne sais pas comment faire pour résoudre ce problème.


Merci de vos réponses


Jacques

1 réponse

Avatar
Phenix21
Bonjour,

Si tu remplaçais
.Worksheets(Sheets.Count).Name = "027 BUD" & " " & ResultNo_Quest

Par
.ActiveSheet.Name = "027 BUD" & " " & ResultNo_Quest

? Je n'ai pas testé...