FaridP
XLDnaute Occasionnel
Bonjour à toutes et à tous,
J'essaie de créer un classeur pour chacune des feuilles de mon document mais les fichiers créés sont vides, je ne vois pas ce qui cloche dans mon code car je suis passé par l'enregistreur de macros, pourriez-vous m'aider ou me mettre sur la voie ?
Merci pour votre aide et bonne fin de journée,
Farid
J'essaie de créer un classeur pour chacune des feuilles de mon document mais les fichiers créés sont vides, je ne vois pas ce qui cloche dans mon code car je suis passé par l'enregistreur de macros, pourriez-vous m'aider ou me mettre sur la voie ?
VB:
Sub CreateFic()
Dim Ws As Worksheet
Dim NomFic As String
Application.DisplayAlerts = False
For Each Ws In ThisWorkbook.Worksheets
NomFic = Ws.Name
Cells.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Test"
ActiveWorkbook.SaveAs Filename:="C:\Test\" & NomFic & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Next Ws
Application.DisplayAlerts = True
End Sub
Merci pour votre aide et bonne fin de journée,
Farid