manipuler word via vba excel

Version imprimable

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:

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

Bonjour
essaie ceci, qui fonctionne pour moi sous 2003:

Code:

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
Dim M_objdoc As Word.document
 
' 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
Set m_objdoc = TDS_file.Documents.Open f_TDS
 
' reperer les chapitres pour les tests
 
' fermer le fichier TDS
m_objdoc.Close
 
End Sub

02/02/2011, 15h37
Patnel

Code:

Set m_objdoc = TDS_file.Documents.Open f_TDS

j' ai droit à une erreur de syntaxe

en corrigeant :

Code:

Set M_objdoc = TDS_file.Documents.Open(f_TDS)

ça marche mieux

le pb reste que si ça ferme bien le fichier ça laisse word actif

Peut-être

Code:

1
2
3
4
5
6
7
 
m_objdoc.Close
'Quitter l'application Word créée
TDS_file.Quit
'Un peu de ménage
Set TDS_file= Nothing
Set m_objdoc= Nothing

02/02/2011, 15h58
kiki29

Salut,à lire http://excel.developpez.com/faq/?page=Word
04/02/2011, 11h06
Patnel

super ça marche et merci pour l'indication du tuto
c'est vrai que ce n'est pas facile sur ce forum de trouver le bon tuto,
c'est surement un axe d'amélioration à proposer.

bon maintenant que ça marche est ce que quelq'un pourait m'indiquer une méthode pour trouver si un paragraphe contient un tableau et comment y accèder.

j'en suis encore à éplucher les doc