Re : test ouverture fichier en réseau
bonsoir
en fait trop nulle ou le cerveau encore en vacances
mon problème était avec ma variable
mais j'avais tout simplement oublié de la déclarer en string
apparemment cela fonctionne avec le code suivant quelque soit l'endroit où est stocké mon fichier.
enfin cela reste à confirmer quand je disposerai d'un réseau.
Sub TestOuverture()
'test si C2 est ouvert
'si non , arrete le test et continue la macro
'si oui, affiche msg box qui propose de reessayer en recommençant le test
Dim chemintest As String
1: chemintest = ThisWorkbook.Path
If IsFileOpen(chemintest & "\C2.xls") Then
retour = MsgBox("la base est déja ouverte. Cliquez sur le bouton Ok pour réessayer!", vbOKCancel)
If retour = vbOK Then
Application.StatusBar = "Merci de patienter"
Application.Wait Now + TimeValue("00:00:05")
Application.StatusBar = False
GoTo 1:
Else
Exit Sub
End If
End If
End Sub
Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err
On Error GoTo 0
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function
voilà
en fait j'avais la solution sous les yeux depuis un bout de temps , et juste ma variable à déclarer.
bon ben je crois que je n'ai plus qu'à aller me coucher.
Miles excuses