Excel Lire un entete d'un fichier WORD

Bonjour,

Je voulais savoir s'il était possible de récuperer à partir d'excel la date d'un fichier WORD contenue dans l'en tête.

J'ai trouvé ce code sur internet qui ne fonctionne pas :

Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document

    'ouvre session word
    Set WordApp = New Word.Application
    'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open("C:\monFichier.doc")
    'word est masqué pendant l'opération
    WordApp.Visible = False

    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
   ' WordDoc.Fields(1).Result.Text = Range("A1")

    'Si le champ est dans un entête, utilisez:
   'WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields(1).Result.Text

    'Récupère le contenu du champ
    MsgBox WordDoc.Fields(1).Result.Text

    'Ferme le document word en sauvegardant les modifications
    WordDoc.Close True
    'ferme la session Word
    WordApp.Quit
End Sub

Merci pour vos lumières.

Bonsoir

Tu as bien coché la référence "Microsoft Word 11.0 (2003) ou 12.0 (2007) Object Library" ?

Attention également au chemin ! Si tu as 2007, l'extension donne .docx

J'ai testé ce code sous 2007 et il fonctionne :

Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
   Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim Fichier As String

    Fichier = "C:\Users\Nadine\Desktop\Test.docx"
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open(Fichier)

    WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Copy

    Range("A1").PasteSpecial xlPasteValues
End Sub

Amicalement

Nad

C'est bon ça marche!!!

Merci 1000 Fois merci !