Lecture cellule tableau vba Word

Question

Bonjour, 

J'ai un problème au niveau de la lecture de cellule d'un tableau word vba.
En effet, je crée un tableau word par vba, le complète et veut lire la valeur d'une cellule. Le texte de la cellule est aligné à gauche (donc pas au centre ni à droite) et lorsque je lis le contenu de la cellule, ma variable contient la chaine de caractère contenu dans la cellule plus deux petit carrés à la fin.

J'ai essayé de d'aligner le texte au milieu ou à droite mais aucun changement.

Peut-être que j'utilise une mauvaise méthode pour lire le contenue d'une cellule ? Je vous joint mon code:

'On insère un tableau pour la matrice de couverture
Set contenu = docWord.content
contenu.Collapse Direction:=wdCollapseEnd
docWord.Tables.Add Range:=contenu, NumRows:=rec.RecordCount + 1, NumColumns:=3

numtabOVV = docWord.Tables.Count

'On donne un thème au tableau
With docWord.Tables(numtabOVV)
                                    
    'on définit le style du tableau
    .Style = ("Grille du tableau")
                                    
 End With

'///////////////////////
'Remplissage du tableau/
'///////////////////////

'Lecture de la cellule
nomdelaConf = docWord.Tables(numLastTab).Cell(1, 2).Range.Text 'Avec nomdelaConf  déclarée en string

Quelqu'un pourrait-il m'aider ? ou me donner des pistes ?  

Je vous remercie d'avance.

Thomas

ThomasFalguieres · Answer

Je ne l'ai pas dit explicitement mais lors de la lecture du contenue de la cellule, j'aimerais avoir la chaine de caractères contenue dans la cellule sans les deux petits carrés derrière

cs_loulou69 · Answer

Bonjour

'Remplissage de cellule du tableau 

Dim cell as Range
set cell= docWord.Tables(numtabOVV).Cell(1, 2).Range
cell.Select
'Remplissage de cellule
cell.Text = "CONTENU"
Selection.Alignment = wdAlignParagraphCenter

Les 2 petits carré que tu visuale dans Word sont les codes fin de chaine, fin de cellule

ThomasFalguieres · Answer

Merci pour ta réponse mais je voudrais savoir en fait comment tu peux lire le contenu de la cellule sans lire les caractères de fin de chaine et de fin de cellule 

Au moins tu m'as appris ce qu'était ces deux caractères et ca me servira j'en suis sûr pour plus tard.

Sais-tu donc comment lire le contenu d'une cellule ? 

Merci pour ton aide.

thomas

cs_loulou69 · Answer

une fois la cellule selectionnée
cell.Select 

alors
Selection.Text

contient le contenu de la cellule sans les 2 caractères

ThomasFalguieres · Answer

J'exécute ce code mais cela me lève une erreur: "Incompatibilité de type". Je ne comprends pas car des deux côtés nous avons des types "range" et j'ai quand même une erreur.


Dim cellule As Range
Set cellule = docWord.Tables(numLastTab).Cell(1, 2).Range
nomdelaConf = cellule.Text

Sinon j'ai essayé autre chose mais la je n'ai aucune chaine de caractère, autrement dit je pense que ça ne lit pas le contenu de la cellule. Voici l'autre solution:

docWord.Tables(numLastTab).Cell(1, 2).Range.Select
nomdelaConf = selection.Text

J'ai beau essayer plein de choses, j'avouerais que je bloque. De plus, bloquer sur une chose aussi simple me frustre 

Aurais-tu d'autres idées ??

Encore merci de ton aide.

Thomas

Lecture cellule tableau vba Word

5 réponses

Votre réponse

Discussions similaires