Bonjour,

J’ai un fichier Excel.

En cliquant sur un bouton je voudrais que ce fichier s’enregistre dans le repertoire \\Fraix01fs01\affaires\Amelioration Continue\Marine\DT\DT en cours, sous un nom de 2 cellules.


J’ai écris :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim MonFichier
MonFichier = Range("E2") & Range("I2") & ".xls"
 
ChDir "\\Fraix01fs01\affaires\Amelioration Continue\Marine\DT\DT en cours"
ActiveWorkbook.SaveAs Filename:=MonFichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Mon fichier s’enregistre sur le bureau dans « Mes Documents » !

Qq’un pourrait m’aider ??

Je vous remercie…