Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel message d'accueil quand j'ouvre un classeur ?

message d'accueil quand j'ouvre un classeur ?

2 réponses
Avatar
popof
bonjour,

j'ai trouvé sur excelabo.net une astuce pour afficher un commentaire quand
on ouvre un classeur (en vba) mais il me faudrait des précisions pour le
3eme point
merci (peut-être connaissez-vous l'auteur de cette astuce)

voici l'astuce :

Comment afficher de façon temporisée un message d'accueil à l'ouverture d'un
classeur ?
1 - Construire un userform avec le message
2 - Dans le module du userfom, utiliser la procédure suivante

Private Sub UserForm_Activate()
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 2 secondes ne se sont pas écoulé
While Timer < TimeDebut + 2
Wend
' Fermeture de la BdD
Unload Me
End Sub

3 - Créer un procédure qui lance l'affichage de ta userform
( " MaUserForm.Show ")
Le chat, (N°1123)
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Il faut que tu créés une macro dans laquelle tu lanceras le Userform par la
commande MaUserForm.Show
Cordialement
Pascal

"popof" a écrit dans le message de
news:%
bonjour,

j'ai trouvé sur excelabo.net une astuce pour afficher un commentaire quand
on ouvre un classeur (en vba) mais il me faudrait des précisions pour le
3eme point
merci (peut-être connaissez-vous l'auteur de cette astuce)

voici l'astuce :

Comment afficher de façon temporisée un message d'accueil à l'ouverture
d'un

classeur ?
1 - Construire un userform avec le message
2 - Dans le module du userfom, utiliser la procédure suivante

Private Sub UserForm_Activate()
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 2 secondes ne se sont pas écoulé
While Timer < TimeDebut + 2
Wend
' Fermeture de la BdD
Unload Me
End Sub

3 - Créer un procédure qui lance l'affichage de ta userform
( " MaUserForm.Show ")
Le chat, (N°1123)




Avatar
Youky
En complément de Papou,
Si l'userform doit s'afficher au lancement, double click sur ThisWorkbook en
fenetre projet à gauche
tu comprendras que l'évenement à lieu à l'ouverture en Workbook-Open
Private Sub Workbook_Open()
UserForm1.Show 'le nom de l'userform
End Sub
youky
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Il faut que tu créés une macro dans laquelle tu lanceras le Userform par
la

commande MaUserForm.Show
Cordialement
Pascal

"popof" a écrit dans le message de
news:%
bonjour,

j'ai trouvé sur excelabo.net une astuce pour afficher un commentaire
quand


on ouvre un classeur (en vba) mais il me faudrait des précisions pour le
3eme point
merci (peut-être connaissez-vous l'auteur de cette astuce)

voici l'astuce :

Comment afficher de façon temporisée un message d'accueil à l'ouverture
d'un

classeur ?
1 - Construire un userform avec le message
2 - Dans le module du userfom, utiliser la procédure suivante

Private Sub UserForm_Activate()
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 2 secondes ne se sont pas écoulé
While Timer < TimeDebut + 2
Wend
' Fermeture de la BdD
Unload Me
End Sub

3 - Créer un procédure qui lance l'affichage de ta userform
( " MaUserForm.Show ")
Le chat, (N°1123)