A voir également:
- Comment le système d'exploitation reconnaît qu'un fichier word doit être ouvert par ms word
- Incompatibilité de type vba ✓ - Forum Programmation
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Vba attendre 1 seconde ✓ - Forum VB / VBA
3 réponses
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