Probleme d'insertion d'image sous Ms Word

Salut à tous, :( voila mon problème est lorsque j'essaye d'insérer une image sous Word depuis vb6 pour la premier fois elle fonctionne parfaitement, mais pour la deuxième fois elle affiche un message d'erreur de type :
"le serveur distant n'existe pas ou n'est pas disponible", ;) merci de trouver une solution pour mon problème.

Bonjour,

c'est gentil de nous mettre une devinette mais si tu souhaites vraiment une solution, ce serait mieux de nous mettre ton code pour que quelqu'un ait une chance de t'aider.

Voila le code que j’utilise pour insérer une image dans ms word :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Option Explicit   Private MyWord As New Word.Application   Private Sub VhlPrint_Click() Dim PathDoc As String Dim Req As String   PathDoc = App.path & "Templates\ InfosClient.doc"   Req = "SELECT * FROM Client WHERE idc=" & Val(Text1.Text) If Rssel.State = adStateOpen Then Rssel.Close Rssel.Open Req, DBConnect   With MyWord .Documents.Open (PathDoc) .Visible = True If Dir(App.path & "Images\" & Rssel.Fields("idc").Value & ".jpg", vbHidden) <> "" Then .ActiveDocument.Bookmarks("image").Select Selection.InlineShapes.AddPicture App.path & "Images\" & Rssel.Fields("idc").Value & ".jpg", False, True End If .ActiveDocument.GrammarChecked = False .ActiveDocument.SaveAs (App.path & Rssel.Fields("idc").Value & "_(" & Format(Date, "dd-mmmm-yyyy") & ").doc") End With   DoEvents Set MyWord = Nothing Set Rssel = Nothing End Sub

---

J'ai trouver une solution pour mon problème, j'ai modifier la ligne suivante :

Code:

---

Selection.InlineShapes.AddPicture App.path & "Images\" & Rssel.Fields("idc").Value & ".jpg", False, True

---

par :

Code:

---

.Selection.InlineShapes.AddPicture App.path & "Images\" & Rssel.Fields("idc").Value & ".jpg", False, True

---

veuillez noter le point avant la propriété Selection.

oui les sélection select activeDocument ... c'est pas terrible dans ce genre de code et se serai plutôt à banir ..:

inspire toi de :

Code:

---

1 2 3 4 5 6 7 8

Dim MyDoc as Word.Document   set MydDoc = MyWord.Documents.Open (PathDoc) (...)   MyDoc.Bookmarks("image").InlineShapes.AddPicture App.path & "Images\" & Rssel.Fields("idc").Value & ".jpg", False, True (..)

---