Discussion :

[Kermit125]

Bonjour,

Voici mon problème :

- d'un côté j'ai un formulaire Word, avec des zones, des listes déroulantes.
- de l'autre, ma feuille excel.

Je veux récupérer les données des zones du formulaire Word pour les incoporer dans mon fichier excel. Malheureusement cela fait plusieurs heures que je bute !

Voici le début de mon code : (merci dado91400) (mon premier champ texte du formulaire à pour signet "NumeroFiche"

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
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
FileToOpen = Application.GetOpenFilename("Nom fichier,*.doc") 'selection du nom du fichier à traiter
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open(FileToOpen)    'ouvre le document Word
    WordApp.Visible = True    'Word n'est pas masqué pendant l'opération
 
    WordDoc.Bookmarks("NumeroFiche").Range.Text = "blabla"
 
 
 
 WordApp.Quit (False)   'ferme Word et le document sans sauvegarde

La réponse est "le membre de la collection requi n'existe pas" (à propos du bookmarks)

Si je me sers des FormFields, la réponse est :

Code :

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

1
2
 
numero = WordDoc.FormFields("NumeroFiche").Result

la réponse est : "erreur défini par l'application ou par l'objet"

Est ce que quelqu'un peut me sortir de l'impasse s'il vous plait !!!

Merci d'avance !

[Heureux-oli]

Essaie d'être un peu plus clair, parce que je ne comprends pas vraiment le lien entre :

Code :

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

WordDoc.Bookmarks("NumeroFiche").Range.Text = "blabla"

et

Code :

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

numero = WordDoc.FormFields("NumeroFiche").Result

D'un côté, tu as un signet qui s'appelle "NumeroFiche" tu lui affecte le texte blabla.
De l'autre côté, tu as un champ du formulaire "NumeroFiche" pour en extraire une valeur.
Mis à part qu'il ont le même nom !

[Kermit125]

Pour être plus clair :

Dans mon formulaire word, j'ai un "Champ texte".
Lorsque je je regarde "Option de ce champ", je lui donne comme "signet" : "NumeroFiche"

J'aimerais récupérer la valeur de ce champ depuis une macro programmée dans une feuille EXCEL (je code donc dans Excel) :

J'ai donc essayé en premier lieu d'avoir une action sur ce champs, afin de voir comment on le reconnait depuis excel :

Code :

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

WordDoc.Bookmarks("NumeroFiche").Range.Text = "blabla"

VB a généré une erreur lors du débogage : "le membre de la collection requi n'existe pas"

J'ai donc modifier mon code. La reconnaissance par signet de ce champ texte "NumeroFiche" ne marchant pas, j'ai essayé de reconnaitre directement le champ formulaire par son nom.

J'ai alors remplacé le code précédent par

Code :

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

numero = WordDoc.FormFields("NumeroFiche").Result

Cette fois ci, la réponse fut : "erreur défini par l'application ou par l'objet"

J'ai essayé depuis de tourné ça dans tous les sens, mais je n'arrive pas à récupérer la valeur du champ texte "NumeroFiche".

As-tu une idée ?

En tout cas les : merci pour ta réponse ! Je me sens soutenu !

[Heureux-oli]

Le membre de la collection n'existe pas, c'est normal, le formulaire n'est pas ouvert.


Il faut aller chercher l'information directement dans le document.

Code :

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

Activedocuemnt.bookmarks("NumeroFiche").range.text

si le document est ouvert et actif.

Si c'est pas le cas :

Code :

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

1
2
3
4
5
6
7
 
Dim MyWord As New Word.Application
Dim MonDoc As Document
 
MonDoc = MyWord.Documents.Open("MonChemin + document")
 
MonDoc.Bookmarks("MonSignet").Range.Text

[Kermit125]

Voici le début de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
    FileToOpen = Application.GetOpenFilename("Nom fichier,*.doc") 'selection du nom du fichier à traiter
 
        If FileToOpen = Faux Then  'evite le bug si on clique sur annuler dans la boite d'ouverture du fichier
            Exit Sub
        Else
            Set WordApp = CreateObject("word.application") 'ouvre une session Word
            Set WordDoc = WordApp.Documents.Open(FileToOpen)    'ouvre le document Word
            WordApp.Visible = True
        End If

Jusque là tout va bien, je choisis le document que je veux ouvrir, il s'ouvre et il est visible.

Maintenant si je mets à la suite :

Code :

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

1
2
3
 
    WordDoc.Activate
    numero = ActiveDocument.Bookmarks("NumeroFiche").Range.Text

Voici la réponse : "erreur défini par l'application ou par l'objet"

Si je remplace le code ci dessus par

Code :

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

1
2
 
numero = WordDoc.Bookmarks("NumeroFiche").Range.Text

Il me repond la même chose

Je continue à chercher de mon côté, encore mille merci pour tes lumières même si je suis toujours dans les ténèbres... (oulala le craquage n'est pas loin lol)

[Heureux-oli]

La partie que je t'ai donnée, fonctionne, c'est après test que je l'ai mise en ligne.

Par contre, là où je rencontre un problème, c'est avec

Code :

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

1
2
 
Application.GetOpenFileName

Je n'ai pas cette méthode pour l'application Word en version 2003.