Bonjour tout le monde,
Avec Excel 2003 j'utilisais ce module VBA qui permet de recopier 4 feuilles autant de fois que je le souhaite juste en changeant la ligne For NBfois :
Sub CopierFeuilles()
Dim NBfois As Integer, Init As Integer, FEnd As Integer
FEnd = 4
For NBfois = 1 To 41 'combien de fois dois-je faire ce travail - 1 car il y'a déja 4 feuilles qui existent
For Init = 1 To 4
Sheets("feuil" & Init).Select
Sheets("Feuil" & Init).Copy After:=Sheets(FEnd)
ActiveSheet.Name = "Feuil" & FEnd + 1
FEnd = FEnd + 1
Next
Next
End Sub
cela fonctionnait sans problème avec Excel 2003.
Maintenant que je suis passé en Excel 2007, lors de l'exécution de ce module VBA j'obtiens ce message d'erreur (voir attaché).
Le problème vient de cette ligne :
Sheets("Feuil" & Init).Copy After:=Sheets(FEnd)
Sauriez-vous m'aider svp ?
Je vous en remercie d'avance.
beegees
Avec Excel 2003 j'utilisais ce module VBA qui permet de recopier 4 feuilles autant de fois que je le souhaite juste en changeant la ligne For NBfois :
Sub CopierFeuilles()
Dim NBfois As Integer, Init As Integer, FEnd As Integer
FEnd = 4
For NBfois = 1 To 41 'combien de fois dois-je faire ce travail - 1 car il y'a déja 4 feuilles qui existent
For Init = 1 To 4
Sheets("feuil" & Init).Select
Sheets("Feuil" & Init).Copy After:=Sheets(FEnd)
ActiveSheet.Name = "Feuil" & FEnd + 1
FEnd = FEnd + 1
Next
Next
End Sub
cela fonctionnait sans problème avec Excel 2003.
Maintenant que je suis passé en Excel 2007, lors de l'exécution de ce module VBA j'obtiens ce message d'erreur (voir attaché).
Le problème vient de cette ligne :
Sheets("Feuil" & Init).Copy After:=Sheets(FEnd)
Sauriez-vous m'aider svp ?
Je vous en remercie d'avance.
beegees