Discussion :

[grooveus75]

Bonjour,

je cherche une aide concernant une des mes difficultés. Je dois régulièrement créer des tableaux avec 2 colonnes sous word 2003.

Sur la colonne de gauche j'y ajoute un commentaire, puis sur le colonne de droite une image au format jpg. (parfois mon tableau comporte 500 lignes).

Dans un répertoire défini par avance, mes images sont classés par ordre 001xxx.jpg, 002xxx.jpg, 003xxx.jpg etc.

Comment, à l'aide d'une macro ou autre, récupérer l'image 001 puis la coller dans la cellule droite de la ligne 1, puis récupérer l'image 002 puis la coller dans la cellule droite de la ligne 2 etc...

Aujourd'hui, je réalise cette tache qui me prend beaucoup de temps.


Merci d'avance pour vos réponses.

Gr.

[Sepia]

Salut Grooveus75,

Voici un exemple de code qui fonctionne avec les éléments que tu nous as fourni.

N'ayant pas plus d'info, j'ai supposé que

1. ton tableau était le 1er du document (sinon tu dois le retrouver pour te positionner sur sa 1ere cellule)
2. ton tableau n'était pas forcément en début de document
3. ton tableau n'avait que 2 colonnes
4. ton tableau n'avait pas d'entête ni de lignes non concernées par ta demande
5. tes fichiers d'image s'appelaient comme tu nous l'as dit "00nxxx.jpg". Donc Attention, si pour toi "xxx" signifie n'importe quelle chaine, tu devras adapter, en recherchant alors les fichiers locaux à ton répertoire qui commencent par le bon n°. Pour cela, tu n'as qu'à lire initialement la liste des fichiers de ton répertoire, à mettre les noms dans une liste et à rechercher sur le début de chaque élément. Sur ce sujet, Heureux-Oli a déjà fait une macro qui parcourt les fichiers d'un répertoire

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
17
18
19
20
21
Sub DVP_InsererLesImages()
    aRepertoire$ = <TonRepertoireAToi>
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToAbsolute
 
    For aI = 1 To ActiveDocument.Tables(1).Rows.Count
        Selection.MoveRight Unit:=wdCell
        If aI < 10 Then
            aNomFichier$ = "00" + Trim(Str$(aI)) + "xxx.jpg"
        ElseIf aI < 100 Then
            aNomFichier$ = "0" + Trim(Str$(aI)) + "xxx.jpg"
        Else
            aNomFichier$ = Trim(Str$(aI)) + "xxx.jpg"
        End If
 
 
        Selection.InlineShapes.AddPicture FileName:=aRepertoire$ + aNomFichier$, LinkToFile:=False, SaveWithDocument:=True
        Selection.MoveRight Unit:=wdCell
    Next
 
    ActiveDocument.Tables(1).Rows(ActiveDocument.Tables(1).Rows.Count).Delete
End Sub

a+

[Heureux-oli]

Salut,

Si on est dans un tableau, on peut connaître son index en étendant la sélection jusqu'au début du document et en comptant les tables de la sélection.

Code :

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

1
2
3
4
Dim oTbl As Table
 
Selection.HomeKey unit:=wdStory, Extend:=True
Set oTbl = ActiveDocument.Tables(Selection.Tables.Count)