' Créer une instance de Word
Set AppWd = New Word.Application
' Ouvrir le fichier et Afficher l'application
AppWd.Documents.Open VPath & VFic
AppWd.Visible = True
Set WdDoc = AppWd.ActiveDocument
' Sauvegarder le fichier
VFic = "L" & MaRef & " R1 - " & NomClt & ".doc"
WdDoc.SaveAs VPath & VFic
' Inscrire toutes les balises
Ecriture_balise "TIERS", NumClt
Ecriture_balise "REF", MaRef
Ecriture_balise "DATE", Format(Now(), "dd/mm/yyyy")
Ecriture_balise "NOMCLT", "TOTO"
' Etc ...
' Pour coller un tableau à partir d'Excel
' Se positionner sur la balise <TABLEAU>
With AppWd.Selection.Find
.ClearFormatting
.Text = "<TABLEAU>"
.MatchWildcards = False
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
AppWd.Selection.Find.Execute
' Copier le tableau dans excel
With Sheets("NomFeuille")
DLigR = .Range("F" & Rows.Count).End(xlUp).Row
.Range("A1:F" & DLigR).Copy
End With
' Le coller dans Word
AppWd.Selection.Paste
'WdDoc.PrintOut Background:=True
' Fermer le fichier et effacer la variable objet
'WdDoc.Close SaveChanges:=True
Set WdDoc = Nothing
' Quitter l'application et effacer la variable objet
'AppWd.Quit
Set AppWd = Nothing