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 info en quittant

Message info en quittant

10 réponses
Avatar
Thierry
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte mon=20
appli.
J'ai essay=E9 avec popup, mais =E7a marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH =3D CreateObject("WScript.Shell")

Const nSecToWait =3D 3
Const typButtonless =3D 7 '&HB ' undoc constant

Dim sMsg
sMsg =3D vbLf & "Ce message SANS BOUTON" & vbCrLf & vbCrLf=20
_
& "va se fermer dans : " & CStr(nSecToWait) & "=20
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",=20
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essay=E9 avec un UserForm, mais celui ci est modale et=20
tant qu'il n'est pas ferm=E9, celui ci bloque toute=20
op=E9ration.

Mon souhait est d'afficher une petite boite de dial quelle=20
qu'elle soit lors de la fermeture de mon appli qui ne=20
poss=E8de plus de bouton, barre de menu ou d'=E9tat, bref rien.

Merci d'avance,

Amicalement
Thierry
Signaler un problème avec ce contenu

10 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
Michel Pierron
Bonsoir Thierry;
Comme c'est noté dans ta procédure:
Const typButtonless = 7 '&HB ' Non documenté !!!
' display popup with NO button (only on Win9X/ME)...

C'est normal que cela ne fonctionne pas; il faut te résigner à afficher un
bouton
oSH.Popup sMsg, nSecToWait, "Popup avec Bouton"

MP

"Thierry" a écrit dans le message de
news:07ce01c4b911$6446a330$
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte mon
appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf & vbCrLf
_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale et
tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial quelle
qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref rien.

Merci d'avance,

Amicalement
Thierry
Avatar
Thierry
Re,

J'ai créé un UserForm et non une feuille boite de dialogue
et en faisant:
UserForm.show vbModeless 'Non modale
Et ainsi je peux faire mon traitement de fin en demandant
de patienter à mon user :o)

Amicalement
Thierry


-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte
mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &
vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale et
tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial
quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref
rien.


Merci d'avance,

Amicalement
Thierry
.



Avatar
Thierry
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image gif
dans un userform?

Amicalement
Thierry

-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte
mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &
vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale et
tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial
quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref
rien.


Merci d'avance,

Amicalement
Thierry
.



Avatar
Michel Pierron
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm (Navigateur Web Microsoft)

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
.Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit dans le message de
news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image gif
dans un userform?

Amicalement
Thierry

-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte
mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &
vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale et
tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial
quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref
rien.


Merci d'avance,

Amicalement
Thierry
.



Avatar
Thierry
Bonjour,

Je viens d'essayer ta procédure, mais j'avoue avoir des
soucis.
J'ai mon form déclarer dans VB.
J'ai insérer mon gif.

comment et ou je combine ton code?
Le contrôle WebBrowser tu le trouves ou?

Amicalement
thierry

-----Message d'origine-----
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm (Navigateur
Web Microsoft)


Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit
dans le message de

news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image gif
dans un userform?

Amicalement
Thierry

-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte
mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &
vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale et
tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial
quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref
rien.


Merci d'avance,

Amicalement
Thierry
.




.




Avatar
Michel Pierron
Bonjour Thierry;
Dans VBE, en mode construction, clique sur ton UserForm. Fais un clic droit
dans l'onglet Contrôles de la boîte à outils et choisis Contrôles
supplémentaires. Dans la liste déroulante qui s'affiche, coche Navigateur
Web Microsoft puis OK pour fermer la boîte.
Le contrôle que tu viens de cocher est ajouté sur l'onglet; c'est une petite
mappemonde et quand tu la survole avec la souris, le nom du contrôle
WebBrowser s'affiche dans un popup. Fais un clic gauche sur ce contrôle et
trace le sur l'UserForm selon les dimensions que tu souhaites.
Dans la fenêtre des propriétés, ce contrôle à pour nom WebBrowser1; ensuite,
dans le module de code de l'userform, ajoute cette procédure dans laquelle
la constante File indique le chemin complet du fichier gif que tu souhaites
afficher. Ce fichier sera chargé et affiché dans le WebBrowser dès
l'affichage de ton UserForm. Si tu as des soucis, reviens à la charge.

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
.Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit dans le message de
news:102401c4b9aa$63a2a980$
Bonjour,

