OVH Cloud OVH Cloud

Boite de dialogue "enregistrer"

4 réponses
Avatar
JACK 43
Bonsoir,

J'ai associé à un bouton la macro suivante qui ouvre la boite de dialogue
excel "ouvrir".

Sub Bouton6_QuandClic()
Application.Dialogs(xlDialogOpen).Show "c:\utilisat\métédis\*.xls"
End Sub

Je souhaite faire la même chose mais avec la boite de dialogue excel
enregistrer pour possuer les utulisateurs de l'application à utiliser le mêm
répertoire de sauvegarde.

J'ai écrit la macro suivante, mais elle ne fonctionne pas, pourriez-vous
m'aider

Sub Bouton7_QuandClic()
Application.Dialogs(xlDialogSaveAs).Show "c:\utilisat\métédis"
End Sub



MERCI A+

4 réponses

Avatar
isabelle
bonjour JACK 43,

ChDir "c:utilisatmétédis"
Application.Dialogs(xlDialogSaveAs).Show

isabelle

Bonsoir,

J'ai associé à un bouton la macro suivante qui ouvre la boite de dialogue
excel "ouvrir".

Sub Bouton6_QuandClic()
Application.Dialogs(xlDialogOpen).Show "c:utilisatmétédis*.xls"
End Sub

Je souhaite faire la même chose mais avec la boite de dialogue excel
enregistrer pour possuer les utulisateurs de l'application à utiliser le mêm
répertoire de sauvegarde.

J'ai écrit la macro suivante, mais elle ne fonctionne pas, pourriez-vous
m'aider

Sub Bouton7_QuandClic()
Application.Dialogs(xlDialogSaveAs).Show "c:utilisatmétédis"
End Sub



MERCI A+



Avatar
JACK 43
Bonjour,

Cette macro ne donne pas plus de résultat, la boite de dialogue s'ouvre sous
C:

MERCI A+

"JACK 43" wrote:

Bonsoir,

J'ai associé à un bouton la macro suivante qui ouvre la boite de dialogue
excel "ouvrir".

Sub Bouton6_QuandClic()
Application.Dialogs(xlDialogOpen).Show "c:utilisatmétédis*.xls"
End Sub

Je souhaite faire la même chose mais avec la boite de dialogue excel
enregistrer pour possuer les utulisateurs de l'application à utiliser le mêm
répertoire de sauvegarde.

J'ai écrit la macro suivante, mais elle ne fonctionne pas, pourriez-vous
m'aider

Sub Bouton7_QuandClic()
Application.Dialogs(xlDialogSaveAs).Show "c:utilisatmétédis"
End Sub



MERCI A+



Avatar
1yen
Bonjour,
il est possible qu'avec ta version d'excel, le "" final soit obligatoire.
soit :
Application.Dialogs(xlDialogSaveAs).Show "c:utilisatmétédis"


"JACK 43" wrote:

Bonjour,

Cette macro ne donne pas plus de résultat, la boite de dialogue s'ouvre sous
C:

MERCI A+

"JACK 43" wrote:

Bonsoir,

J'ai associé à un bouton la macro suivante qui ouvre la boite de dialogue
excel "ouvrir".

Sub Bouton6_QuandClic()
Application.Dialogs(xlDialogOpen).Show "c:utilisatmétédis*.xls"
End Sub

Je souhaite faire la même chose mais avec la boite de dialogue excel
enregistrer pour possuer les utulisateurs de l'application à utiliser le mêm
répertoire de sauvegarde.

J'ai écrit la macro suivante, mais elle ne fonctionne pas, pourriez-vous
m'aider

Sub Bouton7_QuandClic()
Application.Dialogs(xlDialogSaveAs).Show "c:utilisatmétédis"
End Sub



MERCI A+





Avatar
Francois
Bonjour,

Cette macro ne donne pas plus de résultat, la boite de dialogue s'ouvre sous
C:



Bonjour,

Chez moi XL2000, la proposition d'Isabelle marche comme escompté. Sauf
erreur, tu utilises Win 2000, peut-être problème lié aux "é" dans le
chemin. As-tu essayé avec des noms de répertoire sans caractères
accentués ou en utilisant les noms DOS des répertoires ?

--
François L