Discussion :

[jemalu]

Bonjour,
J'ai trouvé un tuto de Olivier Lebeau qui explique comment faire.
Malheureusement chez moi, j'obtiens un message d'erreur qui doit être en rapport avec le chemin à suivre pour trouver les Gifs.
Dans le tuto, j'ai:

WebBrowser.Navigate "C:\Documents and Settings\Olivier\Mes documents\Mes images\Gifs\easy.gif"

Moi, j'ai mis: "C:\users\jean-Marie\mes images\gifs animés"
Cela ne fonctionne pas. Si je rajoute à la fin le nom d'un fichier .gif, pas plus de réussite.

Quelqu'un a t'il une idée ?
Merci

[Heureux-oli]

Salut,

C'est le chemin et le nom précis du fichier qu'il faut utiliser.

[jemalu]

Bonsoir,
C'est ce que j'ai fait avec un gif appelé 26.gif, mais j'obtiens la réponse ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Document_Open()
WebBrowser.Navigate "C:\users\jean-marie\mes images\gif animes\26.gif"
End Sub

[Heureux-oli]

Salut,


Si c'est le premier objet WebBrowser de ton document, essaie de mettre un 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Navigate

[jemalu]

Bonsoir,

Merci, ça marche. J'ai mis 1 après webbrowser. J'ai aussi par la suite changé de gif animé avec succès. J'ai envoyé par mail la page Word: pas de Pb, le gif reste animé.

Dernière question: Si je voulais mettre un deuxième gif animé ailleurs dans la page, comment s'y prendre?

Merci d'avance

[Heureux-oli]

Salut,

On ajoute un second objet Web.
Et on dédouble certaines lignes du code avec des identifiants différents 1, 2, 3,...

[jemalu]

Bonsoir,
Voilà ce que j'ai fait, mais qui ne fonctionne pas.
Peux-tu être plus précis ?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Document_Open()
WebBrowser1.Navigate "C:\users\jean-marie\mes images\gif animes\hiver noël\13.gif"
WebBrowser2.Navigate "C:\users\jean-marie\mes images\gif animes\hiver noël\14.gif"
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.scroll = "no"
WebBrowser1.Document.body.Style.BorderStyle = "none"
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser2.Document.body.scroll = "no"
WebBrowser2.Document.body.Style.BorderStyle = "none"

[jemalu]

Bonsoir,
Excuses... Je ne savais pas. Pas non plus que c'était du VBA (c'est dire).
Je vais m'appliquer. En attendant, que peux-tu me proposer pour avancer dans mon entreprise d'insertion de Gifs animés?
Mais, tu as vu que je ne maitrise pas vraiment les macros

Merci d'avance

[Heureux-oli]

Salut,

Apprendre la VBA.

[jemalu]

Bonjour,
Franchement, je n'y comprends plus rien.
Peux-tu me dire de façon claire ce que je dois faire ?
Ce fameux code où je dois cliquer, si ce n'est pas le caractère # que l'on voit ci-dessus, c'est quoi ?
Pour ceux qui savent, tout est facile. Un peu de pédagogie me permettrait d'avancer.
Si ce n'est pas possible, alors, je me suis trompé de porte et je te présente mes excuses.

[Heureux-oli]

Salut,

Le # sert juste à mettre des balises pour l'affichage du code sur le forum se fasse de façon différente du texte.

Pour le VBA, si tu souhaites apprendre commenr ça fonctionne, tu peux lire les différents tutoriels qui en parlent.

http://heureuxoli.developpez.com/office/word/vba-all/