copie feuille ds autre classeur

[SYLVAIN]

coucou forum!!!

une petite question avant le we!

comment faire (a l aide d'une macro ) pour selectionner toutes les feuilles d'un classeur x et les copier ds un autre classeur y.
et garder le meme nom pour chaque feuille !!!!

Merci et bon WE.

 

[Jocelyn]

Salut !

Bien que débutant ...

Sub Copy()
Dim Nom as string

For i = 1 To Worksheets.Count
If Sheets(i).Visible = True Then
Nom = Sheets(i).Name
Worksheets(Nom).Copy
End If
Next i
'Fait une copy intégrale. Il ne reste plus qu'à nommer le classeur.

End Sub

Sans l'avoir essayer ...
Dans mon cas à moi, j'aurais aimer pouvoir nommer le wookbook,
et /ou renommer une feuille.

Si quelqu'un à d'autres infos.

Au plaisir.