OVH Cloud OVH Cloud

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!

6 réponses

1 2
Avatar
Anacoluthe
Bonjour !

'Bobby' nous a écrit ...
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


Une autre explication : le bouton en question ne s'appelle pas Savebp
et par conséquent N'A PAS de code pour son clic !!

Des fois c'est tout bête ! :-)

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 Tisane,

non ça ne fonctionne pas...



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



Avatar
Tisane
non ça ne fonctionne pas...


J'ai quand même des doutes sur ta ligne .Name = "*.txt".
Chez moi, sans .Format, *.doc est toujours proposé, car par défaut .Format =
wdFormatDocument
Mais en relisant le fil, c'est carrément le module qui ne se déclenche pas
si j'ai bien compris.
Le formulaire n'est pas protégé ?

--
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





Avatar
Bobby
alala...
effectivement mon bouton s'appelait Savpb et non Savepb
je suis vraiment désolée de vous avoir faire perdre votre temps à
tous!

une débutante dans la programmation


Bonjour !

'Bobby' nous a écrit ...
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


Une autre explication : le bouton en question ne s'appelle pas Savebp
et par conséquent N'A PAS de code pour son clic !!

Des fois c'est tout bête ! :-)

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
Anacoluthe
Bonjour !

'Bobby' nous a écrit ...
une débutante dans la programmation


Ben comme ça vous l'êtes un peu moins :-D ))

2 conseils en passant pour éviter ça :
- en mode création double-cliquez sur un bouton pour accéder
directement à son code
- dans la fenêtre Code du conteneur (ThisDocument dans votre cas)
déroulez les objets en haut à gauche puis déroulez leur code
en haut à droite : vous auriez vite repéré votre bouton
et son code d'événement Click manquant !

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
ok merci pour vos conseils!


Bonjour !

'Bobby' nous a écrit ...
une débutante dans la programmation


Ben comme ça vous l'êtes un peu moins :-D ))

2 conseils en passant pour éviter ça :
- en mode création double-cliquez sur un bouton pour accéder
directement à son code
- dans la fenêtre Code du conteneur (ThisDocument dans votre cas)
déroulez les objets en haut à gauche puis déroulez leur code
en haut à droite : vous auriez vite repéré votre bouton
et son code d'événement Click manquant !

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



1 2