OVH Cloud OVH Cloud

xlDialogSaveAs

5 réponses
Avatar
jean michel
bonjour a tous,
dans la boite xlDialogSaveAs on a un "oui" et un "non"

true ou false . comment fait on pour arreter la macro que l on execute quand
l utilisateur clique sur annuler ?

c'est nul mais c est bloquant !

5 réponses

Avatar
Ellimac
Bonjour,

Peut être une piste avec ce code :

Sub Toto()
titi = ActiveWorkbook.Name
Application.Dialogs(xlDialogSaveAs).Show
tutu = ActiveWorkbook.Name
If titi = tutu Then MsgBox ("sauvegardez!!!")
End Sub

Sinon il doit être possible de gérer le BeforeSave du
Workbook pour obliger à sauvegarder.

Camille

-----Message d'origine-----
bonjour a tous,
dans la boite xlDialogSaveAs on a un "oui" et un "non"

true ou false . comment fait on pour arreter la macro que
l on execute quand

l utilisateur clique sur annuler ?

c'est nul mais c est bloquant !


.



Avatar
Alain CROS
Bonjour.

Essaye comme ça.
If Not Application.Dialogs(xlDialogSaveAs).Show Then MsgBox "Non": Exit Sub

Alain CROS.

"jean michel" a écrit dans le message de news: 3f2f99cd$0$10775$
bonjour a tous,
dans la boite xlDialogSaveAs on a un "oui" et un "non"

true ou false . comment fait on pour arreter la macro que l on execute quand
l utilisateur clique sur annuler ?

c'est nul mais c est bloquant !




Avatar
jean michel
ben c est nickel ; juste un détail :

Application.Dialogs(xlDialogSaveAs).Show NomFichier

NomFichier étant au préalable déclaré , mais maintenant je peux plus
utiliser cette syntaxe. qu est ce que je pourrais faire ?

"Alain CROS" a écrit dans le message de
news:uii8x%
Bonjour.

Essaye comme ça.
If Not Application.Dialogs(xlDialogSaveAs).Show Then MsgBox "Non": Exit
Sub


Alain CROS.

"jean michel" a écrit dans le message de news:
3f2f99cd$0$10775$

bonjour a tous,
dans la boite xlDialogSaveAs on a un "oui" et un "non"

true ou false . comment fait on pour arreter la macro que l on execute
quand


l utilisateur clique sur annuler ?

c'est nul mais c est bloquant !








Avatar
Alain CROS
Bonjour.

Peut être comme ça.
If Not Application.Dialogs(xlDialogSaveAs).Show(arg1:="MonFichier.xls") Then MsgBox "Non": Exit Sub

Alain CROS.

"jean michel" a écrit dans le message de news: 3f2fb252$0$10768$
ben c est nickel ; juste un détail :

Application.Dialogs(xlDialogSaveAs).Show NomFichier

NomFichier étant au préalable déclaré , mais maintenant je peux plus
utiliser cette syntaxe. qu est ce que je pourrais faire ?

"Alain CROS" a écrit dans le message de
news:uii8x%
Bonjour.

Essaye comme ça.
If Not Application.Dialogs(xlDialogSaveAs).Show Then MsgBox "Non": Exit
Sub


Alain CROS.

"jean michel" a écrit dans le message de news:
3f2f99cd$0$10775$

bonjour a tous,
dans la boite xlDialogSaveAs on a un "oui" et un "non"

true ou false . comment fait on pour arreter la macro que l on execute
quand


l utilisateur clique sur annuler ?

c'est nul mais c est bloquant !












Avatar
jean michel
Merci beaucoup ca marche tres bien !


"Alain CROS" a écrit dans le message de
news:
Bonjour.

Peut être comme ça.
If Not Application.Dialogs(xlDialogSaveAs).Show(arg1:="MonFichier.xls")
Then MsgBox "Non": Exit Sub


Alain CROS.

"jean michel" a écrit dans le message de news:
3f2fb252$0$10768$

ben c est nickel ; juste un détail :

Application.Dialogs(xlDialogSaveAs).Show NomFichier

NomFichier étant au préalable déclaré , mais maintenant je peux plus
utiliser cette syntaxe. qu est ce que je pourrais faire ?

"Alain CROS" a écrit dans le message de
news:uii8x%
Bonjour.

Essaye comme ça.
If Not Application.Dialogs(xlDialogSaveAs).Show Then MsgBox "Non":
Exit



Sub

Alain CROS.

"jean michel" a écrit dans le message de
news:



3f2f99cd$0$10775$
bonjour a tous,
dans la boite xlDialogSaveAs on a un "oui" et un "non"

true ou false . comment fait on pour arreter la macro que l on
execute




quand
l utilisateur clique sur annuler ?

c'est nul mais c est bloquant !