Importer en tete word dans Excel

pedro123456 · 22 Septembre 2006

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 · 22 Septembre 2006

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 · 22 Septembre 2006

Re : Importer en tete word dans Excel

bonsoir Pedro, rebonsoir José

tu peux tester

Code:

    '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 · 22 Septembre 2006

Re : Importer en tete word dans Excel

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

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

MichelXld

pedro123456 · 22 Septembre 2006

Re : Importer en tete word dans Excel

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

Importer en tete word dans Excel

pedro123456

XLDnaute Junior

Pièces jointes

pedro123456

XLDnaute Junior

MichelXld

XLDnaute Barbatruc

MichelXld

XLDnaute Barbatruc

pedro123456

XLDnaute Junior

Discussions similaires