Discussion :

[marinef]

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…

[DeaD78]

Bonjour,

Tout d'abord, pense aux balises codes. Je sais que ça arrive de les oublier mais je te propose un petit EDIT

Passons maintenant aux choses sérieuses !

Déjà, tu as écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonFichier = Range("E2") & Range("I2") & ".xls"

A mon avis, tu voulais plutôt écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonFichier = Range("E2").Value & Range("I2").Value & ".xls"

Ensuite, pourrais-tu tester pour moi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ChDir "\\Fraix01fs01\affaires\Amelioration Continue\Marine\DT\DT en cours"
ActiveWorkbook.SaveAs Filename:="\\Fraix01fs01\affaires\Amelioration Continue\Marine\DT\DT en cours\" & MonFichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Dis-moi si cela ne marche pas mieux comme cela.

[marinef]

Ca marche!!!
merci bcp..

[DeaD78]

De rien !

Mais mes petites balises, snif Et tant que t'y seras, le petit fait du bien aussi