enregistrement fichier via macro

[Jok]

Bonjour,

J'aimerai prendre le texte d'une cellule comme nom du fichier (auquel elle appatient) afin d'enregistrer ce dernier dans dossier déja existant. Le tout se réalisant automatiquement lorsque l'on ferme le fichier... C'est possible ca ?

Merci pour vos réponses ...

 

[wilfried_42]

Re : enregistrement fichier via macro

Bonjour

essaye ce code à placer dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
dim chem as string, fic as string
chem = Thisworkbook.path ' prendre le dossier du classeur deja existant
' sinon enlever la ' de la ligne suivante et modifier le chemin
'chem = "c:\mesdossiers\excel"
fic = sheets("Mafeuille").range("A1") ' A1 cellule ou l'on trouve le nom du fichier
thisworkbook.saveas filename:=chem & "\" & fic & ".xls"
End Sub