pb chargement gif animé

Le
David Turquin
sur le site j'ai trouvé comment remplacer une image fixe par un gif animé:

Private Sub UserForm_Initialize() 'affiche gif animé
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src=D:Mes
ProgsMAGASINPRINCIPALimagesCles-7.gif></img></body></html>"
End Sub


Le chemin et nom de mon fichier peuvent changer j'aurais donc voulu faire:

Private Sub UserForm_Initialize() 'affiche gif animé
'Repert = Worksheets("parama").Range("C18")
'MONFichier = Repert & "Cles-7.gif"
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src=MONFichier></img></body></html>"
End Sub

J'ai essayé plein d'autres choses mais rien ne marche
qu'est-ce qu'il faut faire???

david.turquin@wanadoo.fr


merci d'avance
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
FFO
Le #18082291
Salut à toi

Comme ceci c'est y pas mieux :

Repert = Worksheets("parama").Range("C18")
MONFichier = Repert & "Cles-7.gif"
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src=" & MONFichier & "></img></body></html>"

Dis moi !!!

Attention dans ta cellule C18 tu dois avoir quelque chose du style :
C:Chemin
Publicité
Poster une réponse
Anonyme