1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Sub CREEROUVRIRWORD()
CHEMIN = ThisWorkbook.Path & "\"
'Ouverture de l'application word
Set WORD = CreateObject("Word.Application")
'ouverture du fichier type
Set DOCMEMOIRE = WORD.documents.Open(CHEMIN & "ESSAI.docx")
'numéro des colonnes comprenant les données
champs = Array(1, 18, 20)
'tableau des signets du fichier type
signets = Array("REFERENCE", "NTIERS", "DATESAISIE")
'écriture des signets
'For Each i In champs
'DOCMEMOIRE.bookmarks(signets).Range = Sheets("TITRES").Cells(ActiveCell.Row, i)
'Next
WORD.Visible = True
End Sub |
Partager