import .rtf dans feuille excel - pb ouverture
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:
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 :
Citation:
run-time error '5174'
This file could not be found
pourquoi?
