Test à l'ouverture d'un fichier Excel se trouvant sur un rés

Question

Je vous explique mon problème : La situation : il y a un fichier excel avec macro qui se trouve sur un disque réseau. Pendant deux semaines (environs) si on ouvrait le fichier par un double clic dessus (ou l'utilisation d'un raccourcie), s'il était déjà en utilisation, alors un message d'information indiquait : "fichier déjà ouvert par LouReeD" avec un triple choix : "ouverture en lecture seule" "notifier" " annuler" LouReeD étant le nom d'ouverture de la session Windows. Le problème : Depuis peu l'information "LouReeD" est remplacée par "Un autre utilisateur" La demande : Est-il possible par VBA à l'ouverture du fichier de "contourner" ce message incomplet afin d'en créer un nouveau en MSGBOX par exemple en allant "chercher" les données manquantes par des instruction VBA ? Actuellement, afin de faire un filtre automatisé sur le nom d'ouverture de session, j'utilise Application.UserName (de mémoire, je n'ai pas le fichier sous les yeux). Ceci fonctionne très bien. Mais Est-ce avec ceci que je peux récupérer le nom d'ouverture de session Windows de celui qui a déjà ouvert le fichier ? Sur le net j'ai trouvé des codes qui permet de tester si le fichier est déjà ouvert, c'est un début, mais la fin, récupérer le nom de celui qui la ouvert, je ne l'ai pas... Alors merci par avance @ toux ceux qui pourront m'aider, moi et mes collègues de travail. Ah oui dernière info : comme le fichier contient des macros et qu'il contient également des plages "tableaux", le partage n'est pas possible (si ce n'est de passer par l'excellente application de Sébastien, mais celle-ci n'est pas transposable sur notre réseau "fermé"). @ (très) bientôt LouReeD...

eriiic · Accepted Answer

En fait je pensais plus à utiliser la propriété ReadOnly qui permet de voir comment le fichier a été ouvert, indépendamment du fichier histo.

Qq chose comme :

Private Sub Workbook_Open()
    Dim numfich As Integer, s As String
    numfich = FreeFile
    If ThisWorkbook.ReadOnly Then
        ' afficher nom histo
        Open ThisWorkbook.Path & "\histo.txt" For Input Lock Read Write As #numfich
        Line Input #numfich, s
        MsgBox s
    Else
        ' enregistrer nom histo
        Open ThisWorkbook.Path & "\histo.txt" For Output As #numfich
        Print #numfich, "Ouvert par " & Application.UserName & ", le " & Now
    End If
    Close #numfich
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim numfich As Integer
    numfich = FreeFile
    If Not ThisWorkbook.ReadOnly Then
        ' supprimer nom histo
        Open ThisWorkbook.Path & "\histo.txt" For Output As #numfich
        Print #numfich,
    End If
End Sub

Sub test()
    Workbook_BeforeClose (True)
End Sub

J'imagine le fonctionnement comme ça :

A ouvre le 1er, readonly=false donc historisation
B ouvre, readonly=true donc affichage histo
A ferme, suppression histo
C ouvre , readonly=false donc historisation et droits en écriture

Seul celui qui l'a ouvert en écriture peut supprimer l'histo à la fermeture.

A voir en réel si ça se confirme bien sûr.

J'avoue que j'ai du mal à comprendre dans ta description pourquoi C n'aurait pas les droits à l'écritures puisqu'il ouvre après la fermeture de A, et pourquoi B les aurait récupérés alors qu'il est en lecture seule. Et de toute façon B pour moi n'a pas à enregistrer sous le même nom (de toute façon excel devrait l'obliger à renommer) sous peine d'écraser les modifs de A (?)

Et même si B récupère les droits suite à une notification demandée ça correspond à une ouverture avec droits en écriture donc historisation.

Vu que je ne peux pas simuler la réalité je ne vois pas où est la faille...

eric

eriiic · Answer

Je crains que si tu n'as pas l'info c'est qu'elle soit perdue. Tu pourrais te créer un fichier texte avec le dernier UserName en lecture/écriture avec date/heure ouverture et fermeture et ne pas être tributaire de ceux qui gèrent les serveurs. Et s'il est ouvert en lecture seule ne pas historiser mais afficher le nom. eric...

Steelson · Answer

Excellent ! j'avais déjà rencontré une telle fonctionnalité. Quelqu'un a-t-il un petit code qu'il a déjà réalisé ? ou je me creuse les méninges .....

eriiic · Answer

Normalement si B n'a pas rouvert le fichier il reste en readonly et C ouvre en écriture. Mais si le fichier a été mal fermé ça ne changera rien, tout le monde sera en readonly tant que le ménage n'aura pas été fait. Ca ne peut pallier qu'à un défaut d'identification. eric...

Steelson · Answer

Y a t-il moyen d'en faire un log de tous les accès ...

eriiic · Answer

Oui. Exemple histo des 10 dernières ouvertures en écriture, avec indication si des modifs ont été enregistrées et heure de fermeture. A tester eric...

Steelson · Answer

Quand un " bleu cyan " pose une question, il faut déjà s'attendre à ce que cette question soit des plus pertinentes ! Et quand un rouge répond, cela devient le graal. J'aime beaucoup ce post... merci Eric et LouReeD...

eriiic · Answer

Le rouge veut dire que j'ai suffisamment répondu. Il peut y avoir 80% d’âneries eric...

jbeaudoin · Answer

Est-ce que quelqu'un peut me partager le/les code qu'il y a dans le fichier historisation-username-ouverture.xlsm (20.52 Ko) Fortinet m'empêche de télécharger l'excel.. Merci...

21Formatic · Answer

Merci d'avoir fait remonter ce post, il est super intéressant !! Option Explicit Dim b_modif As Boolean Const nbHisto As Long = 10 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Not ThisWorkbook.Saved Then ' des modifs sont enregistrées b_modif = True End If End Sub Private Sub Workbook_Open() ' historisation des 10 dernières ouvertures avec modifications enregistrées Dim numfich As Integer, s(0 To nbHisto) As String, i As Long Dim nomFich nomFich = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_histo.txt" If Dir(nomFich) = "" Then ' création du fichier histo.txt numfich = FreeFile Open nomFich For Output As #numfich Close #numfich End If numfich = FreeFile If ThisWorkbook.ReadOnly Then ' ouverture xls en lecture seule ' afficher dernier nom écriture Open nomFich For Input Lock Read Write As #numfich Line Input #numfich, s(0) Close #numfich MsgBox "Dernière ouverture par " & IIf(s(0) = "", "Inconnu", s(0)) Else ' ouverture xls en écriture Open nomFich For Input Lock Read Write As #numfich While Not EOF(numfich) i = i + 1 Line Input #numfich, s(i) Wend Close #numfich numfich = FreeFile Open nomFich For Output Lock Read Write As #numfich s(0) = Application.UserName & ", le " & Now For i = 0 To Application.Min(nbHisto - 1, i) Print #numfich, s(i) Next i Close #numfich End If End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim numfich As Integer, s(0 To nbHisto) As String, i As Long Dim nomFich nomFich = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_histo.txt" numfich = FreeFile Open nomFich For Input Lock Read Write As #numfich While Not EOF(numfich) i = i + 1 Line Input #numfich, s(i) Wend Close #numfich s(1) = s(1) & ", Modif:" & IIf(b_modif, "Oui", "Non") & ", fermé à " & Time numfich = FreeFile Open nomFich For Output Lock Read Write As #numfich s(0) = Application.UserName & ", le " & Now For i = 1 To Application.Min(nbHisto - 1, i) Print #numfich, s(i) Next i Close #numfich b_modif = False ' simulation fermeture pour tests End Sub Sub test() Workbook_BeforeClose True End Sub...

eriiic · Answer

Je vais me laisser aller à un truisme, mais ça va mieux en le disant : à mettre dans ThisWorkbook eric...

jbeaudoin · Answer

Merci...