MsgBox

[Robert]

Bonjours les amis

Je désir créer une boite de dialogue comportant trois boutons
OUI
NON
ANNULER
avec un panneau point d'exclamation
et le texte suivant:
Avez-vous bien saisi le bon nombre etc.....

Lorsque l'on click sur OUI, la macro continue de s'exécuter
Si l'on click sur NON la macro s'arrête et nous renvoie dans le fichier X ou il doit y avoir des modifs. (un autre fichier)
Si l'on click sur annuler, la boite de dialogue se referme sans que rien ne se passe.

J'éspére avoir été assez clair car il m'est difficile de vous joindre un fichier trop volumineux, même compréssé.


Merci de votre aide trés précieuse et à bientôt.

 

[Didier]

Bonjour,

Dans ta procédure VBA :

Sub Ma_macro()
Dim Rep As Integer

Rep = MsgBox("Texte de la boite de dialogue", vbYesNoCancel + vbExclamation, "Titre de la boite...")

Select Case Rep

Case vbYes 'si OUI...

MsgBox "Vous avez choisi OUI"
'traitement à effectuer...

Case vbNo 'si NON...

MsgBox "Vous avez choisi NON"
'Ouverture de l'autre fichier
Workbooks.Open FileName:="<Chemin complet du fichier à ouvrir>"

End Select
End Sub

J'espère que ça pourra t'aider...

Didier

 

[Robert]

Bonjours le forum et Didier

Je te remercie pour ta réponse encore une fois trés rapide et positive.

Ton aide me serait encore trés précieuse pour continuer son action.
Je m'explique:

Quand je clic sur OUI
Pas de problême, ma macro términe son exécution.

Quand je clic sur NON
Je désir ouvrir un atre fichier EXCEL dont le chemin est le suivant:

Disque: Ebt6
Répertoire: Eléments P
Fichier: Calculs.XLS
Feuille: ACB AF
Cellule B4

Quand je clic sur ANNULER
Je désir exécuter une autre macro intitulée:
Blanc_E


Merci beaucoup pour ton aide
A bientôt

 

[@+Thierry]

Salut Robert, le Forum

Pour la macro Blanc_E, il te suffit d'ajouter un Case Else à la macro de Didier.

Sub Ma_macro()
Dim Rep As Integer

Rep = MsgBox("Texte de la boite de dialogue", vbYesNoCancel + vbExclamation, "Titre de la boite...")

Select Case Rep

Case vbYes 'si OUI...

MsgBox "Vous avez choisi OUI"
'traitement à effectuer...

Case vbNo 'si NON...

MsgBox "Vous avez choisi NON"
'Ouverture de l'autre fichier
Workbooks.Open FileName:="c:\Mes Documents\Eléments P\Calculs.xls"
With ActiveWorkBook
With .Sheets("ACB AF")
.Activate
.Range("B4").Select
End With
End With

Case Else 'si Autre
Blanc_E

End Select
End Sub


On pourrait sinon faire un Case vbCancel et préserver le Case Else pour une autre action inconnue, mais avec une boite MsgBox paramétrée "vbYesNoCancel" il ne peut y avoir plus d'action...

Bon App
@+Thierry

 

[Robert]

Bonjours à tous

Merci pour ta réponse thierry

J'ai mis en action et quelques bugs persistent. Peut être ai-je commis quelques erreures de syntaxe. Je cherche, celà perfectionnera ma formation car j'en ai besoin

Merci beaucoup et à bientôt