copier plusieurs feuille et les renommer

[fabien]

Bonjour le forum,

Voici ce que je souhaite créer en vba mais je me heurte à un probleme de "procédure incorrecte de copie des feuille".

je souhaite en effet , d'apres une matrice copier plusieurs onglets et renommer chacun de ces onglets .

le probleme doit être simple mais je n'y arrive pas .

merci de votre aide

fabien

 

[michel]

bonjour Fabien

j'espere que ces quelques informations pourront t'aider . j'ai interprété qu'il s'agissait de copier les feuilles dans le meme classeur :


Sub CopierFeuilleEtRenommer()
Dim Feuille As Variant
Dim X As Byte

Application.ScreenUpdating = False 'option: figer l'ecran pendant le traitement
'exemple :
'copie des Feuil1 & Feuil3 :Sheets(Feuille).Copy
'et place les feuilles copiées à la fin :After:=Worksheets(X)
For Each Feuille In Array("Feuil1", "Feuil3")
X = ThisWorkbook.Sheets.Count 'compte le nombre de feuilles dans le classeur
Sheets(Feuille).Copy After:=Worksheets(X)

'renomme la nouvelle feuille créée
ActiveSheet.Name = "copie " & Feuille
Next Feuille

Application.ScreenUpdating = True
End Sub


bon dimanche
MichelXld

 

[fabien]

Bonjour michel ,

Tu as bien interprété , ça fonctione ...

merci de ton aide

a+

fabien