Manipuler des tableaux Word ayant un titre depuis une macro Excel
Bonjour à tous,
Auriez-vous une solution pour manipuler des tableaux Word ayant un titre depuis une macro Excel.
J'ai attribué à tous les tableaux que je veux modifier un titre "TAB_modif" en allant dans les propriétés du tableau.
Du coup je peux modifier tous les tableaux qui ont le titre "TAB_modif".
Voici le code permettant de modifier un tableau avec son titre sur Word :
Sub Modifier_Tableau_Titre()
Dim tableau As Table
With ActiveDocument
If .Tables.Count >= 1 Then
'Si il y a un ou plusieurs tableaux
For Each tableau In ActiveDocument.Tables
'On rentre dans la boucle For pour tous les tableaux du document Word
If tableau.Title = "TAB_modif" Then
'On ne modifie pas le tableau si il ne s'appelle pas TAB_modif
With tableau
'On ajoute ici toutes les modifications que l'on veut apporter aux tableaux ayant le titre "TAB_modif"
End With
End If
Next tableau
End If
End With
End Sub
Donc le code d'en haut permet de gérer les tableaux de mon document Word depuis une macro Word du coup rien de spéciale.
Ce que je voudrais faire c'est gérer ces tableaux (ayant le titre "TAB_modif") depuis une macro Excel.
J'ai pensé à utilisé sur Excel :
WordDoc.Tables.Title = "TAB_modif"
Mais malheureusement je pense que cette syntaxe n'existe pas.
Toute aide serait la bienvenue :)
Bonne journée !
Heum,
Un peu tiré par les cheveux, mais bon
Sub Complete_tableauX(T As Variant)
Dim i As Integer, j As Integer
With WordDoc
For i = 1 To .Tables.Count
For j = 1 To UBound(T)
If T(j, 1) = .Tables(i).Title Then
.Tables(i).Cell(2, 3).Range.Text = T(j, 3)
.Tables(i).Cell(2, 4).Range.Text = T(j, 4)
End If
Next j
Next i
End With
End Sub
Pierre