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 31 32 33 34 35 36 37 38 39
| Sub objet_word()
Dim appWD As Object
Set appWD = CreateObject("Word.Application")
Set Mon_classeur_excel = ActiveSheet
Mon_classeur_excel.Range("A7:B20").Copy
'Pour appeler un modêle word fic_modele .dot déja etabli
appWD.Documents.Add Template:=G_chemin_modele & fic_modele_dot, NewTemplate:=False, DocumentType:=0
' appWD.ActiveDocument.Tables(1).Cell(1, 2).Select
' ou 2ème choix , pour ajouter un nouveau fichier
' appWD.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
'On veut copier les données à un endroit donné "début tableau"
With appWD.Selection.Find
.Text = "début tableau"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
appWD.Selection.Find.Execute
appWD.Selection.TypeParagraph ' on va a la ligne
appWD.Selection.PasteExcelTable False, False, False ' on recopie le presse papier
appWD.ActiveDocument.SaveAs chemin_fichier & "Mon fichier créé_" ' on sauvegarde
appWD.ActiveDocument.Close
End Sub |
Partager