Discussion :

[cbredeche]

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 avec l'aide des discussion sur le forum

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 comme celle "sauf des condition change "
actuellement ma macro ne le fait pas

je ne sais pas comment et ou je dois modifier

pouvez vous m'aide sur le sujet ci dessous ma macro actuel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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