tester si un fichier est ouvert

[Sg]

Bonjour a tous,

Existe-t-il un test dans vba qui permet de dire si un fichier excel est ouvert ou pas? (genre une fonction IsOpen qui renvoit un booleen...) Dans l'aide, je n'ai trouve cette fonction que pour un projet html

Merci de votre aide,

Sg

 

[myDearFriend]

Bonsoir Sg,


Tu peux utiliser la fonction suivante :

Function FichOuvert(F As String) As Boolean
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F) '(Merci à Ti pour cette astuce)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function


Pour tester le fichier "MonClasseur.xls" :
MsgBox "Fichier " & IIf(FichOuvert("MonClasseur.xls"), "", "NON ") & "ouvert."


Cordialement,
Didier_mDF

 

[Sg]

C'est exactement ce que je cherchais, merci beaucoup!

Sg

 

[Michel_M]

Bonjour Sg, Mydearfriend et le forum

Didier_mDF:

Simplement pour te remercier de cette fonction que j'ai incorporé dans une démo. Bien entendu, je te cite comme auteur

Encore une fois MercI (et félicitations)

Michel

 

[Yeahou]

Bonjour tout le monde

Michel, comme Didier l'indique dans son code, c'est Ti l'auteur et c'est sur ce fil, Didier l'a récupéré et adapté mais l'idée première était bien de Ti.
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=104198&t=104070>

Cordialement, A+

Function Ouvert(ByVal NomFichier$) As Boolean
Dim Wbk As Workbook
On Error GoTo fin
Set Wbk = Workbooks(NomFichier)
Ouvert = True
fin:
End Function

 

[Michel_M]

J'ai laissé le merci à Ti dans l'appli

Michel