Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Message d'accueil à l'ouverture du classeur

Message d'accueil à l'ouverture du classeur

7 réponses
Avatar
Caroline L.
Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil. Est-il
très complexe et/ou lourd de conséquences si je désire placer le MsgBox sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly, "Accueil"

Quand l'usager clique sur le bouton OK pour faire disparaître le message, là
le fond blanc pourrait disparaître et le classeur EXcel apparaît avec le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub Workbook_Activate() :
est-ce que le Workbook_Open a priorité sur le Workbook_Activate ? parce que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline
Signaler un problème avec ce contenu

7 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
anonymousA
bonsoir,

le workbook_open se déclenche avant workbook_activate bien sur. Quant au
fond d'écran tout blac, comment fais-tu ca et à quel moment?

A+

Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil. Est-il
très complexe et/ou lourd de conséquences si je désire placer le MsgBox sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly, "Accueil"

Quand l'usager clique sur le bouton OK pour faire disparaître le message, là
le fond blanc pourrait disparaître et le classeur EXcel apparaît avec le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub Workbook_Activate() :
est-ce que le Workbook_Open a priorité sur le Workbook_Activate ? parce que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline




Avatar
LSteph
Bonsoir Caroline,
Si tu as une version récente fais le test ici siuivant exemple d'hier pour
les btons gros sur activate:

insère un userform dans ton projet VB
puis clicdroit pour afficher propriétés
mets la couleur blanc dans Backcolor &H80000009&
puis dans lapropriété showmodal False
ensuite ceci dans ThisWorkbook
'***
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Load UserForm1
x = Application.UsableWidth
y = Application.UsableHeight
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Width = x
UserForm1.Height = y
UserForm1.Show

MsgBox " blablabli "
UserForm1.Hide
Application.DisplayFullScreen = False
End Sub


Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
'brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub
'***
'lSteph

"Caroline L." a écrit dans le message de news:
eAU4e.147482$
Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil. Est-il
très complexe et/ou lourd de conséquences si je désire placer le MsgBox
sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly, "Accueil"

Quand l'usager clique sur le bouton OK pour faire disparaître le message,
là
le fond blanc pourrait disparaître et le classeur EXcel apparaît avec le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub Workbook_Activate() :
est-ce que le Workbook_Open a priorité sur le Workbook_Activate ? parce
que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline




Avatar
Caroline L.
Bonjour LSteph,

j'ai Excel 2000 et Win98 2e éd.
Est-ce suffisant ?


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
Si tu as une version récente fais le test ici siuivant exemple d'hier pour
les btons gros sur activate:

insère un userform dans ton projet VB
puis clicdroit pour afficher propriétés
mets la couleur blanc dans Backcolor &H80000009&
puis dans lapropriété showmodal False
ensuite ceci dans ThisWorkbook
'***
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Load UserForm1
x = Application.UsableWidth
y = Application.UsableHeight
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Width = x
UserForm1.Height = y
UserForm1.Show

MsgBox " blablabli "
UserForm1.Hide
Application.DisplayFullScreen = False
End Sub


Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
'brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub
'***
'lSteph

"Caroline L." a écrit dans le message de news:
eAU4e.147482$
Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil.
Est-il


très complexe et/ou lourd de conséquences si je désire placer le MsgBox
sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly,
"Accueil"



Quand l'usager clique sur le bouton OK pour faire disparaître le
message,


là
le fond blanc pourrait disparaître et le classeur EXcel apparaît avec le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub Workbook_Activate()
:


est-ce que le Workbook_Open a priorité sur le Workbook_Activate ? parce
que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline








Avatar
LSteph
Si tu as la propriété showmodal pour les userforms oui!

"Caroline L." a écrit dans le message de news:
pYX4e.159887$
Bonjour LSteph,

j'ai Excel 2000 et Win98 2e éd.
Est-ce suffisant ?


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
Si tu as une version récente fais le test ici siuivant exemple d'hier
pour
les btons gros sur activate:

insère un userform dans ton projet VB
puis clicdroit pour afficher propriétés
mets la couleur blanc dans Backcolor &H80000009&
puis dans lapropriété showmodal False
ensuite ceci dans ThisWorkbook
'***
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Load UserForm1
x = Application.UsableWidth
y = Application.UsableHeight
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Width = x
UserForm1.Height = y
UserForm1.Show

MsgBox " blablabli "
UserForm1.Hide
Application.DisplayFullScreen = False
End Sub


Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
'brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub
'***
'lSteph

"Caroline L." a écrit dans le message de news:
eAU4e.147482$
Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil.
Est-il


très complexe et/ou lourd de conséquences si je désire placer le MsgBox
sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly,
"Accueil"



Quand l'usager clique sur le bouton OK pour faire disparaître le
message,


là
le fond blanc pourrait disparaître et le classeur EXcel apparaît avec
le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub Workbook_Activate()
:


est-ce que le Workbook_Open a priorité sur le Workbook_Activate ?
parce
que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline












Avatar
Caroline L.
Je l'ai testé... c'est vraiment le fun ! Par contre, le plein écran n'est
pas tout à fait "plein", je vois en haut le barre de menu et au bas,
l'équivalent de la barre d'état de windows. Comment ajuster ?

merci encore LSteph

Caroline


"LSteph" a écrit dans le message de news:
#
Si tu as la propriété showmodal pour les userforms oui!

"Caroline L." a écrit dans le message de news:
pYX4e.159887$
Bonjour LSteph,

