Discussion :

[wyzer]

Bonjour,

Je voudrais savoir si c'est possible de modifier le nom du fichier par défaut lorsque la boite de dialogue "Enregistrer Sous..." s'affiche ?

Comme ça l'utilisateur n'a pas à se prendre la tête à choisir un nom de fichier car je lui en propose un

Merci par avance

[pgz]

Bonjour.

As-tu essayé de renseigner la propriété InitialFileName?

Cordialement,

PGZ

[wyzer]

Ca y est j'ai trouvé :

Code :

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

FichierCible = Application.GetSaveAsFilename("truc.xls")

Et j'ai essayé avec InitialFileName mais ça ne fonctionne pas

Ah bah non c'est pas bon

Je clic sur enregistrer mais il n'enregistre pas

J'ai trouver ça :

Code :

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

1
2
3
4
5
6
7
Dim nomfichier As String, chemin As String
 
nomfichier = Sheets("Feuil1").Cells(2, 4).Value & " - " & Sheets("Feuil1").Cells(2, 8).Value
 
chemin = Application.GetSaveAsFilename(nomfichier, "Microsoft Excel workbook (*.xls), (*.xls)")
 
ThisWorkbook.SaveAs Filename:=chemin

L'enregistrement fonctionne
Mais le soucis c'est qu'il m'affiche toujours mon modèle, et non le nouveau fichier

[julio44]

Il te faut juste rajouter des guillemets autour de nomfichier, soit :

Code :

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

1
2
3
4
5
6
7
Dim nomfichier As String, chemin As String
 
nomfichier = Sheets("Feuil1").Cells(2, 4).Value & " - " & Sheets("Feuil1").Cells(2, 8).Value
 
chemin = Application.GetSaveAsFilename("nomfichier", "Microsoft Excel workbook (*.xls), (*.xls)")
 
ThisWorkbook.SaveAs Filename:=chemin

[wyzer]

Merci !!!!