Je viens d'essayer ta procédure, mais j'avoue avoir des
soucis.
J'ai mon form déclarer dans VB.
J'ai insérer mon gif.

comment et ou je combine ton code?
Le contrôle WebBrowser tu le trouves ou?

Amicalement
thierry

-----Message d'origine-----
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm (Navigateur
Web Microsoft)


Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit
dans le message de

news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image gif
dans un userform?

Amicalement
Thierry

-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte
mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &
vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale et
tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial
quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref
rien.


Merci d'avance,

Amicalement
Thierry
.




.




Avatar
Thierry
Re et merci de ta patience,

J'ai bien mis le webbrowser sur mon userform.
J'ai bien mon image sous C:
J'ai collé le code dans ThisWorkbook
Mon form s'ouvre sans pb avec une petite fenêtre blanche
dedans, mais sans mon gif animé.
Ou ai je commis une bourde.

Merci d'avance,
Amicalement,
Thierry
-----Message d'origine-----
Bonjour Thierry;
Dans VBE, en mode construction, clique sur ton UserForm.
Fais un clic droit

dans l'onglet Contrôles de la boîte à outils et choisis
Contrôles

supplémentaires. Dans la liste déroulante qui s'affiche,
coche Navigateur

Web Microsoft puis OK pour fermer la boîte.
Le contrôle que tu viens de cocher est ajouté sur
l'onglet; c'est une petite

mappemonde et quand tu la survole avec la souris, le nom
du contrôle

WebBrowser s'affiche dans un popup. Fais un clic gauche
sur ce contrôle et

trace le sur l'UserForm selon les dimensions que tu
souhaites.

Dans la fenêtre des propriétés, ce contrôle à pour nom
WebBrowser1; ensuite,

dans le module de code de l'userform, ajoute cette
procédure dans laquelle

la constante File indique le chemin complet du fichier
gif que tu souhaites

afficher. Ce fichier sera chargé et affiché dans le
WebBrowser dès

l'affichage de ton UserForm. Si tu as des soucis, reviens
à la charge.


Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit
dans le message de

news:102401c4b9aa$63a2a980$
Bonjour,

Je viens d'essayer ta procédure, mais j'avoue avoir des
soucis.
J'ai mon form déclarer dans VB.
J'ai insérer mon gif.

comment et ou je combine ton code?
Le contrôle WebBrowser tu le trouves ou?

Amicalement
thierry

-----Message d'origine-----
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm (Navigateur
Web Microsoft)


Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit
dans le message de

news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image gif
dans un userform?

Amicalement
Thierry

-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte
mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &
vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale
et



tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial
quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref
rien.


Merci d'avance,

Amicalement
Thierry
.




.




.





Avatar
Misange
Bonjour Thierry

tu trouveras des exemples à télécharger avec ces codes de Michel sur
excelabo, pages userforms.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 24/10/2004 13:48:
Re et merci de ta patience,

J'ai bien mis le webbrowser sur mon userform.
J'ai bien mon image sous C:
J'ai collé le code dans ThisWorkbook
Mon form s'ouvre sans pb avec une petite fenêtre blanche
dedans, mais sans mon gif animé.
Ou ai je commis une bourde.

Merci d'avance,
Amicalement,
Thierry

-----Message d'origine-----
Bonjour Thierry;
Dans VBE, en mode construction, clique sur ton UserForm.


Fais un clic droit

dans l'onglet Contrôles de la boîte à outils et choisis


Contrôles

supplémentaires. Dans la liste déroulante qui s'affiche,


coche Navigateur

Web Microsoft puis OK pour fermer la boîte.
Le contrôle que tu viens de cocher est ajouté sur


l'onglet; c'est une petite

mappemonde et quand tu la survole avec la souris, le nom


du contrôle

WebBrowser s'affiche dans un popup. Fais un clic gauche


sur ce contrôle et

trace le sur l'UserForm selon les dimensions que tu


souhaites.

Dans la fenêtre des propriétés, ce contrôle à pour nom


WebBrowser1; ensuite,

dans le module de code de l'userform, ajoute cette


procédure dans laquelle

la constante File indique le chemin complet du fichier


gif que tu souhaites

afficher. Ce fichier sera chargé et affiché dans le


WebBrowser dès

l'affichage de ton UserForm. Si tu as des soucis, reviens


à la charge.

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit


dans le message de

news:102401c4b9aa$63a2a980$
Bonjour,

Je viens d'essayer ta procédure, mais j'avoue avoir des
soucis.
J'ai mon form déclarer dans VB.
J'ai insérer mon gif.

comment et ou je combine ton code?
Le contrôle WebBrowser tu le trouves ou?

Amicalement
thierry


-----Message d'origine-----
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm (Navigateur


Web Microsoft)

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit


dans le message de

news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image gif
dans un userform?

Amicalement
Thierry


-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte


mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &


vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est modale




et

tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial


quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref


rien.

Merci d'avance,

Amicalement
Thierry
.




.




.








Avatar
Thierry
Merci bcp

Amicalement
Thierry
-----Message d'origine-----
Bonjour Thierry

tu trouveras des exemples à télécharger avec ces codes de
Michel sur

excelabo, pages userforms.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 24/10/2004 13:48:
Re et merci de ta patience,

J'ai bien mis le webbrowser sur mon userform.
J'ai bien mon image sous C:
J'ai collé le code dans ThisWorkbook
Mon form s'ouvre sans pb avec une petite fenêtre
blanche


dedans, mais sans mon gif animé.
Ou ai je commis une bourde.

Merci d'avance,
Amicalement,
Thierry

-----Message d'origine-----
Bonjour Thierry;
Dans VBE, en mode construction, clique sur ton
UserForm.




Fais un clic droit

dans l'onglet Contrôles de la boîte à outils et choisis


Contrôles

supplémentaires. Dans la liste déroulante qui
s'affiche,




coche Navigateur

Web Microsoft puis OK pour fermer la boîte.
Le contrôle que tu viens de cocher est ajouté sur


l'onglet; c'est une petite

mappemonde et quand tu la survole avec la souris, le
nom




du contrôle

WebBrowser s'affiche dans un popup. Fais un clic gauche


sur ce contrôle et

trace le sur l'UserForm selon les dimensions que tu


souhaites.

Dans la fenêtre des propriétés, ce contrôle à pour nom


WebBrowser1; ensuite,

dans le module de code de l'userform, ajoute cette


procédure dans laquelle

la constante File indique le chemin complet du fichier


gif que tu souhaites

afficher. Ce fichier sera chargé et affiché dans le


WebBrowser dès

l'affichage de ton UserForm. Si tu as des soucis,
reviens




à la charge.

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit


dans le message de

news:102401c4b9aa$63a2a980$
Bonjour,

Je viens d'essayer ta procédure, mais j'avoue avoir des
soucis.
J'ai mon form déclarer dans VB.
J'ai insérer mon gif.

comment et ou je combine ton code?
Le contrôle WebBrowser tu le trouves ou?

Amicalement
thierry


-----Message d'origine-----
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm
(Navigateur





Web Microsoft)

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit


dans le message de

news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image
gif




dans un userform?

Amicalement
Thierry


-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte


mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &


vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est
modale






et

tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial


quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref


rien.

Merci d'avance,

Amicalement
Thierry
.




.




.


.









Avatar
Thierry
Merci encore,

Il reste une grande marge autour avec un cadre, peut on
les retirer?

