Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Tableau excel remplisage trame word amelioration

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
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 Sub
pouvez vous m'aide sur le sujet
merci par avance
 

Pièces jointes

  • ES MAI-48-DO-SUIVI CONTRAT SST-2019-11-V1 .xlsm
    396.9 KB · Affichages: 5
  • toto3.doc
    112.5 KB · Affichages: 2
  • toto4 .doc
    112.5 KB · Affichages: 2
  • toto5.doc
    112.5 KB · Affichages: 4
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…