Faire une sauvegarde "renommée" d'un fichier Résolu/Fermé

Question

Bonjour,

J'aimerais que lorsque je lance une procédure, j'ais une macro qui me permette de sauvegarder mon fichier dans un autre dossier, sans renommer le fichier utilisé.

J'ai tenté avec un SaveAs, mais il me renomme le fichier utilisé.


ActiveWorkbook.SaveAs Filename:="nouveau chemin
ouveau nom de fichier.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Y a-t-il une autre solution?

Merci d'avance

ThauTheme · Answer

Bonjour Geo, bonsjour le forum,

Non il ne te renomme pas le fichier si tu veux pas !
Essaie comme ça :

Public Sub CopieFich()Dim NC As StringNC = "C:\Ton_dossier\Ton_sous_dossier\" & ThisWorkbook.NameThisWorkbook.SaveAs (NC)End Sub

geo3701 · Answer

Je me suis mal exprimé.

Finalement, ce que je veux faire, c'est continuer à travailler avec ce fichier, mais avant de faire tourner mes macros, je veux en créer une copie, automatiquement, dans un dossier d'archive, et en changeant son nom, à savoir ajouter la date du jour...

Je ne sais pas si c'est plus clair comme ça?

ThauTheme · Answer

Bonjour Geo, bonjour le forum,

Code à placer dans le composant ThisWorkbook :

Private Sub Workbook_Open() 'à l'ouverture du classeurDim CH As String 'déclare la variable CH (CHemin d'accès)Dim N As String 'déclare la variable N (Nom)Dim D As String 'déclare la variable D (Date)Dim NN As String 'déclare la variable NN (Nouveau Nom)Dim CO As Workbook 'déclare la variable CO (Classeur Origine)Dim NC As Workbook 'déclare la variable NC (Nouveau Classeur)CH = "C\Archivage\" 'à adapterN = Split(ThisWorkbook.Name, ".")(0) & "_" 'définit le nom N (le nom du classeur sans l'extention + underscore (_)D = CStr(Day(Date)) & "_" & CStr(Month(Date) & "_" & CStr(Year(Date))) 'définit la date D (séparée par underscore (_))NN = CH & N & D & ".xlsm" 'définit le nouveau nom NN avec le chemin completSet CO = ThisWorkbook 'définit le classeur d'origine COCO.SaveAs (NN) 'enregistre sous le classeur d'origineSet NC = ActiveWorkbook 'définit le nouveau classeur NCWorkbooks.Open (NO) 'ouvre le classeur d'origineNC.Close SaveChanges:=True 'ferme le nouveau classeur NCEnd Sub

geo3701 · Answer

Merci,

Tout se passe bien jusqu'à:
Workbooks.Open (NO) 'ouvre le classeur d'origine
"Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet".

J'ai changé "NO" par "CO", pensant que c'est une coquille, mais cela ne fonctionne pas non plus.

Dernier petit effort =D Sinon c'est parfait.

ThauTheme · Answer

Bonjour Geo, bonjour le forum,

Voici le code modifié qui devrait convenir :

Private Sub Workbook_Open() 'à l'ouverture du classeur
Dim CO As Workbook 'déclare la variable CO (Classeur Origine)
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim N As String 'déclare la variable N (Nom)
Dim D As String 'déclare la variable D (Date)
Dim NN As String 'déclare la variable NN (Nouveau Nom)

Set CO = ThisWorkbook 'définit le classeur d'origine CO
CH = "C\Archivage\" 'à adapter
N = Split(CO.Name, ".")(0) & "_" 'définit le nom N (le nom du classeur sans l'extention + underscore (_)
D = CStr(Day(Date)) & "_" & CStr(Month(Date) & "_" & CStr(Year(Date))) 'définit la date D (séparée par underscore (_))
NN = CH & N & D & ".xlsm" 'définit le nouveau nom NN avec le chemin complet
CO.SaveCopyAs (NN) 'enregistre une copie du classeur d'origine en gardant le classeur d'origine ouvert et sans ouvrir la copie
End Sub

geo3701 · Answer

C'est parfait !!

Merci beaucoup

Faire une sauvegarde "renommée" d'un fichier

6 réponses

Discussions similaires