GIF animé dans Userform suite

Le
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: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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4551391
As-tu essayé de cette façon ?

'----------------------
Private Sub UserForm_Initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
" DoEvents
End Sub
'----------------------


"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'>" & _
" 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
Jean-Paul V
Le #4551251
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'>" & _
" DoEvents
End Sub
'----------------------


"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'>" & _
" 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





Publicité
Poster une réponse
Anonyme