XL 2010 Verifie Fichier Ouvert GetOpenFilename

job75 à dit:

Bonjour cathodique,

Le test pour savoir si le fichier est ouvert doit être fait avant l'ouverture du fichier par Workbooks.Open.

Perso je ne fais pas de test, je préfère fermer le fichier s'il est ouvert :

VB:

Sub Ouvrir()
Dim nom_fichier
nom_fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
If nom_fichier = False Or nom_fichier = ThisWorkbook.FullName Then Exit Sub
On Error Resume Next
Workbooks(Dir(nom_fichier)).Close False 'ferme le fichier s"il est ouvert
On Error GoTo 0
Workbooks.Open Filename:=nom_fichier 'ouverture
'---
End Sub

A+

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour a tous
pour tester si un fichier est ouvert en essayant de l'ouvrir en mémoire avec open for input lock read

VB:

Sub test2()
    MsgBox estOuvert("C:\Users\polux\DeskTop\translate interface.xlsm")
End Sub

Function estOuvert(fichier As String)
    Dim x As Integer, E As Integer
    estOuvert = False
    On Error Resume Next
    x = FreeFile: Open fichier For Input Lock Read As #x: Close x
    E = Err
    On Error GoTo 0
    Select Case E
    Case 0: estOuvert = False
    Case 70: estOuvert = True
    Case Else: estOuvert = E
    End Select
End Function

Cliquez pour agrandir...

Sub test2()
nom_fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
MsgBox estOuvert(nom_fichier)
End Sub

job75 à dit:

Re, salut patricktoulon,

Dans la fonction de patricktoulon pourquoi écrire Function estOuvert(fichier As String) ???

Puisque GetOpenFileName peut aussi renvoyer un boolean il faut une variable Variant.

Idem avec la fonction de myDearFriend.

A+

Cliquez pour agrandir...

patricktoulon à dit:

oui effectivement perso je ne travaille pas post dialog
c'est pour cela quelle est argumentée
tu n'a qu'a mixer les deux et faire une fonction globale dialog

Cliquez pour agrandir...