test si fichier ouvert

[zab]

bonsoir le forum,
est-il possible de tester si un fichier quelconque (ou plusieurs) est ouvert dans excel (avant de faire fermer l'application)?
merci! @+ zab.

 

[Hervé]

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

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

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

 

[zab]

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