O
Olive33
Guest
Bonjour,
Après pas mal de recherches vaines, je pose ma question sur une nouvelle discussion.
Je cherche à ce que ma macro copie des feuilles du classeur (à compter de la huitième) existant vers un nouveau classeur créé à cet effet.
Quand je le fais feuille par feuille, pas de souci. Mais quand j'essaie de le faire avec une boucle, afin que pour toute nouvelle feuille créée, cela soit pris dans le spectre, la macro est lue (pas de bug), un nouveau classeur est bien créé mais rien n'est copié.
Quelqu'un aurait-il une idée ?
Je vous en remercie par avance.
Olive33
PS : ci-dessous la maco avec la boucle en question
Sub EditAUDITE_Excel()
CESAR = ActiveWorkbook.Name
Workbooks.Add
ActiveWorkbook.SaveAs CESAR & "_format-audite.xlsx"
Audite = ActiveWorkbook.Name
For i = 8 To Sheets.Count
Workbooks(CESAR).Sheets(i).Copy Before:=Workbooks(Audite).Sheets(1)
Next i
End Sub
Après pas mal de recherches vaines, je pose ma question sur une nouvelle discussion.
Je cherche à ce que ma macro copie des feuilles du classeur (à compter de la huitième) existant vers un nouveau classeur créé à cet effet.
Quand je le fais feuille par feuille, pas de souci. Mais quand j'essaie de le faire avec une boucle, afin que pour toute nouvelle feuille créée, cela soit pris dans le spectre, la macro est lue (pas de bug), un nouveau classeur est bien créé mais rien n'est copié.
Quelqu'un aurait-il une idée ?
Je vous en remercie par avance.
Olive33
PS : ci-dessous la maco avec la boucle en question
Sub EditAUDITE_Excel()
CESAR = ActiveWorkbook.Name
Workbooks.Add
ActiveWorkbook.SaveAs CESAR & "_format-audite.xlsx"
Audite = ActiveWorkbook.Name
For i = 8 To Sheets.Count
Workbooks(CESAR).Sheets(i).Copy Before:=Workbooks(Audite).Sheets(1)
Next i
End Sub