Nom de fichier paramétré

Bonjour tout le monde,

Je voudrais sauvegarder un fichier sous un nom précis.

Pour différentes raisons, ce nom est porté par une variable.

Bon ! Evidemment, ça ne marche pas.

Donc, je soumets un extrait du code que j'utilise pour ce faire, code qui manifestement ne donne pas satisfaction.

[i][size=85]Sub Migration()

Dim MigrCompta As  String

MigrCompta="Arch.Compta_Juillet_2020.xlsm"

ChDir _
"C:\Users\UTILISATEUR\Documents\Budget"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\UTILISATEUR\Documents\Budget\Archives Budget\MigrCompta" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub[/size][/i]

Je remercie toute personne qui voudra bien se pencher sur le bébé.

bonjour,

C'est bien compliqué TOUSSA...

Ou tu mets un ChDir ou tu n'en mets pas. Mais si tu en mets un pas la peine de te répéter.

Si tu mets un string pour ton nom de fichier tu peux pas le mettre dans le SaveAs

Moi, je me casserai pas la tête : Inutile de mettre de ChDir pour rien... Quand aux String je n'y suis pas opposé ...quand c'est utile !

Perso quelque chose comme ça m'irait parfaitement :

Sub Migration()
Dim Chemin As String
Dim NomF As String
Chemin = "C:\Users\UTILISATEUR\Documents\Budget\"
NomF = "Arch.Compta_Juillet_2020.xlsm"

ActiveWorkbook.SaveAs FileName:=Chemin & NomF, _
   FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Nota :Attention au dernier slash "\" dans chemin...

A+