Bonjour,
Je voudrais copier la feuille X du classeur A dans le classeur B, puis enregistrer le classeur B avec la date et l'heure.
Voici le code que j'ai, mais au lieu de copier la feuille X il me copie toutes les feuilles.
Dim MyDate As String
Dim MyPath As String
Dim MyFileName As String
MyPath = "c:\Fichiers\"
MyFileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_"
MyDate = Format(Date, "YYYYMMDD") & "_" & Format(Now, "HHMMSS")
ChDir MyPath
ActiveSheet.SaveAs filename:=MyFileName & MyDate & ".xls"
Merci de votre aide.
Cordialement.
Je voudrais copier la feuille X du classeur A dans le classeur B, puis enregistrer le classeur B avec la date et l'heure.
Voici le code que j'ai, mais au lieu de copier la feuille X il me copie toutes les feuilles.
Dim MyDate As String
Dim MyPath As String
Dim MyFileName As String
MyPath = "c:\Fichiers\"
MyFileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "_"
MyDate = Format(Date, "YYYYMMDD") & "_" & Format(Now, "HHMMSS")
ChDir MyPath
ActiveSheet.SaveAs filename:=MyFileName & MyDate & ".xls"
Merci de votre aide.
Cordialement.
Dernière édition: