Salut Reno, le Forum
Raison personnelle certe, mais je ne procède jamais avec in If direct sur une MsgBox en VBYesNo, je trouve çà pas net du tout... Ceci dit, chacun a ses habitudes de programmation.
Voilà comment faire (avec ma façon d'écrire)
Dans un Module Standard si tu veux que ta Boolean soit accessible dans tout le Projet..
Public BloomBerg As Boolean
Sub TestBloomberg()
Dim Response As Byte
Response = MsgBox("NEW!" & vbCrLf & vbCrLf & "Do you have Bloomberg ", vbQuestion + vbYesNo, "Customer information")
If Response = vbYes Then
BloomBerg = True
Else
BloomBerg = False
End If
End Sub
Dans le Private Module de ThisWorkbook (pour lancer à l'ouverture donc :
Private Sub Workbook_Open()
TestBloomberg
End Sub
Bon Après Midi
@+Thierry