Bonjour,
J'ai un programme (VB.NET) qui permet de faire du publipostage dans Word. Chez tous mes clients, tout fonctionne parfaitement, sauf chez un client.
En gros, les clients créent un document Word (en-tête, pied de page, logo de la société...)et chez ce client, toutes les images qu'il a lui même mises dans son document disparaissent et il a un message au lieu de l'image
qui dit que l'image ne peut pas être trouvée.
Le client peut choisir plusieurs documents et ils sont tous affichés un à la suite de l'autre
Mon principe de mailmerge est le suivant :
Est-ce que quelqu'un a déjà eu ce problème, auriez-vous une idée de ce que je peux faire pour résoudre ce problème?
Comme un seul client a le problème (et sur un seul ordinateur, l'autre fonctionne parfaitement), je ne sais pas quoi faire.
Merci
Marc
Avec NewDoc = aWord.Documents.Add
TempDoc = aWord.Documents.Open(.Tag) ' LE .Tag est en fait le nom ddu document source
If bo_First Then
NewDoc.PageSetup.LeftMargin = TempDoc.PageSetup.LeftMargin
NewDoc.PageSetup.RightMargin = TempDoc.PageSetup.RightMargin
NewDoc.PageSetup.TopMargin = TempDoc.PageSetup.TopMargin
NewDoc.PageSetup.BottomMargin = TempDoc.PageSetup.BottomMargin
bo_First = False
End If
With TempDoc.MailMerge
.MainDocumentType = 0 'Word.WdMailMergeMainDocType.wdFormLetters
.OpenDataSource(Name:=AllWinUser.PathRes &
"res.odc", LinkToSource:=True, AddToRecentFiles:=False, SQLStatement:="Select * from [tb_custcorrespPrj] Where si_PrjID =" & si_PrjID.ToString, Connection:=str_Con.ToString)
'
SQLStatement:="SELECT * FROM [tb_custcorrespPrj] where si_prjid=" & CStr(si_PrjID), Connection:=str_Con
'
.OpenDataSource(Name:=AllWinUser.PathRes & "res.odc", LinkToSource:=True, AddToRecentFiles:=False, SQLStatement:="Select * from [tb_custcorrespPrj] Where si_PrjID =" & si_PrjID.ToString, Connection:=str_Con.ToString)
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1 'Word.WdMailMergeDefaultRecord.wdDefaultFirstRecord
.LastRecord = -16 'Word.WdMailMergeDefaultRecord.wdDefaultLastRecord
End With
.Execute()
End With
aWord.ActiveDocument.SaveAs(AllWinUser.PathTemp & "a.tmp")
aWord.ActiveDocument.Close(False)
TempDoc.Close(False)
NewDoc.Activate()
aWord.Selection.InsertFile(FileName:=AllWinUser.PathTemp & "a.tmp",
Range:=String.Empty, ConfirmConversions:=False, Link:=False, Attachment:=False)
Kill(AllWinUser.PathTemp & "a.tmp")
