XL 2016 Tableau excel remplisage trame word amelioration

[bredeche]

bonjour
j'ai crée un tableau qui par le biais d'une macro les données renseigner vont s'inscrire dans des signets word
pour cela sa marche

mais le souci rencontré est qu'avant j'avais une trame word unique pas de souci .

je voudrais utiliser les même fonctions mais avoir le choix de sélection entre 3 trames différentes
actuellement ma macro ne le fait pas ci dessus ma macro actuel

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(76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90)
'tableau des signets du fichier type
signets = Array("NCONTRAT", "Entreprise", "AdresseENTREPRISE", "CODEPOSTAL", "NOMPRENOM", "INTITULECONTRAT", "CADRECONTRACTUEL", "SITESEXECUTIONS", "PRIX", "PRIXENLETTRE", "PAIEMENTS", "CODEIMPUTATION", "ANNEXE", "DATE", "NCONTRAT2")
'écriture des signets
For i = LBound(signets) To UBound(signets)
doc.bookmarks(signets(i)).Range = Sheets("TABLEAU CONTRAT SOUS-TRAITANCE").Cells(ActiveCell.Row, champs(i))
Next
w.Visible = True
End Sub

pouvez vous m'aide sur le sujet
merci par avance

 

[bredeche]

bonjour
n'ayant pas de repose je cloture le dossier