Bonjour à tous,
Voici comment je m'y prends:
main.WrdEdt = "C:\APLIS\DOC\EDT\machin.docx"'document à éditer
main.WrdMdl = "C:\APLIS\DOC\MDL\Modele.docx" 'document modèle
main.AppWrd = CreateObject("Word.Application")
main.AppWrd.Visible = False
main.AppDoc = main.AppWrd.Documents.Open(main.WrdMdl, ReadOnly:=False)
main.WrdItm = "dst1" : DocStg = "nom du destinataire" main.AppDoc.Variables(main.WrdItm).Value = DocStg main.AppDoc.Fields.Update()
main.AppWrd.ActiveDocument.SaveAs(main.WrdEdt)
main.AppWrd.ActiveDocument.Close()
main.AppWrd.Quit()
vb ne lève aucune exception ni aucune erreur mais les champs du document ne sont pas mis à jour
CHERCHER L'ERREUR !
Merci d'avance pour votre aide
Afficher la suite