Transfert de données Word vers Excel via macro

Version imprimable

08/03/2008, 10h44
Pascalou2008

Transfert de données Word vers Excel via macro

Bonjour,
Me revoilà avec une question!

Est-il possible via une macro de copier le contenu de fichiers Word respectivement dans des feuilles excel?

Ex :
Dossier X (Word)
Fichier 1
Fichier 2
Fichier 3
etc ..

Transférer Contenu Fichier 1doc vers feuille 1 du classeur N Excel
Transférer contenu Fichier 2.doc vers feuille 2 du classeur N Excel
Transférer contenu Fichier 3.doc vers feuille 3 du classeur N Excel
etc..

Merci de m'aider:king:
Pascale
08/03/2008, 13h52
fring

Bonjour,

Via le lien ci-dessous, les manipulations de fichiers Word depuis Excel n'auront plus de secret pour toi ;)

http://vb.developpez.com/faqvba/?page=3.7#WimportDoc

Transfert données Word à Excel

Bonsoir,
Tout d'abord un grand merci pour le lien. J'ai activé la référence "Microsoft Word xx.x Object Library" mais je n'arrive pas à faire fonctionner la macro.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/03/2008 par pp
'
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
 
    Set Wb = Workbooks.Add(1)
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("Claus.doc", ReadOnly:=True)
 
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
 
 
    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False
    Wb.SaveAs "C:\Classeur1.xls"
 
    End Sub

Pourriez-vous m'aider à y voir plus clair? Super merci !
Pascale

09/03/2008, 22h53
fring

Bonsoir,

N'ayant pas la possibilité d'activer la référence ici je ne peux pas tester mais à vue de nez, tu n'as pas indiqué le chemin de ton document Word

Code:

Set WordDoc = WordApp.Documents.Open("Claus.doc", ReadOnly:=True)

Essaye en ajoutant le chemin complet "C:\.....\Claus.doc"
09/03/2008, 23h01
Pascalou2008

Bonsoir,
J'ai pensé à ça aussi mais même en ajoutant le chemin j'ai des messages d'erreur...je comprends pas. J'ai même essayé la macro dans excel et dans word! tellement ca me prend la tête. Mais c'est du bon stress! on avance pas mais on y travaille:yaisse2:
Encore merci
Pascale
10/03/2008, 09h48
fring

Re,

Je viens de tester le code et ça fonctionne nickel, je te confirme qu'il faut absolument indiquer le chemin complet de ton document Word.

Concernant la référence, as-tu bien activer la bonne ?
Microsoft Word xx.x Object Library

Le nom de ton document Word est correctement orthographié ?

Je sais, ces questions paraissent stupides mais c'est la seule cause que je vois.
10/03/2008, 22h02
Pascalou2008

Un tout grand merci. Grâce à tes remarques judicieuses j'ai prix un peu de recul et ai vérifié tout ce que tu m'as dit et en effet, je n'avais pas cocher Microsoft Word mais Microsoft Office...Pb résolu merci beaucoup,
Pascale