Discussion :

[Jeanvaljean44]

le forum !!

Principe rechercher : à l'ouverture du fichier EncoursProduction.xlsm, je lance une pocédure TestEncoursProduction pour savoir si ce fichier EncoursProduction.xlsm est déjà ouvert par un autre utilisateur réseau.
Si ce fichier est déjà ouvert, je demande à l'utilisateur de le fermer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub TestEncoursProduction()
 
Dim Reponse As Integer
 
If FichierEstOuvert("R:\Informatique\EncoursProduction.xlsm") Then
   Reponse = MsgBox("EncoursProduction.xlsm est actuellement ouvert par un autre utilisateur!" & vbCr & vbCr & "Merci de le fermer pour poursuivre...", vbExclamation + vbOKOnly)
   If Reponse = vbOK Then
        Workbooks("EncoursProduction.xlsm").Close False
   End If
End If
 
End Sub
 
Function FichierEstOuvert(ByRef FichierTest As String) As Boolean
 
Dim Fichier As Long
 
On Error GoTo Erreur
Fichier = FreeFile
Open FichierTest For Input Lock Read As #Fichier
Close #Fichier
FichierEstOuvert = False
Exit Function
Erreur:
    FichierEstOuvert = True
End Function

Problème rencontré : systématiquement en lançant cette procédure le programme me retourne l'info que le fichier EncoursProduction.xlsm est déjà ouvert même si ce n'est pas le cas

Une petite idée ????

@+ Jean

[decondelite]

C'est un peu normal que ça marche pas: l'ouverture de fichier en principe ça ne plante pas si le fichier existe (sauf si le fichier est utilisé une application en cours).

Essaye plutôt de mettre le Close avant le Open: si Close échoue c'est qu'il n'y a pas de fichier ouvert à fermer.
Corrige donc ton code en conséquence.

[Jeanvaljean44]

Merci decondelite pour ta réponse!!!

Je cherchai en parallèle, et pour résoudre mon pb il faut simplement tester si le fichier est en lecture seule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Workbooks("EncoursProduction.xlsm").Activate
If ActiveWorkbook.ReadOnly Then 'test si le fichier est en lecture seule
    MsgBox ("EncoursProduction.xlsm est actuellement ouvert par un autre utilisateur!" & vbCr & vbCr & "Merci de l'ouvrir ultérieurement..."), vbExclamation + vbOKOnly
    Workbooks("EncoursProduction.xlsm").Close False 'fermeture du fichier sans enregistrement
    Else
    FmIdentification.Show
End If