Test ouverture de classeur

[Sabine]

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

 

[CBernardT]

Bonjour Sabine,

Je te peopose une modification de la macro du style :


For Each Wb In Workbooks
If Wb.Name = 'PROSTOCK magasin.xls' Then
MsgBox 'Attention ! Le service magasin est en train de travailler sur le fichier.)'
Else
MsgBox 'Ok ! Le magasin n'est pas actuellement en train de travailler sur le fichier.'
Sheets('Feuil1').Select
Range('A5').Select
creat_barre
End If
Next

Cordialement

Bernard