Discussion :

[XeonB]

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.

[OhMonBato]

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.

[XeonB]

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

Code :

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

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

[XeonB]

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

Code :

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

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

par :

Code :

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

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

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

[SfJ5Rpw8]

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 :

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

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
(..)