msgbox a l'ouverture de la feuille

[rem$]

bonjour a tous

tout est dit dans le sujet : je voudrais ouvrir un msgbox à l'ouverture de la feuille. aucune autre action ne peut être entreprise si on ne repond pas oui et le must serait de recuperer le nom d'utilisateur et le N° du poste.
le but de ceci que l'utilisateur s'engage à utiliser correctement le doc a sa dispo.
en fait je sais faire chacune des choses mais séparement....

d'avance merci
@+ rem$

 

[Hervé]

re

sur la feuille en question:

Private Sub Worksheet_Activate()
debut:
If MsgBox("Te serviras-tu de cette feuille correctement ?", vbYesNo + vbCritical, "attention...") = vbNo Then
GoTo debut
End If
End Sub

ou sur le fichier (dans thisworkbook)

Private Sub Workbook_Open()
debut:
If MsgBox("Te serviras-tu de cette feuille correctement.", vbYesNo + vbCritical, "attention...") = vbNo Then
GoTo debut
End If

End Sub

A adapter suivant tes besoins

Salut
Hervé

 

[rem$]

bonjour a tous, hervé

dslé mais j'ai placé la macro dans ma feuille mais elle ne fonctionne pas
je ne suis pas en mode création, elle n'est pas en pause ni a l'arret quand j'ouvre mon fichier pas de message???

@ +
rem$

 

[Hervé]

salut

Attention ne confond pas feuille et classeur :

Si tu veux que cette macro fonctionne lorsque tu active un onglet de ton classeur place la macro dans la feuille en vba.

Par contre si tu veux que cette macro de déclenche à l'ouverture de ton classeur, place la dans le module appelé this workbook tel qu'indiquent dans mon précédent post.

salut
Hervé

 

[rem$]

re hervé

j'avais bien fait la nuance donc j'ai mis la macro dans le worksheet
je te joint le fichier ouvre le et dit si c'est moi qui n'y capte rien
merci

 

[Hervé]

re


j'ai ouvert et en effet ...rien


normal la macro est dans la feuille 1 au lieu de la feuille thisworkbook.

problème corrigé ?

salut
Hervé

 

[rem$]

ok herve ca amrche je suis nul....
est ce possible de recuperer le mon de l'utilisateur et le N° de son poste ??? en feuille 2

merci
bonne soirée

 

[Hervé]

salut

t'es pas nul rem.

je ne sais pas récupérer un nom d'utilisateur en réseau (je n'en ai pas).

mais si celui ci est inscrit dans la cellule A1 de la feuille 2 essaye ceci :

Private Sub Worksheet_Activate()
debut:
If MsgBox("Te serviras-tu de cette feuille correctement " & Sheets("feuil2").Range("a1").Value & "?", vbYesNo + vbCritical, "attention...") = vbNo Then
GoTo debut
End If
End Sub

salut
Hervé