Discussion :

[jbggg]

bonjour,

je souhaite pouvoir enregistrer le fichier excel avec comme nom la valeur d'une cellule du classeur.

j'ai écris ce code

Code :

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

1
2
3
4
5
6
Sub enregistrer_classeur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Worksheets("FicheInformationsTravaux").Range("B8") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub

mais maintenant je souhaiterai que le chemin ne soit pas défini, que l'on puisse choisir où l'enregistrer mais en toujours en concervant le nom.

merci

jb

[aalex_38]

Bonjour,

mais maintenant je souhaiterai que le chemin ne soit pas défini, que l'on puisse choisir où l'enregistrer mais en toujours en concervant le nom.

Pour moi ce n'est pas très clair.

Si tu veux afficher la boite de dialogue enregistrer sous, un exemple ici

[jfontaine]

Bonjour,

Inspire toi de cette réponse
http://www.developpez.net/forums/d81...emin-variable/

[laetitia]

bonsoir jbggg l'ami aalex jfontaine le forum & ".xls" si tu as pas mis l'extension!!

Code :

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

1
2
ActiveWorkbook.SaveAs Filename:=Worksheets("FicheInformationsTravaux").[b8] & ".xls"
Application.GetSaveAsFilename

ou

Code :

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

1
2
ActiveWorkbook.SaveAs Filename:=Worksheets("FicheInformationsTravaux").[b8] & ".xls"
Application.Dialogs(xlDialogSaveAs).Show

a tester???