Discussion :

[FIrvine_85]

Bonjour à tous,

Je ne suis pas du genre à poster des demandes d'aide, mais après de nombreuses recherches, j'avoue que je sèche un peu sur des solutions...

Je suis en train de transférer de nombreux tableaux de différents Word dans un classeur Excel.
Pour cette partie je n'ai pas eu trop de soucis.

Par contre une des cellules des tableaux Word contient un champ type numérotation automatique qui identifie de manière unique la ligne.

En collant le tableau la numérotation se fait a partir de 1 a chaque tableau alors que par document la numérotation doit se suivre.

J'ai regardé avec un espion sur la valeur de la cellule je retrouve mon texte suivi de deux symboles carrés (les deux carrés sont justement les numéros).

Avez vous une idée pour coller en valeur ce champs (je ne trouve pas)...

Code :

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

1
2
3
 
WordDoc.Tables(i).Range.Copy
ActiveSheet.PasteSpecial Format:"HTML", link:=false, DisplayAsIcone:=false, NoHTMLFormatting:=True

Merci d'avance.

[EricDgn]

Bonjour,

Il serait plus facile de donner une bonne réponse si l'on pouvait disposer d'un exemple de résultat sur Excel et de document Word (réduits à l'essentiel).

Cordialement.

[FIrvine_85]

Bonjour EricDgn,

Merci pour le message,
Oui j'ai préparé un jeu de fichier test.

J'ai un peu commenté le code, j'ai mis

Code :

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

 '###C'est ici que je lutte"

en repère dans le sub copy_table_word car c'est là que ça se joue a mon avis.

Merci d'avance de l'aide apporté.
(et conseil si quelque chose choque dans le code)

[jurassic pork]

hello,
tu peux essayer ceci :

Code :

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

1
2
        '###C'est ici que je lutte
        WordDoc.Fields.Unlink

Le principe : on convertit tous les champs du document texte en texte qui correspond à la valeur affichée du champ avant de faire la copie.

Ami calmant, J.P

[FIrvine_85]

Bonjour,

Merci jurassic pork !
Ca a l'air de fonctionner sur mon fichier de test.

Je teste lundi sur le fichier réel et je passerai en résolu.

Merci bon week end.

[Edit] Ca marche super merci encore. Je passe le sujet en résolu.