Récupération valeur TextBox et ComboBox Word vers Excel

Bonjour à tous,

Pour mon premier post sur un forum, je viens vers vous pour m'aider à réaliser une macro que l'on me demande dans le cadre de mon apprentissage au sein d'une entreprise d'aéronautique.

Je dois en effet créer un formulaire Word (déjà réalisé) et créer une macro me permettant de récupérer ces données sur un fichier Excel. Le problème est que je n'arrive pas à faire le lien entre les valeurs des TextBox et ComboBox du formulaire et le fichier excel.

La macro complète devrait, suite à un clic sur un bouton présent sur le fichier Excel, proposer à l'utilisateur d'ouvrir un fichier Word et suite à ce choix copier les valeurs de quelques ComboBox et TextBox dans le tableur excel.

En espérant être assez clair, je vous remercie d'avance.
Jean-Baptiste.

Bonjour,

Essaie ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub MacroWord() Dim WordObj As Object, Doc As Object, Item, Ligne As Long, Fich As String Fich = Application.GetOpenFilename("Word Files (*.doc), *.doc") If Fich <> "" Then Set WordObj = CreateObject("Word.Application") WordObj.Visible = True Set Doc = WordObj.Documents.Open(Fich) With Sheets("Feuil1") For Each Item In Doc.Fields .[A1].Offset(Ligne) = Item.OLEFormat.Object.Text Ligne = Ligne + 1 Next Item End With Doc.Close WordObj.Quit Set Doc = Nothing Set WordObj = Nothing End If End Sub

---