Discussion :

[Marco le Pouillot]

Bonjour,
J'essaye, sous Word 2003 SP2, de récupérer le texte d'une cellule d'un tableau avec

Code :

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

strMaChaîne = ActiveDocument.Tables(1).Rows(1).Range.Text

Le problème, c'est que j'ai systématiquement deux caractères inconnus (qui s'affichent avec un carré) à la fin de strMaChaîne.
Par exemple, si dans la première colonne de la première ligne de mon tableau, j'ai le mot Tableau, je me retrouve avec Tableauoo dans strMaChaîne (oo correspondant à deux carrés représentant deux caractères inconnus).
Comment faire pour simplement récupérer le contenu d'une cellule?
Merci,

Marc

[ogenki]

bonjour
tu a essayé en enregistrant une macro pour voir se que sa te propose ?

[ouskel'n'or]

Le problème, c'est que j'ai systématiquement deux caractères inconnus (qui s'affichent avec un carré) à la fin de strMaChaîne.

Ce sont certainement des cr ou lf ou crlf que tu as en fin de ligne
Tu peux les écarter avec

Code :

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

1
2
3
if inst(LaLigne,chr(13)) <>0 then
           LaLigne = Left(LaLigne, inst(LaLigne,chr(13))-1)
endif

Juste pour l'idée

A+

Edit
Je crois savoir que inst(LaLigne,vbcrlf) ne fonctionne pas :

[Marco le Pouillot]

Ce sont certainement des cr ou lf ou crlf que tu as en fin de ligne

Exact.

Pour info, le bon code est

Code :

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

    If InStr(strMaChaîne, Chr(13)) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, Chr(13)) - 1)

Merci beaucoup,

Marc

[ThierryAIM]

Pour info, les caractères de fin dans une cellule de tableau Word sont 0D et 07 en hexa

[ThierryAIM]

et ta syntaxe ne récupère pas une cellule mais la ligne entière
c'est le résultat de ton left qui fait que tu n'a que la première valeur

pour une cellule :

Code :

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

strMaChaîne = ActiveDocument.Tables(1).Cell(1, 1).Range.Text

[bouley]

Bonjour tous,
mais si la cellule contient un retour chariot avec du texte aprés
la syntaxe

Code :

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

  If InStr(strMaChaîne, Chr(13)) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, Chr(13)) - 1)

n'est pas valable

Code :

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

1
2
FinText = Chr(13) & Chr(7)
If InStr(strMaChaîne, FinText) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, FinText) - 1)

celle-ci est ok avec ou sans retour chariot

@+

[ouskel'n'or]

FinText = Chr(13) & Chr(7)

Je suppose que chr(7) est le zigouïgouï se trouvant en fin d'une ligne sans cr...
Effectivement, j'avais shunté la possibilité d'un saut de ligne dans la cellule.
Bien vu mais s'il y a deux cr ? alors il faut tester de nouveau... ?

A+

[ouskel'n'or]

Donc, il faut une boucle dans laquelle on corrige strMaChaîne tant qu'elle contient Chr(13)...

Code :

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

1
2
3
do While instr(strMaChaîne , FinText )<>0
... 
Loop

Hi hi !

Edit
J'ai corrigé (!)

[bouley]

Bien vu mais s'il y a deux cr ? alors il faut tester de nouveau... ?

je crois bien !!!!
@+

[ThierryAIM]

chr(7) marque la fin du texte dans la cellule (c'est pratique, un éditeur hexa )

Après, tout dépend de ce que l'on veut faire du texte récupéré

On peut traiter ou pas les chr(13), les remplacer, les virer,... enfin ca dépend, quoi

[bouley]

Quelque soit le nombre de retour chariot
utilisons InStrRev au lieu de InStr

Code :

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

If InStrRev(strMaChaîne, fintext) <> 0 Then strMaChaîne = Left$(strMaChaîne, InStr(strMaChaîne, fintext) - 1)

En plus cela fontionne !!!
@+