Liste de document ouvert

Salut,

Voila, j'aimerai récupérer la liste des fichier Word ou Excel qui sont ouvert au moment ou je démarre mon application.

Joyeux Noël à tous...

Xavier

1. Pour Word

Sélectionner la référence "Microsoft Word X.0 Object Library" dans Projet/Références...

Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document

On Error Resume Next
Set oWdApp = GetObject(, "Word.Application")
If Err.Number = 429 Then
MsgBox "Word n'a pas été lancé !"
Exit Sub
End If

For Each oWdDoc In oWdApp.Documents
MsgBox "Document ouvert : " & oWdDoc.FullName
Next

Set oWdApp = Nothing


2. Pour Excel

Sélectionner la référence "Microsoft Excel X.0 Object Library" dans Projet/Références...

Dim oXlApp As Excel.Application
Dim oXlWbk As Excel.Workbook

On Error Resume Next
Set oXlApp = GetObject(, "Excel.Application")
If Err.Number = 429 Then
MsgBox "Excel n'a pas été lancé !"
Exit Sub
End If

For Each oXlWbk In oXlApp.Workbooks
MsgBox "Classeur ouvert : " & oXlWbk.FullName
Next

Set oXlApp = Nothing


@+

pelw