tester si un fichier est ouvert

S

Sg

Guest
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
 
M

myDearFriend

Guest
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
 
M

Michel_M

Guest
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
 
Y

Yeahou

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 737
Messages
2 082 030
Membres
101 876
dernier inscrit
JULIEN21370