RESOLU !!!Afficher MSG BOX a l ouverture d'une page du classeur

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?
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Ça devrait mieux marcher ainsi
(test OK chez moi ;))
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.Name) = "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
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
La propriété CodeName d'un objet Workhseet n'a rien à voir avec le nom Excel de la feuille qu'il représente. C'est une propriété String en lecture seule reproduisant le nom de cet objet dans la rubrique Microsoft Excel Objets du projet VBA. Mais le nom de la feuille Excel, qui est sa propriété Name, y est rappelé à sa droite entre parenthèses.
 

excelnoober

XLDnaute Junior
Quoi qu'il en soit je te remercie beaucoup danreb et staple 1600 et j barbe.
question "barbatruc" je le vois souvent sous plusieurs nom au debut je pensais barbatruc le pseudo mais la j ai un doute
merci encore

A vous 3 pourriez vous trouver une solution a ma demande effectué ce matin lu plus de 59 fois mais sans jamais de reponse. serais une demande impossible ou mal formulée?
 

Staple1600

XLDnaute Barbatruc
Re,

question "barbatruc" je le vois souvent sous plusieurs nom au debut je pensais barbatruc le pseudo mais la j ai un doute
merci encore
Pour info XLDnaute Barbatruc est "un grade" pour les membres du forum qui ont posté plus de 10 000 messages.
Nous sommes donc plusieurs et non nous ne sommes pas une seule et même personne ;)
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re,

Une petite précision au passage
[HFT_T]Si j'étais moi, je me méfierai, [/HFT_T]il se pourrait que ce message qui cause de Direction finisse par m'énerver.
Et alors il suffirait que je renomme l'onglet intervenants_ap par exemple pour que le message ne s'affiche plus ;)
 

Dranreb

XLDnaute Barbatruc
Juste, Staple1600, d'où deux conclusions, contradictoires d'ailleurs: 1) — Bien utiliser le CodeName, mais le bon cette fois, 2) — Ne rien utiliser du tout, mais mettre ce texte d'avertissement en rouge sur fond jaune dans une cellule en tête de la feuille.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Je suis allé voir, et avec le classeur sous les yeux on peut voir qu'au lieu de :
If LCase(Sh.Name) = "intervenants ap" Then
vous auriez pu mettre :
If Sh.CodeName = "Feuil23" Then

Je n'ai pas de réponse à y proposer, mais vous auriez plus de chances que quelqu'un ait envie d'étudier le sujet si le classeur était nettoyé de façon à ne plus donner un avertissement de sécurité à l'ouverture (rupture des liaisons externes, sérieux nettoyage dans les noms)
 

Si...

XLDnaute Barbatruc
Bon_jour

Staple ;), quel est l'intérêt d'écrire dans ThisWorkbook un code réservé à une seule feuille ?

Si j'étais Si… (salut), je ferais aussi afficher le message à l'activation de la feuille, mais avec, dans la fenêtre de codes de cet onglet (clic droit sur son nom puis Visualiser le code)

VB:
Private Sub Worksheet_Activate()
    MsgBox "Cette feuille est réservée à Mr YUST, Mme QUERAT, Mr ARMANT !" & vbLf & _
           "Les seules modifications possibles sont expliquées dans " & vbLf & _
           "les info-bulles situées à droite du tableau !", 48, "Attention..."
End Sub

A noter que la feuille reste accessible à tout le monde. Il serait peut-être avantageux de la protéger et de ne libérer les cellules déverrouillées qu'au propriétaire d'un code d'accès (mot de passe). Mais … c'est une autre histoire*.

*je vais en raconter ma version dans un autre post. Cela pourrait aussi intéresser ymanot o_O.
 

Statistiques des forums

Discussions
311 709
Messages
2 081 756
Membres
101 812
dernier inscrit
trufu