Discussion :

[Pascalou2008]

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
Pascale

[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

[Pascalou2008]

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 :

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

Essaye en ajoutant le chemin complet "C:\.....\Claus.doc"

[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
Encore merci
Pascale

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

[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