Discussion :

[Jean Baptiste 31]

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.

[Daniel.C]

Bonjour,

Essaie ceci :

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
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