Retour sur une boite de dialogue

Solcarnus · 17 Octobre 2005

Bonjour a tous!!

J'ai un probleme avec une de mes macros Excel pour lequel je n'ai pas trouvé de solution. Je souhaite donner à un utilisateur la possibilité de sauvegarder son fichier en faisant apparaître la boîte de dialogue standard Excel 'enregistrer sous'. Le problème est que si l'utilisateur décide de cliquer sur le bouton annuler, ma fonction se poursuit alors que je ne le souhaite pas.

J'ai utilisé le code suivant, sans succes

..............................................................................................
dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show
If dlgAnswer = VbCancel Then
'traitement 1, on sort de la fonction'
Else
'traitement 2, on poursuit l'execution de la fonction'
End If
................................................................................................

Quelqu'un saurait-il comment on récupère l'information transmise par la boîte de dialogue, à savoir si l'utilisateur à cliquer sur 'enregistrer' ou sur 'annuler'?

Voila j'espère que j'ai été assez clair.

Je tiens à remercier d'avance celui ou celle qui prendra le temps de me lire et de me répondre.

myDearFriend! · 17 Octobre 2005

Bonsoir Solcarnus,

Tu peux essayer comme ça :

Dim Rep As Boolean
      Rep = Application.Dialogs(xlDialogSaveAs).Show
      If Not Rep Then
            ''traitement 1, on sort de la fonction'
            MsgBox 'Choix Annuler'
      Else
            ''traitement 2, on poursuit l'execution de la fonction'
            MsgBox 'Sauvegarde effectuée'
      End If

Cordialement,

Retour sur une boite de dialogue

Solcarnus

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires