Discussion :

[Patnel]

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

[Godzestla]

Bonjour
essaie ceci, qui fonctionne pour moi sous 2003:

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

[Patnel]

Code :

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

Set m_objdoc = TDS_file.Documents.Open f_TDS

j' ai droit à une erreur de syntaxe

en corrigeant :

Code :

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

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

[Psychopathe]

Peut-être

Code :

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

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

[kiki29]

Salut,à lire http://excel.developpez.com/faq/?page=Word

[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