Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Faire apparaitre la boite de dialogue "enregistrer sous" à partir d'un bouton d'un formulaire

16 réponses
Avatar
Bobby
Bonjour =E0 tous!

J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" =E0
partir d'un bouton de mon formulaire.
Le code que j'ai attribu=E9 =E0 ce bouton est le suivant :

Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name =3D "*.txt"
.Show
End With
End With

Cela ne fonctionne pas...

Quelqu'un aurait-il une id=E9e?

D'avance merci!

10 réponses

1 2
Avatar
Bobby
petite rectification mon code se termine bien par un "end sub" et non
par "end with"...

Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End Sub



Bonjour à tous!

J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :

Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With

Cela ne fonctionne pas...

Quelqu'un aurait-il une idée?

D'avance merci!


Avatar
Geo

Bonjour à tous!

J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :

Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With

Cela ne fonctionne pas...


C'est à dire ?
la boite s'affiche ?
Dans ce cas essayez de remplacer show par

--
A+

Avatar
Bobby
Bonsoir Geo,

La boite ne s'affiche pas avec mon code. Il ne se passe rien, pas de
message d'erreur, pas de boite de dialogue.
Tu me proposes quoi? Je n'ai pas compris...
A+



Bonjour à tous!

J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :

Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With

Cela ne fonctionne pas...


C'est à dire ?
la boite s'affiche ?
Dans ce cas essayez de remplacer show par

--
A+



Avatar
JièL
Bonjoir(c) Geo

Le 26/08/2006 19:10 vous avez écrit ceci :
Dans ce cas essayez de remplacer show par


...froid ? ;-)))))))

JièL show et froid

Avatar
Bobby
Hello JièL!

Si cela pouvait être si simple... :-)



Bonjoir(c) Geo

Le 26/08/2006 19:10 vous avez écrit ceci :
Dans ce cas essayez de remplacer show par


...froid ? ;-)))))))

JièL show et froid



Avatar
Anacoluthe
Bonjour !

'Bobby' nous a écrit ...
Si cela pouvait être si simple... :-)


JièL voulait sans doute dire de mettre plus froid ...
le niveau de sécurité : votre code est bloqué.
Changer Show par Display : ni chaud ni froid.

Anacoluthe
« L'amour, c'est comme le potage : les premières cuillerées
sont trop chaudes, les dernières sont trop froides. »
- Jeanne MOREAU

Avatar
Bobby
Bonsoir Anacoluthe,

J'avais testé également le Display à la place de Show, mais ça ne
fonctionne pas...
Avatar
Anacoluthe
Bonjour !

'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne
fonctionne pas...


Oui c'était prévisible. Votre code Show est en effet correct.

S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit
ou que votre bouton est encore en mode création, ou que
vous ne l'exécutez pas dans Word...

Anacoluthe
« L'amour, c'est comme le potage : les premières cuillerées
sont trop chaudes, les dernières sont trop froides. »
- Jeanne MOREAU

Avatar
Bobby
mon code n'a pas l'air d'etre bloqué, puisque mes autres boutons
fonctionnent...
je ne suis pas en mode creation...
bon...
la nuit porte conseil comme on dit!
merci en tout cas


Bonjour !

'Bobby' nous a écrit ...
J'avais testé également le Display à la place de Show, mais ça ne
fonctionne pas...


Oui c'était prévisible. Votre code Show est en effet correct.

S'il ne s'exécute pas c'est que le code est bloqué comme j'ai dit
ou que votre bouton est encore en mode création, ou que
vous ne l'exécutez pas dans Word...

Anacoluthe
« L'amour, c'est comme le potage : les premières cuillerées
sont trop chaudes, les dernières sont trop froides. »
- Jeanne MOREAU



Avatar
Tisane
Bonjour Bobby,

J'essaie de faire apparaitre la boite de dialogue "enregistrer sous" à
partir d'un bouton de mon formulaire.
Le code que j'ai attribué à ce bouton est le suivant :
Private Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Name = "*.txt"
.Show
End With
End With



Peux-tu essayer ceci :

Sub Savepb_Click()
With Dialogs(wdDialogFileSaveAs)
.Format = wdFormatText
.Show
End With
End Sub

(Lignes 1 et 3 modifiées).

--
Tisane

1 2