Discussion :

[electrons]

Bonjour à toute l'équipe,

J'aimerais sauver mon fichier excel actuel dans 2 répertoires différant sans les ouvrir tout en restant dans ce fichier.
J'utilise le code suivant mais mon fichier actuel (que je sauve au préalable) est fermé et je suis dans le nouveau répertoire avec le fichier créé ouvert.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  ActiveWorkbook.SaveAs Filename:=DirEnregCoor _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

"DirEnregCoor' est du style : "U:\RépertoireA\....\Nomdufichier".


Merci d'avance pour votre solution.

[Igloobel]

Bonjour,

Dans la FAQ tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Chemin As String, Fichier As String
 
Chemin = "C:\Dossier Archivage\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = "NomClasseur_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
 
ActiveWorkbook.SaveCopyAs Chemin & Fichier

ce que tu cherches il me semble ...

Tu dis

A+

[electrons]

Merci pour la réponse, j'étais branché sur le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.SaveAs Filename:=DirEnregCoor _
 '       , FileFormat:=xlOpenXMLWorkbookMacroEnabled,...

En pensant utiliser le 'FileFormat' du stylexlClose....

Mais il est vrai que ta solution est la plus simple.

Bonne journée