Discussion :

[lejwagner]

Bonjour,

J'ai un document word avec un tableau où je mets des références et je dois chaque fois reprendre un autre document et l'ajouter à la fin.
J'aimerais faire :
telle référence dans la cellule, alors tu inclus tel document.
Serais possible et comment ? svp

Merci

[Heureux-oli]

Salut,

Oui, c'est possible.

Il suffit de faire une boucle sur les cellules du tableau et pour chaque cellule contenant une valeur ajouter le document correspondant à la fin.

Mais avec si peu de renseigment, difficile d'en dire plus.

[lejwagner]

Je suis débutant donc je vais essayer de détailler un peu plus :

Actuellement pour réaliser mes documents
j'ai un tableau sous Word avec une référence une désignation :
mais chaque référence correspond à une désignation et une fiche descriptive détaillée avec du texte et des images que j'ai dans plus documents Word
exemple :

mon tableau sous word
---------------------------------------------
| réf : | désignation courte : |
---------------------------------------------
| RSP052 | Rose Rouge hative Mars |
----------------------------------------------


j'aimerais qu'il m'insère automatiquement la fiche que j'ai créée correspondante qui est l'intégralité du fichier rsp052.doc

j'ai 850 fichiers différents avec 850 références correspondantes


C'est pour que je puisse transmettre une lettre avec en dessous mon tableau avec mes références et qu'il ajoute mes fiches en fonction de ce que j'ai mis dans le tableau si j'ai mis 1 référence il ajoute unique la fiche indiquée dans le tableau s'il y en 2 ou 3 il ajoute les 2 ou 3 à la suite.

Est ce possible et si oui comment ?

[Heureux-oli]

Salut,

C'est plus clair.

Juste une petite suggestion, pourquoi utiliser Word pour gérer ces références ?
Une base de données comme Access serait beaucoup plus performant.

Si tu crées le tableau à chaque nouveau document.

La première chose est une boucle sur la table de ton document.
Effectuer un traitement pour chaque cellule parcourue.

Code :

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

1
2
3
4
5
6
7
8
9
Dim oTbl As Table
Dim intC As Integer
 
Set oTbl = ActiveDocument.Tables(1)
 
For intC = 1 To oTbl.Rows.Count
'Récupération de cellule
    oTbl.Cell(intC, 1).Range.Text
Next intC

Le problème est qu'une cellule contient autre chose que du texte, elle contient aussi deux caractères supplémentaires qu'il convient de supprimer.

http://heureuxoli.developpez.com/off...e=page6#L6-A-3

Il suffit alors d'insérer le fichier sélectionné dans ton document.

Code :

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

1
2
   Selection.InsertFile FileName:="monFichier.doc", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False