EXCEL - VBA - enregistrer une feuille excel dans un autre dossier

[airsage]

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.

 

[Pierrot93]

Re : EXCEL - VBA - enregistrer une feuille excel dans un autre dossier

Bonsoir,

sans doute lieu de faire une copie de la feuille avant la sauvegarde :

ActiveSheet.Copy 
ActiveSheet.SaveAs etc....

bonne soirée
@+

 

[airsage]

Re : EXCEL - VBA - enregistrer une feuille excel dans un autre dossier

Bonjour Pierrot93,

ça fonctionne à merveille.

Merci bien.