Importer en tete word dans Excel

[pedro123456]

Bonsoir les Exceliens!!

Alors comme son nom l'indique je vaux faire une macro qui importe l'en tete d'un fichier word dans Excel.

Cet en tete se compose de plusieurs lignes ( cf fichier attache)

Pour l'instant mon code donne cela ( cf aussi fichier Excel) bien sur que cela ne marche pas, mais je ne connais pas du tout les fonctions vba pour faire cela.

Dezipper le fichier et
Vous verrez dans le fichier word l'en tete
Dans le fichier Excel ce que j'aimerais obtenir

Merci Beaucoup pour l'aide que vous pourrez me fournir!

 

[pedro123456]

Re : Importer en tete word dans Excel

Oui car apres je vais faire ca pour des tonnes de fichiers a la chaine...
( je ne me prendrais pas et ne prendrais pas le chou du forum pour rien sinon!)

Merci pour le penchage sur mon cas! ( C'est grave docteur?)
A+

 

[MichelXld]

Re : Importer en tete word dans Excel

bonsoir Pedro, rebonsoir José

tu peux tester

    '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:\leFichier.doc"
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open(Fichier)
 
    'Copie
    WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Copy
 
    'Collage
    Range("A1").PasteSpecial xlPasteValues

bon wek end
MichelXld

 

[MichelXld]

Re : Importer en tete word dans Excel

Je commence vraiment à penser que t'as Flight Simulator 2050

non, uniquement Excel 2050 beta ...;o)


MichelXld

 

[pedro123456]

Re : Importer en tete word dans Excel

Merci beaucoup ca marche niquel!, PS : c comment Excel 2050?