excelnoober
XLDnaute Junior
Bonjour
je souhaite générer un msgbox uniquement sur l ouverture d une page de mon classeur
j ai bien récupéré ce code sur la toile, mais lorsque je le copie dans mon projet "thisworkbook'
il ne se passe rien
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.CodeName) = "Intervenants AP" Then
MsgBox "Cette feuille est réservée au " & _
"Secrétariat Général, merci de ne rien modifier/ajouter.", vbCrLf & _
vbInformation + vbOKOnly, "La direction..."
End If
End Sub
quelqu' un pourrait m aider svp?
je souhaite générer un msgbox uniquement sur l ouverture d une page de mon classeur
j ai bien récupéré ce code sur la toile, mais lorsque je le copie dans mon projet "thisworkbook'
il ne se passe rien
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.CodeName) = "Intervenants AP" Then
MsgBox "Cette feuille est réservée au " & _
"Secrétariat Général, merci de ne rien modifier/ajouter.", vbCrLf & _
vbInformation + vbOKOnly, "La direction..."
End If
End Sub
quelqu' un pourrait m aider svp?