bredeche
XLDnaute Occasionnel
bonjour
j'ai réaliser un tableau et une macro afin que les éléments ou j'ai défini des signet dans Word soit rempli
dans excel les noms defini son sur la ligne 6 du tableau
mais ma macro cui dessous me dis que j'ai une erreur et je ne comprend pas
pouvez vous m'aidez
merci par vance
j'ai réaliser un tableau et une macro afin que les éléments ou j'ai défini des signet dans Word soit rempli
dans excel les noms defini son sur la ligne 6 du tableau
mais ma macro cui dessous me dis que j'ai une erreur et je ne comprend pas
VB:
Sub deb()
chemin = ThisWorkbook.Path & "\"
'Ouverture de l'application word
Set w = CreateObject("word.application")
'ouverture du fichier type
Set doc = w.documents.Open(chemin & ThisWorkbook.Names("fichier").RefersToRange)
'numéro des colonnes comprenant les données
champs = Array(4, 8, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22)
'tableau des signets du fichier type
signets = Array("Entreprise", "AdresseENTREPRISE", "CODEPOSTAL", "NOMPRENOM", "INTITULECONTRAT", "CADRECONTRACTUEL", "SITESEXECUTIONS", "PRIX", "PRIXENLETTRE", "PAIEMENTS", "CODEIMPUTATION", "ANNEXE", "DATE")
'écriture des signets
For Each i In champs
doc.bookmarks(signets(i - 1)).Range = Sheets("TABLEAU CONTRAT SOUS-TRAITANCE").Cells(ActiveCell.Row, i)
Next
w.Visible = True
End Submerci par vance