Discussion :

[langeard]

Bonjour,

Je souhaite ouvrir un fichier rtf, et le copier integralement dans une feuille excel.
D'aprés la FAQ VBA, j'utilise le code suivant :

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
Sub importWord()
 
Dim WordApp As Object
Dim WordDoc As Object
Dim Wb As Workbook
 
Set Wb = ThisWorkbook
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open("report.rtf")
 
With WordApp
    .Selection.WholeStory
    .Selection.Copy
End With
 
Wb.ActiveSheet.Range("A1").Select
Wb.ActiveSheet.Paste
WordApp.Application.Quit
Application.CutCopyMode = False
Wb.SaveAs ".\copieDocument.xls"
 
End Sub

Le fichier report.rtf (j'ai essayé aussi avec report.doc) est situé dans le même repertoire que mon fichier excel contenant la macro.

La macro plante lors de l'ouverture de mon fichier avec le message d'erreur suivant :

run-time error '5174'
This file could not be found

pourquoi?

[mercatog]

Bonjour

Code :

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

Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\report.rtf")

[langeard]

Effectivement, il a besoin du chemin complet.

Merci pour le coup de main.