Enregistrer un fichier sans macro via vba

[Vilain]

Bonjour à tous,

Je cherche à lancer une macro qui ouvrirait une boite de dialogue (la boite de dialogue classique d'enregistrer sous) permettant de sauvegarder mon fichier. Par défaut je voudrais que le nom de fichier soit vide (et donc à remplir de manière classique) mais que l'option de format de fichier soit en xlsx (du coup sans les macros). Il ne resterait alors qu'à choisir l'emplacement, écrire le nom du fichier et à appuyer sur enregistrer pour que le fichier s'enregistre à l'endroit sélectionné au format xlsx.
Je vous remercie par avance et espère avoir été clair dans ma demande.

Vilain

 

[Roland_M]

Re : Enregistrer un fichier sans macro via vba

bonjour,

Sub EnregistrerSous()
CheminEtFichierEnCours$ = "" ' voir !?
RepFichSVG$ = Application.GetSaveAsFilename(CheminEtFichierEnCours$, fileFilter:="Fichiers Excel (*.xlsx),*.xlsx")
If RepFichSVG$ = "Faux" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=RepFichSVG$, FileFormat:=xlOpenXMLWorkbook
'ActiveWorkbook.Close SaveChanges:=False 'voir ici pour close
End Sub

 

[Vilain]

Re : Enregistrer un fichier sans macro via vba

Bonjour et merci Roland, cela semble correspondre parfaitement à mes attentes. 🙂