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?
Partager