Discussion :

[Jeanvaljean44]

Peut on connaître le nom du dernier utilisateur ayant enregistrer un fichier, sans ouvrir celui-ci? car le code suivant fonctionne mais avec pour obligation de charger le fichier péalablement

Code :

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

1
2
3
Workbooks.Open "R:\Production\EncoursProduction.xlsm"
NameUtilisateur = Workbooks("EncoursProduction.xlsm").BuiltinDocumentProperties("Last Author").Value
MsgBox NameUtilisateur

Merci pour le coup de pouce

[patricktoulon]

bonjour
tu devrais trouver ton bonheur ICI.

au plaisir

[Jeanvaljean44]

Bonjour Patrick,

Je suis désolé , je suis peut être passé à côté mais je ne retrouve pas le point qui m'intéresse dans le fichier joint...

Je poursuis mes investigations...

[fring]

Bonjour,

Jette un oeil à la propriété LastSavedBy de ce tutoriel

[patricktoulon]

bonjour fring
nikel celui la je ne l'avais pas trouvé

[Jeanvaljean44]

Bonjour Messieurs,

Merci Fred pour le tuyau sur le tutoriel! Juste un petit souci dans mon cas : je cherche à connaître l'utilisateur d'un fichier ouvert sur le réseau, or la macro évoquée dans le tutoriel précise que le fichier pointé doit être préalablement fermé, ce qui dans mon cas est justement l'inverse.

En revanche j'ai pu avancer sur mon probléme, mais je dois impérativement ouvrir le fichier "Encours" en lecture seule pour obtenir l'info "last author"ce qui ralenti mon exécution de macro. voici le code :

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
Sub TestEncoursProduction()
 
Dim Reponse As Integer
Dim NameUtilisateur As String
 
If FichierEstOuvert("R:\Production\EncoursProduction.xlsm") Then
   Workbooks.Open "R:\Production\EncoursProduction.xlsm"    'Ouverture Encours
   Windows("EncoursProduction.xlsm").Visible = False        'Masquage Encours
   NameUtilisateur = Workbooks("EncoursProduction.xlsm").BuiltinDocumentProperties("Last Author").Value 'Récupération du nom de l'utilisateur
   Workbooks("EncoursProduction.xlsm").Close False          'Fermeture Encours sans enregistrement
   Reponse = MsgBox("EncoursProduction.xlsm est actuellement ouvert par : " & vbCr & vbCr & "- " & NameUtilisateur & vbCr & vbCr & "Merci de le fermer pour poursuivre...", vbExclamation + vbOKOnly)
      If Reponse = vbOK Then
        Call TestEncoursProduction
   End If
End If
 
End Sub

Si vous avez plus rapide je suis toujours intéressé..