Copier une feuille
Bonjour à Tous
Est-ce que quelqu'un aurait un code VBA pour copier une feuille d'un classeur dans un autre classeur déjà ouvert en incrémentant une feuille à chaque copie.
je sèche
merci pour votre aide
Bien à vous
rajac
Bonjour
Mettez ce code dans votre fichier contenant les feuilles à copier et remplacer le nom Classeur2 par le nom de votre fichier de destination
Les deux fichiers doivent être ouverts
Sub test()
Dim nb As Byte
Dim nom as String
nb = Workbooks("Classeur2").Sheets.Count
With ThisWorkbook.ActiveSheet
nom = .Name & "-" & nb + 1
.Copy After:=Workbooks("Classeur2").Sheets(Sheets.Count)
End With
Workbooks("Classeur2").ActiveSheet.Name = nom
End Subsi ok ....->
Cordialement
bonjour
le code bloque sur la ligne "nb = Workbooks("Classeur2").Sheets.Count"
j'ai même crée un "Classeur2"
j'ai mis le code dans nouveau module
je sais pas ,j'ai du louper quelque chose
merci de me renseigner je ne suis pas un pro du VBA
rajac
le code bloque sur la ligne "nb = Workbooks("Classeur2").Sheets.Count"
Je n'ai pas ce souci. J'ai testé le code avant de vous l'envoyer. N'oubliez pas que les deux fichiers doivent être ouverts
Vérifiez que le nom de votre fichier est bien Classeur2 et que vous n'avez pas placé un espace quelque part dans le nom