Discussion :

[baptx]

J'aimerai créer un tableau dynamique si celui-ci n'est pas présent dans mon document Word. Donc pour vérifier l'existence de ce tableau, je fais(sachant que je pilote Word&Excel en même temps):

Code :

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

1
2
3
4
5
6
'Si pas de tableau, on va le créer
On Error GoTo CreationTableau
WordDoc.Tables(1).Columns(1).Cells(3).Range.Text = Range("A1")
...
'Creation du tableau
CreationTableau:

J'ai un signet qui s'appelle Signet3. Voilà mes questions:
1) Est-ce la bonne solution pour vérifier que le tableau existe dans la feuille Word ?
1) Si le programme va au marqueur CreationTableau, je ne trouve pas comment créer un tableau de 1 lignes avec x colonnes en insérant le nom de mes colonnes avec des strings (par exemple: RefProduit, NomProduit, Prix, etc...)
2) Si le programme ne va pas au marqueur (donc si le tableau existe), je ne trouve pas comment insérer une nouvelle ligne dans le tableau Word.

Normalement, pour la suite, je vais insérer des valeurs de cases Excel dedans mais ça j'ai trouvé comment le faire.

Bien entendu, quand j'enregistre mes macros de Word, ça ne marche pas -_-

[baptx]

Quand je fais:

Code :

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

WordDoc.Tables.Add Range:=WordDoc.Selection, NumRows:=2, NumColumns:=2

Il me répond:

L'objet ne gère pas cette propriété ou cette méthode

[baptx]

Bon après moultes péripéties, j'ai trouvé comment mettre le curseur au signet:

Code :

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

WordApp.Selection.Goto What:=wdGoToBookmark, Name:="Signet3" 'On va au signet 3

Mais par contre, je comprend pas à quoi sert le Range dans:

Code :

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

WordDoc.Tables.Add Range:=WordDoc.Range, NumRows:=2, NumColumns:=2

Et quand je met cette ligne telle quelle le tableau se retrouve tout au début du document et efface le reste du texte.

Je suppose que Range doit être la position dans le document. Comment faire pour dire à Range de prendre la position du Signet 3 ?