Discussion :

[dede_bo]

Bonjour à tous
Je ne trouve pas mon erreur. Je crée un tableau en fin de document et j'aimerais lui donner un nom.

Raison: Si le tableau existe, il faut le supprimer et créer un nouveau.

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
22
23
24
25
26
27
28
 
    Dim wordDoc As Document
    Dim wordTable As Table 
    Dim nomfichier As String
    Dim wordRange As Range
 
    nomfichier = "Mondoc.docm"
    Set wordDoc = ActiveDocument
 
    tc = wordDoc.Tables.Count   ' Nombre de tableau dans le document
 
    ' Calcul la position du nouveau tableau pour l'ajouter en fin de document.
    ' ------------------------------------------------------------------------
 
    Set wordRange = wordDoc.Range(wordDoc.Range.Characters.Count - 1)
 
    wordRange.Paragraphs.Add   ' Evite que le nouveau tableau s'insère dans le 1er.
 
    wordRange.Collapse direction:=wdCollapseEnd
 
    ' Ajoute une table d' 1 ligne et de 10 colonnes
    ' ---------------------------------------------
    cl = 10
 
    Set wordTable = wordRange.Tables.Add(wordRange, 1, cl, wdWord9TableBehavior, wdAutoFitContent)
    Set PrevRow = wordTable.Rows(wordTable.Rows.Count)
 
    wordTable.Title = "_Result"   ' Lors de l'exécution, je reçois l'erreur : "Erreur 425: Object doesn't support this action"

Je ne vois pas mon erreur.
Quelqu'un parmi vous vois quelque chose?

Merci de votre aide
André

[Marc-L]

Bonjour, bonjour !

C'est normal, la propriété n'existe pas ! Consulter l'aide VBA de l'objet Table …



______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[dede_bo]

Bonjour,
Merci de votre réaction rapide.

Ne le prenez pas mal, mais au regret de vous dire que cet propriété existe.
Voici une copie d'écran du fichier Help.

Pièce jointe 191900

André

[Heureux-oli]

Salut,

Title et Name ne sont pas la même chose.
ET non, il n'est pas possible de donner un nom à un tableau.

Je vais le prouver tout de suite.
En VBA, les nom sont uniques.
Or, crée deux tableaux dans un document.
Tu peux donner le même "Title" à ces deux tableaux. Ce qui prouve que ce n'est pas un nom qui est donné.

Essaie de donner deux fois le même nom à des signets, des images, ....

[Marc-L]

Désolé, dans ma version de tests plus ancienne cette propriété n'existe pas …

[Heureux-oli]

Salut,

Je peux pas dire avec quelle version le titre est apparu.
C'est intéressant si on veut atteindre un tableau, mais il faut une structure conditionnelle pour le trouver.

[Marc-L]

Bonjour.

Je peux pas dire avec quelle version le titre est apparu.

2007 ou 2010 car 2003 n'en dispose pas …

[clementmarcotte]

Bonjour,

Dans l'aide de VBA, il disent 2010.

Référence du développeur Word
Table.Title, propriété
Renvoie ou définit une valeur de type String qui contient un titre pour le tableau spécifié. En lecture-écriture.
Informations sur la version
Version ajoutée : Word 2010

P.S. Pour la petite histoire, j'ai aussi découvert au moins une autre nouveauté de 2010:

Référence du développeur Word
Table.Descr, propriété
Renvoie ou définit une valeur de type String qui contient une description pour le tableau spécifié. En lecture-écriture.
Informations sur la version
Version ajoutée : Word 2010

[Heureux-oli]

Saalut,

2016 n'a toujours pas la propriété Name.
Il faudra attendre la suivante.