Bonjour,

Je voudrais en cliquant sur un bouton "officialiser" d'un fichier excel, enregistrer ce même fichier avec un nom spécifique dans un répertoire donné. Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 Dim MonFichier1
        MonFichier1 = "DT " & Worksheets("Saisie").Range("P2").Value & " - Rev. " & Worksheets("Saisie").Range("Q2").Value & ".xls"
 
        ChDir "\\Fraix01fs01\areva\Affaires\DT EN COURS"
        ActiveWorkbook.SaveAs Filename:="\\Fraix01fs01\areva\Affaires\DT EN COURS\" & MonFichier1, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
        Unload MotDePassePM
        MsgBox "Votre DT a été enregistrée dans le fichier DT en cours."
        Unload MotDePasseOfficialiser

Comment faire ce même enregistrement sur le bureau de l'utilisateur?