bredeche
XLDnaute Occasionnel
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
pouvez vous m'aide sur le sujet
merci par avance
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
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(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 Submerci par avance