j'ai Excel 2000 et Win98 2e éd.
Est-ce suffisant ?


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
Si tu as une version récente fais le test ici siuivant exemple d'hier
pour
les btons gros sur activate:

insère un userform dans ton projet VB
puis clicdroit pour afficher propriétés
mets la couleur blanc dans Backcolor &H80000009&
puis dans lapropriété showmodal False
ensuite ceci dans ThisWorkbook
'***
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Load UserForm1
x = Application.UsableWidth
y = Application.UsableHeight
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Width = x
UserForm1.Height = y
UserForm1.Show

MsgBox " blablabli "
UserForm1.Hide
Application.DisplayFullScreen = False
End Sub


Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
'brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub
'***
'lSteph

"Caroline L." a écrit dans le message de news:
eAU4e.147482$
Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil.
Est-il


très complexe et/ou lourd de conséquences si je désire placer le
MsgBox




sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly,
"Accueil"



Quand l'usager clique sur le bouton OK pour faire disparaître le
message,


là
le fond blanc pourrait disparaître et le classeur EXcel apparaît avec
le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub
Workbook_Activate()




:
est-ce que le Workbook_Open a priorité sur le Workbook_Activate ?
parce
que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline
















Avatar
Caroline L.
Bonsoir anonymousA,

c'est bizarre, te souviens-tu il y a quelques temps je t'avais écrit un
courriel t'expliquant que je ne recevais pas tous les posts ? et bien ce
soir, c'est pareil. C'est bizarre.
Je reçois ton message mais bien après ceux des autres... en tout cas. Juste
te dire que si j'ai pas l'air à suivre, c'est peut-être à cause de ça.

merci pour
le workbook_open se déclenche avant workbook_activate bien sur.


et
Quant au fond d'écran tout blac, comment fais-tu ca et à quel moment?
à quel moment ? à l'ouverture du classeur, première chose qui est faite

c'est un beau message d'accueil. Comment faire ? c'est justement ma
question (qui a été répondu par LSteph, que je remercie !). Sauf que
le plein écran n'est pas tout à fait "plein", je vois en haut le barre de
menu et au bas,
l'équivalent de la barre d'état de windows. J'aimerais bien ajuster le tout
?


merci anonymousA
Caroline


"anonymousA" a écrit dans le message de news:
42543958$0$1225$
bonsoir,

le workbook_open se déclenche avant workbook_activate bien sur. Quant au
fond d'écran tout blac, comment fais-tu ca et à quel moment?

A+

Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil.
Est-il


très complexe et/ou lourd de conséquences si je désire placer le MsgBox
sur


un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly,
"Accueil"



Quand l'usager clique sur le bouton OK pour faire disparaître le
message, là


le fond blanc pourrait disparaître et le classeur EXcel apparaît avec le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub Workbook_Activate()
:


est-ce que le Workbook_Open a priorité sur le Workbook_Activate ? parce
que


j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline






Avatar
LSteph
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC


End Sub
'****************************************

'lSteph


"Caroline L." a écrit dans le message de news:
8vY4e.160231$
Je l'ai testé... c'est vraiment le fun ! Par contre, le plein écran n'est
pas tout à fait "plein", je vois en haut le barre de menu et au bas,
l'équivalent de la barre d'état de windows. Comment ajuster ?

merci encore LSteph

Caroline


"LSteph" a écrit dans le message de news:
#
Si tu as la propriété showmodal pour les userforms oui!

"Caroline L." a écrit dans le message de news:
pYX4e.159887$
Bonjour LSteph,

j'ai Excel 2000 et Win98 2e éd.
Est-ce suffisant ?


"LSteph" a écrit dans le message de news:

Bonsoir Caroline,
Si tu as une version récente fais le test ici siuivant exemple d'hier
pour
les btons gros sur activate:

insère un userform dans ton projet VB
puis clicdroit pour afficher propriétés
mets la couleur blanc dans Backcolor &H80000009&
puis dans lapropriété showmodal False
ensuite ceci dans ThisWorkbook
'***
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Load UserForm1
x = Application.UsableWidth
y = Application.UsableHeight
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Width = x
UserForm1.Height = y
UserForm1.Show

MsgBox " blablabli "
UserForm1.Hide
Application.DisplayFullScreen = False
End Sub


Private Sub Workbook_Activate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Set brb = Application.CommandBars
'brb.LargeButtons = False
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Set brb = Application.CommandBars
brb.LargeButtons = False
End Sub
'***
'lSteph

"Caroline L." a écrit dans le message de news:
eAU4e.147482$
Allo !

À l'ouverture d'un classeur, j'ai inséré un beau message d'accueil.
Est-il


très complexe et/ou lourd de conséquences si je désire placer le
MsgBox




sur
un fond d'écran tout blanc ? Il s'agit du message suivant :

Private Sub Workbook_Open()
MsgBox "Bienvenu à .....blablabla.... Bonne visite !", vbOKOnly,
"Accueil"



Quand l'usager clique sur le bouton OK pour faire disparaître le
message,


là
le fond blanc pourrait disparaître et le classeur EXcel apparaît
avec
le
reste.
Est-ce bien compliqué ?

Seul bémol c'est que j'ai des macros en Private Sub
Workbook_Activate()




:
est-ce que le Workbook_Open a priorité sur le Workbook_Activate ?
parce
que
j'ai une macro dans le Activate.


Merci de m'éclairer
Caroline