Bonjour,

cette fonction renvoie un booléen indiquant si le classeur est ouvert (true)

<code>Function FichOuvert(F As String) As Boolean
'D'après Didier_mdf
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function

Sub Test_Class_Ouvert()

For i = 1 To Workbooks.Count

ActiveSheet.Cells(i, 1) = Workbooks(i).Name

Next i

End Sub

Ca permet de récuperer le nom des classeurs ouverts et les copies dans la cellule, par contre, il n'affiche pas les classeurs "non sauvegardé", j'ignore s'il faut ajouter une condition.

Merci ,
mais le but est de sélectionner le dernier classeur ouvert de toutes les instances d'Excel:
il semble que chaque instance ne détecte que ses propres classeurs
et le code ci dessous fonctionne très bien pour ça

For Each Classeur In Application.Workbooks
  DateClasseur = Classeur.BuiltinDocumentProperties("Creation Date")
  debug.print Classeur.Name, DateClasseur
Next

Pourtant tu demandais:

..."quelqu'un saurait t'il comment en VBA lister tous les fichiers Excel ouverts"...

Bon WE Michel

Bonjour,

je fais un gros Up de plus de 6 mois car je rencontre le même problème :

boucler sur tous les classeur ouverts de toutes les applications excel ouverte sur le pc

en gros quelque chose comme:

Dim Exapp As Excel.Application
Dim WB As Workbook

For Each Exapp In (Excel.applicationS)

For Each WB In Workbooks
If WB.Name = NomFichier Then
OuvertureFichier = True
End If
Next

Next

est ce possible de cette façon et si oui quel en est l'écriture exacte ou faut il aborder le problème différemment?