Tableau Excel remplisage trame word amelioration

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érente

actuellement ma macro ne le fait pas

pouvez vous m'aide sur le sujet ci dessous 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

merci par avance

bredeche a écrit :

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érente

actuellement ma macro ne le fait pas

pouvez vous m'aide sur le sujet ci dessous 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

merci par avance

je pense que cela n'ai pas grand chose je suis bloque

pouvez vous m'aider