Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel pb chargement gif animé

pb chargement gif animé

1 réponse
Avatar
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
Progs\MAGASIN\PRINCIPAL\images\Cles-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
Signaler un problème avec ce contenu

1 réponse

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
FFO
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