Discussion :

[Jackfly]

Bonjour à tou(te)s,

J'ai essayé de visionner chaque post qui en parle, essayé encore et encore... je n'arrive toujours pas à récupérer la valeur d'un champ de word vers excel !?

J'ai créé un fichier word contenant 1 champ et puis, dans Excel, j'ai tapé ce code :

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
Sub recupere_champ_word()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim valeur As String
 
Set WordApp = CreateObject("word.application") 
Set WordDoc = WordApp.documents.Open("E:\Mes documents\essai.docx") 
WordApp.Visible = False '
 
valeur = WordDoc.Fields(1).Result.Text
WordDoc.Close False 
WordApp.Quit 
 
Range("A1").Value = valeur
 
End Sub

Le fichier word a bien l'air de s'ouvrir (mais je dois ouvrir une copie en lecture seule du fichier word !??) et puis j'ai une petite fenêtre dans excel qui s'affiche avec une grosse croix rouge avec les boutons "Ok" et "Aide"...

Mais aucune valeur dans la cellule A1 !?

J'ai pourtant coché dans "Outils - Références - "Microsoft Word 12.0 Object library" ...

Qu'est-ce que je fais ou pas qui ne va pas ?

Merci pour votre aide

[Daniel.C]

Bonjour,

Ça fonctionne ici (Excel 2013). Est-ce que tu peux mettre le doc Word en PJ ?

[Jackfly]

Bonjour Daniel,

Ah!? ... Cela me "conforte" un peu dans mes démarches... Donc, le problème viendrait du fichier word ?

Je le joins à ce post. Tu verras, c'est un fichier tout ce qu'il y a de simple... une seule phrase et un champ -> fichier de test...

Merci pour ton aide


PS. : Lorsque je vais dans le gestionnaire des tâches, je vois "plein" de processus WINWORD.EXE !? C'est normal ?
P.S.2 : Lorsque j'exécute la macro en mode débogage (pas à pas), j'ai l'erreur suivante sur la ligne valeur = WordDoc.FormFields(1).result
-> Erreur d'exécution '5941' : Erreur définie par l'application ou par l'objet ??

[Daniel.C]

Je ne suis pas expert en Word, mais ton document ne contient pas de "champ" mais un contrôle de contenu (ContentControl).

Il faut donc remplacer :

Code :

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

valeur = WordDoc.Fields(1).Result.Text

par :

Code :

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

valeur = WordDoc.ContentControls(1).Range.Text

[Jackfly]

Bonjour Daniel,

Avec qques jours de retard (Pâques "oblige") : Un tout grand merci !!!

Ah !? Il n'y avait pas de champ ... mais un contrôle de contenu... !? J'avais pourtant suivi un tuto pour insérer des champs dans Word... (Il est vrai que je n'utilise quasi pas Word... ou alors de façon très basique...).

Je vais donc investiguer pour savoir quelle est la différence entre un contrôle de contenu et un champ dans Word.

Encore merci pour ton aide

Jackfly