Boite de dialogue enregistrer sous

  • Initiateur de la discussion Initiateur de la discussion treza88
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

treza88

XLDnaute Occasionnel
Bonjour à tous

Je voudrais ouvrir une boite de dialogue enregistrer sous avec un chemin et un type de fichier par defaut.

mon code est celui ci mais ne fonctionne pas, ce serai trop simple.

Application.GetSaveAsFilename ("C:\Boulot",fileFilter:="Excel Files (*.xls), *.xls")

Si quelqu'un a une idée.

Merci d'avance
 
Re : Boite de dialogue enregistrer sous

Re,

Chez moi, les 2 solutions ci-dessous fonctionnent parfaitement :

Sub test1()
Application.GetSaveAsFilename "C:\Boulot", fileFilter:="Excel Files (*.xls), *.xls"
End Sub

Sub test2()
Application.Dialogs(xlDialogSaveAs).Show "C:\Boulot", 1
End Sub

La boite de dialogue me positionne sur C:\boulot et attend que je saisisse un nom de fichier ...
Peut etre que qqun qui possede Excel 2003 pourrait faire le test pour infirmer ou confirmer le fonctionnement.

Essaye de créer un autre dossier et de refaire le test ...
 
Re : Boite de dialogue enregistrer sous

Merci a vous
Merci Catrice

le code:

Sub test1()
Application.GetSaveAsFilename "C:\Boulot", fileFilter:="Excel Files (*.xls), *.xls"
End Sub

Fonctionne, par contre l'autre je ne sais pas pourquoi il ne fonctionne pas chez moi.
Bon le principale est que j'ai une solution.

Encore merci
 
Re : Boite de dialogue enregistrer sous

Je crois que j'ai dit que c'etait bon un peu trop vite.

J'ai un autre souci quand je click sur le bouton enregistrer de la boite de dialogue elle se ferme mais aucun enregistrement ne c'est produit.

Il y a t il une procedure d'enregistrement a rajouter?

Je ne vois pas pourquoi mais bon!

Si quelqu'un peu m'aider merci.
 
Re : Boite de dialogue enregistrer sous

Bonjour,

Comme son nom l'indique GetSaveAsFilename, recupere le nom d'enregistrement tapé par l'utilisateur.
Il ne reste plus ensuite qu'à traiter le nom de fichier :

Sub test1()
toto = Application.GetSaveAsFilename("C:\Boulot", fileFilter:="Excel Files (*.xls), *.xls")
ThisWorkbook.SaveAs toto
End Sub

Mais pour moi, c'est bizarre que Application.Dialogs(xlDialogSaveAs).Show ne fonctionne pas chez toi...
 
Re : Boite de dialogue enregistrer sous

ok merci je test ça ce soir.

Mais j'ai ressayer :

Sub test2()
Application.Dialogs(xlDialogSaveAs).Show "C:\Boulot", 1
End Sub

Et pas moyen alors je ne sais pas ce qui ce passe mais ça ne fonctionne pas avec mon fichier je ferai egalement un autre essaie sur un classeur vierge.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
95
Réponses
37
Affichages
719
Réponses
20
Affichages
2 K
T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
577
Themax
T
Retour