Vba : obtenir le nom des fichiers word ouvert

reg1046 Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Jazzinul Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 7 oct. 2013 à 01:00

Bonjour,

je souhaite, depuis excel, obtenir en vba la liste des documents word ouverts.

Comment faire ?

Merci.

Afficher la suite

A voir également:

Comment le système d'exploitation reconnaît qu'un fichier word doit être ouvert par ms word
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

thev Messages postés 1986 Date d'inscription Statut Membre Dernière intervention 713

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

Réponse 3 / 3

Jazzinul Messages postés 4 Date d'inscription Statut Membre Dernière intervention 1

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

Discussions similaires

mon pc ne reconnait pas les fichiers word....

systeme d'exploitation non configuré

WORD actuellement, le système d'exploitation n'est pas configuré pour exécuter l

Est ce que le système d'exploitation peut ouvrir dans Ms Excel?

Système d’exploitation de fichiers

comment installer ORDISSIMO ?

Votre réponse

Discussions similaires