Discussion :

[Denis_67]

Bonjour,

Par copie d'exemples sur divers forums, j'ai créé cette petite fonction de bouclage qui teste si le classeur est ouvert et laisse l'utilisateur relancer la procédure
j'ai ajouté une confirmation pour sortir.

Puis je vous demander si vous considérez cette fonction comme fiable ?

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
Function ClasseurOuvert(Class As String) As Boolean
On Error Resume Next
Open Class For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
ClasseurOuvert = True
Err.Clear
End If
End Function
Sub Fichierfree()
Dim choix
choix = 6
While choix = 6 'là je boucle tant que l'utilisateur clique sur yes
If ClasseurOuvert("C:\Users\...\Taches.xlsm") = False _
Then Workbooks.Open "C:\Users\...\Taches.xlsm": choix = 99 Else _
choix = MsgBox("Le fichier est en cours de traitement relancer en cliquant sur YES!", vbYesNo, "Fichier occupé")
If choix = 7 Then  ' là je sors et demande confirmation
choix = MsgBox("ATTENTION IL FAUDRA RESSAISIR LE CARTON SI VOUS CLIQUEZ SUR YES", vbYesNo, "Confirmation")
If choix = 7 Then choix = 6 Else choix = 99
End If
Wend
End Sub

Merci pour votre lecture attentionnée.
Denis

[Jean-Philippe André]

Salut,
sans aborder la fiabilité, je commencerai par la lisibilité de ton code

Il est (selon moi) plus facile de lire et maintenir ceci

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
Sub Fichierfree()
Dim choix As Integer
choix = vbYes
Do While True 'là je boucle tant que l'utilisateur clique sur yes
   If ClasseurOuvert("C:\Users\...\Taches.xlsm") = False Then 
      Workbooks.Open "C:\Users\...\Taches.xlsm"
      Exit Do
   Else 
      If MsgBox("Le fichier est en cours de traitement relancer en cliquant sur YES!", vbYesNo, "Fichier occupé")= vbNo Then ' là je sors et demande confirmation
          If MsgBox("ATTENTION IL FAUDRA RESSAISIR LE CARTON SI VOUS CLIQUEZ SUR YES", vbYesNo, "Confirmation")=vbYes Then
             Exit Do
         End If
      End If
End If
Wend
End Sub

A- utiliser les If Then Else sur une seule ligne c'est pas le plus simple à reprendre
B- Utiliser les valeurs de 6 et 7, ce n'est pas aidant pour la personne qui va venir lire ton code. Privilégie les constantes vb pour la lecture vbYes / vbNo.
C- Est-ce que le classeur en question pourrait etre ouvert en lecture seule ?

[Denis_67]

Merci Jean-Philippe,

D'abord d'avoir pris la peine d'écrire quelque chose de propre, que je vais garder précieusement comme modèle pour d'autres cas.

L'appli consiste à saisir des valeurs dans un userform et l'orsque l'utilisateur valide, cela va sauvegarder le contenu du userform dans un autre classeur. (Ouvrir, enregistrer, fermer).
le fichier est donc temporairement bloqué.
Les saisies sont de l'ordre d'une par 1/4 d'heure.

Mais maintenant plusieurs personnes vont pouvoir enregistrer sur le même classeur (il ya peu de risque de colisions mais quand même elle existe) et d'autres personnes peuvent consulter le classeur cible en lecture voire en modification, s'ils l'ouvrent directement dans l'explorer.

J'avais vu effectivement des post parlant du fait que le classeur soir en lecture seule, mais sans comprendre vraiment l'intérêt.

(independemment de l'application sujet de ce post)
Il y a aussi des cas où le windows server ne rend pas la main après fermeture du classeur.
Pour des mystères à ce jour non éclaircis cela arrive périodiquement.
Ayant ouvert récemment un ticket vers mon administration à ce sujet, ils ont redémarré le server car cela arrivait de plus en plus souvent.

Denis