S
Sabine
Guest
Bonsoir à tous,
Petite question, pourquoi je n'arrive pas à dissocier les 2 messages.
Soit, cela m'affiche les 2 messages, soit rien ...
si qq1 a une idée ???
merci
For Each wb In Workbooks
If wb.Name = 'PROSTOCK magasin.xls' Then réponssse = MsgBox('Attention ! Le service magasin est en train de travailler sur le fichier.)', config)
Sheets('Feuil1').Select
Range('A5').Select
GoTo Porche
Next
MsgBox ('Ok ! Le magasin n'est pas actuellement en train de travailler sur le fichier.')
Sheets('Feuil1').Select
Range('A5').Select
Porche:
creat_barre
Petite question, pourquoi je n'arrive pas à dissocier les 2 messages.
Soit, cela m'affiche les 2 messages, soit rien ...
si qq1 a une idée ???
merci
For Each wb In Workbooks
If wb.Name = 'PROSTOCK magasin.xls' Then réponssse = MsgBox('Attention ! Le service magasin est en train de travailler sur le fichier.)', config)
Sheets('Feuil1').Select
Range('A5').Select
GoTo Porche
Next
MsgBox ('Ok ! Le magasin n'est pas actuellement en train de travailler sur le fichier.')
Sheets('Feuil1').Select
Range('A5').Select
Porche:
creat_barre