Quitter appli selon MSGBOX

herve62

XLDnaute Barbatruc
Bonjour
Je connais APPLICATION.QUIT
mais parfois selon le choix de MSGBOX ( VbCancel) on ne sort pas
si l'on va en 'DEBUG" Pas à pas ... ca marche
ex

Rep1 = MsgBox(" Selectionnez votre fichier ", vbOKCancel)
If Rep1 = vbCancel Then Application.Quit

Ca sans un USF INITIALIZE ..... ca va pas !!
Comment contourner ?
 

BrunoM45

XLDnaute Barbatruc
Re : Quitter appli selon MSGBOX

Bonjour Hervé62

Tout simple, dans un module tu crées une variable public
Code:
Option Explicit


' Variable publique booléenne pour sortie
Public FlgQuit As Boolean
Dans un module tu appelles ton USF et à la sortie, tu testes sir le FLAG est VRAI
Code:
Sub Test
  UserForm1.Show
  ' Tester si l'on doit quitter l'appli
If FlgQuit = True then Application.Quit
End Sub
Dans Ton UsF tu mets le FLAG à vrai si necessaire

A+
 

Discussions similaires


Haut Bas