bonjour,

je cherche à faire un programme qui va ouvrir un fichier word, le parcourir, récupérer les données pour les traiter dans excel puis fermer le fichier.

voici mon début de code

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
 
' pour utiliser ce programme il faut instrumenter la preference : Microsoft Word 9.0 Object library
 
Sub traite_TDS()
' déclarations
Dim TDS_file As Object
 
' instance de word
Set TDS_file = New Word.Application
 
f_TDS = ThisWorkbook.Path & "\doc_testa\" & "toto.doc"
'J47058AD_00_TDS_IAD68_S76.doc
' ouvrir le fichier TDS
TDS_file.Visible = True
TDS_file.Documents.Open f_TDS
 
' reperer les chapitres pour les tests
 
' fermer le fichier TDS
TDS_file.ActiveDocument.Close
 
End Sub
ce qui se pase
- il ouvre mon fichier toto mais en me demandant un notification et ça je ne comprends pas pourquoi et quoi faire pour l'éviter

_ pour fermer le fichier toto mon code plante

mes questions sont donc : comment ouvrir proprement un fichier word
et comment le fermer

merci pour la réponse