Bonjour,
je cherche à copier les feuilles d'un vieux classeur vers un nouveau
le problème c'est que je voudrais ignorer la copie de la feuille si elle n'existe pas dans le classeur source.
merci pour votre aide
je cherche à copier les feuilles d'un vieux classeur vers un nouveau
le problème c'est que je voudrais ignorer la copie de la feuille si elle n'existe pas dans le classeur source.
Code:
sub copie()
'ouverture et déclaration variable pour ancien et nouveau classeur (OK)
...
'copie des feuilles 1 à 6 mais parfois l'une d'elle n'existe pas!!!
Dim n As Byte
For n = 1 To 6
'copie
Windows(ancien).Activate
Sheets("Feuil" & n).Select
Range("B2:D20").Select
Selection.Copy
Windows(nouveau).Activate
Sheets("Feuil" & n).Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End sub
merci pour votre aide
Dernière édition: