Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel GIF animé dans Userform suite

GIF animé dans Userform suite

2 réponses
Avatar
Jean-Paul V
Bonjour à tous

J’ai un fichier avec la macro de Sigonneau avec un Gif animé dans un Userform.
le code du Userform qui marche est :

Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\DOCS\Excelabo\Amicalement.gif'></img></body></html>"
DoEvents
End Sub

Est-il possible de le modifier afin de ne pas donner le chemin sachant que
le Gif animé est dans le même répertoire que le fichier.

J’avais pensé à un truc comme :
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src="'"&ThisWorkbook.Path &
"\Amicalement.gif"&"'"></img></body></html>"
DoEvents
End Sub
Çà ne se plante pas, mais ça ne marche pas.
J’ai fais plusieurs modif en vain qui pourrait m’aider, et est-ce possible ?

@+ j’espère
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
MichDenis
As-tu essayé de cette façon ?

'----------------------
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='" & ThisWorkbook.Path & "Amicalement.gif'></img></body></html>"
DoEvents
End Sub
'----------------------


"Jean-Paul V" a écrit dans le message de news:

Bonjour à tous

J'ai un fichier avec la macro de Sigonneau avec un Gif animé dans un Userform.
le code du Userform qui marche est :

Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:DOCSExcelaboAmicalement.gif'></img></body></html>"
DoEvents
End Sub

Est-il possible de le modifier afin de ne pas donner le chemin sachant que
le Gif animé est dans le même répertoire que le fichier.

J'avais pensé à un truc comme :
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src="'"&ThisWorkbook.Path &
"Amicalement.gif"&"'"></img></body></html>"
DoEvents
End Sub
Çà ne se plante pas, mais ça ne marche pas.
J'ai fais plusieurs modif en vain qui pourrait m'aider, et est-ce possible ?

@+ j'espère
Avatar
Jean-Paul V
Merci, ça marche, reste à analyser pourquoi je n'ai pas trouvé la solution.


As-tu essayé de cette façon ?

'----------------------
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='" & ThisWorkbook.Path & "Amicalement.gif'></img></body></html>"
DoEvents
End Sub
'----------------------


"Jean-Paul V" a écrit dans le message de news:

Bonjour à tous

J'ai un fichier avec la macro de Sigonneau avec un Gif animé dans un Userform.
le code du Userform qui marche est :

Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:DOCSExcelaboAmicalement.gif'></img></body></html>"
DoEvents
End Sub

Est-il possible de le modifier afin de ne pas donner le chemin sachant que
le Gif animé est dans le même répertoire que le fichier.

J'avais pensé à un truc comme :
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src="'"&ThisWorkbook.Path &
"Amicalement.gif"&"'"></img></body></html>"
DoEvents
End Sub
Çà ne se plante pas, mais ça ne marche pas.
J'ai fais plusieurs modif en vain qui pourrait m'aider, et est-ce possible ?

@+ j'espère