Vba : obtenir le nom des fichiers word ouvert
Fermé
reg1046
Messages postés
1
Date d'inscription
dimanche 24 mai 2009
Statut
Membre
Dernière intervention
24 mai 2009
-
24 mai 2009 à 16:33
Jazzinul Messages postés 4 Date d'inscription dimanche 6 octobre 2013 Statut Membre Dernière intervention 7 octobre 2013 - 7 oct. 2013 à 01:00
Jazzinul Messages postés 4 Date d'inscription dimanche 6 octobre 2013 Statut Membre Dernière intervention 7 octobre 2013 - 7 oct. 2013 à 01:00
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
- Vba range avec variable ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
3 réponses
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
24 mai 2009 à 17:19
24 mai 2009 à 17:19
1- ajouter dans Excel la bibliothèque : Microsoft Word Object Library
2- utiliser le code suivant :
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
