test si fichier ouvert

Bonsoir

ce type de macro te permet de savoir si un autre fichier, autre que ton application principale est ouvert :

Public Sub vev2()
If Workbooks.Count = 1 Then
MsgBox 'Pas d'autre fichier d'ouvert.'
Else
MsgBox 'D'autres fichiers sont ouverts.'
End If
End Sub

Cliquez pour agrandir...

tandis que celui-ci te donne la liste des fichiers ouverts :

Sub vev()
Dim i As Byte
Dim texte As String

For i = 1 To Workbooks.Count
texte = texte & vbNewLine & Workbooks(i).Name
Next i

MsgBox texte, , 'Liste des classeurs ouverts'
End Sub

Cliquez pour agrandir...

En somme, il me semble, qu'il te faut rechercher la valeur de workbooks.count (qui te donne le nombre de fichier ouvert)

En espérant t'avoir aidé.

Salut

bonjour le forum et Hervé
merci de ta réponse.
bonne journée @+ zab.