vba : obtenir le nom des fichiers word ouvert

Question

Bonjour,

je souhaite, depuis excel, obtenir en vba la liste des documents word ouverts.

Comment faire ?

Merci.

thev · Accepted Answer

1- ajouter dans Excel la bibliothèque : Microsoft Word Object Library

2- utiliser le code suivant :

Sub liste_docsword()

On Error GoTo erreur_liste

' crée l'objet application Word
Set appli_word = Word.Application

Dim docword As Document
' examine les documents ouverts
For Each docword In appli_word.Documents
    liste_docs_ouverts = docword.Name & "," & liste_docs_ouverts
Next docword

' fin traitement
Exit Sub

' routine erreur
erreur_liste:
MsgBox Err.Description

End Sub

Jazzinul · Answer

Ca marche aussi sous Word quand plusieurs applications sont ouvertes en même temps. Je ne sais pas encore si ça va résoudre mon problème, mais merci.

Jazzinul · Answer

Je précise ce que je viens d'écrire :  En fait cela ne résoud pas mon problème, qui est le suivant :

Je suis sous Word, et je lance une macro qui m'ouvre un autre document Word via l'instruction "ShellExecute" (pour des raisons que je peux expliquer au besoin, ce document n'est pas un ".doc" à l'origine, mais Word peut tout à fait le lire quand il est ouvert). Eh bien l'application Word du document de base ne reconnait pas l'application Word du second document ouvert, et inversement... Et donc je ne peux pas faire de transfert de données entre les deux documents via une macro. 

Je peux toujours le faire manuellement, mais ce n'est pas ce que je veux. (Ca, c'est juste un message pour les empêcheurs de tourner en rond qui vont me dire fais pas comme ci, fais comme ça, pourquoi tu passes pas sous Mac, etc, etc...).

J'espère que c'est clair. Mais pour moi ce truc reste un mystère !

Merci d'avance et reconnaissance profonde à qui trouvera la solution.
JZ

Vba : obtenir le nom des fichiers word ouvert

3 réponses

Discussions similaires

Newsletters