Amicalement
Thierry


-----Message d'origine-----
Bonjour Thierry

tu trouveras des exemples à télécharger avec ces codes de
Michel sur

excelabo, pages userforms.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

on 24/10/2004 13:48:
Re et merci de ta patience,

J'ai bien mis le webbrowser sur mon userform.
J'ai bien mon image sous C:
J'ai collé le code dans ThisWorkbook
Mon form s'ouvre sans pb avec une petite fenêtre
blanche


dedans, mais sans mon gif animé.
Ou ai je commis une bourde.

Merci d'avance,
Amicalement,
Thierry

-----Message d'origine-----
Bonjour Thierry;
Dans VBE, en mode construction, clique sur ton
UserForm.




Fais un clic droit

dans l'onglet Contrôles de la boîte à outils et choisis


Contrôles

supplémentaires. Dans la liste déroulante qui
s'affiche,




coche Navigateur

Web Microsoft puis OK pour fermer la boîte.
Le contrôle que tu viens de cocher est ajouté sur


l'onglet; c'est une petite

mappemonde et quand tu la survole avec la souris, le
nom




du contrôle

WebBrowser s'affiche dans un popup. Fais un clic gauche


sur ce contrôle et

trace le sur l'UserForm selon les dimensions que tu


souhaites.

Dans la fenêtre des propriétés, ce contrôle à pour nom


WebBrowser1; ensuite,

dans le module de code de l'userform, ajoute cette


procédure dans laquelle

la constante File indique le chemin complet du fichier


gif que tu souhaites

afficher. Ce fichier sera chargé et affiché dans le


WebBrowser dès

l'affichage de ton UserForm. Si tu as des soucis,
reviens




à la charge.

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit


dans le message de

news:102401c4b9aa$63a2a980$
Bonjour,

Je viens d'essayer ta procédure, mais j'avoue avoir des
soucis.
J'ai mon form déclarer dans VB.
J'ai insérer mon gif.

comment et ou je combine ton code?
Le contrôle WebBrowser tu le trouves ou?

Amicalement
thierry


-----Message d'origine-----
Bonsoir Thierry;
Place un contrôle WebBrowser sur ton UserForm
(Navigateur





Web Microsoft)

Private Sub UserForm_Initialize()
Const File As String = "C:Email3D.gif"
With WebBrowser1
..Navigate "about:<html><body scroll='no'>" _
& "<img src='" & File & "'></img></body></html>"
While .Busy: DoEvents: Wend
End With
End Sub

MP

"Thierry" a écrit


dans le message de

news:07b001c4b91c$bbff4c70$
Re, :o)

Bon j'ai trouvé certes, mais peut on animer une image
gif




dans un userform?

Amicalement
Thierry


-----Message d'origine-----
Bonjour,

Je souhaite mettre un message d'info lorsque je quitte


mon

appli.
J'ai essayé avec popup, mais ça marche pas:
Sub MessagePopUp()
'Jim Warrington, microsoft.public.scripting.wsh
Set oSH = CreateObject("WScript.Shell")

Const nSecToWait = 3
Const typButtonless = 7 '&HB ' undoc constant

Dim sMsg
sMsg = vbLf & "Ce message SANS BOUTON" & vbCrLf &


vbCrLf

_
& "va se fermer dans : " & CStr(nSecToWait) & "
secs... "

' display popup with NO button (only on Win9X/ME)...
oSH.Popup sMsg, nSecToWait, "Popup Sans Bouton",
typButtonless
End Sub

La constante TypButtonLess bloque le tout.

J'ai essayé avec un UserForm, mais celui ci est
modale






et

tant qu'il n'est pas fermé, celui ci bloque toute
opération.

Mon souhait est d'afficher une petite boite de dial


quelle

qu'elle soit lors de la fermeture de mon appli qui ne
possède plus de bouton, barre de menu ou d'état, bref


rien.

Merci d'avance,

Amicalement
Thierry
.




.




.


.