recherche utilisateur

[tmanzo]

Bonjour,

j'ai un fichier sur reseau

Je voudrais savoir lors de l'ouverture du fichier, si un autre utilisateur la deja ouvert
et pouvoir lui envoyer un message sur son poste pour le fermer ( en utilisant net send voir commande: Shell "Command.com /c net send " & UserN & " " & MonMsg )

le probleme c'est que je ne je ne sais pas comment récuperer le nom de l'utilisateur qui à ouvert le fichier

Merci d'avance pour vos réponse

 

[kiki29]

Re : recherche utilisateur

Salut,voir avec Environ("USERNAME")

 

[Hippolite]

Re : recherche utilisateur

Bonjour,
Solution dans ce fil : connaitre les utilisateurs d'un fichier
A+

 

[Pierrot93]

Re : recherche utilisateur

Bonjour,

pas compris la même chose moi...

essaye peut être ceci, s'applique au classeur actif :

With ActiveWorkbook
    If .ReadOnly Then MsgBox .WriteReservedBy
End With

bonne journée
@+

 

[Hippolite]

Re : recherche utilisateur

Re,

Pour un fichier partagé qui pourra être ouvert, on a accès aux informations .WriteReservedBy ou .UserStatus.

Dans le cas d'un fichier non partagé déjà ouvert, on ouvrira seulement une copie, et ces infos ne seront pas accessibles.
Cela peut être contourné avec le bricolage suivant :
Dans Classeur1, pour enregistrer le nom de l'utilisateur qui a la main :

Private Sub Workbook_Open()
    If ThisWorkbook.ReadOnly = False Then
        ThisWorkbook.Save
    End If
End Sub

Dans Classeur1, pour détecter (si le classeur est déjà ouvert par une autre personne, Classeur1 sera ouvert en lecture seule) :

Private Sub Test()
    If ThisWorkbook.ReadOnly = True Then
    MsgBox "Le fichier est déjà utilisé par " & _
            ThisWorkbookBuiltinDocumentProperties(7).Value
        Exit Sub
    End If
End Sub

L'inconvénient de la méthode c'est la nécesité d'accepter l'activation des macros

Si on ne veut pas modifier Classeur1, il faudra passer par un fichier tiers qui stockera le nom

Je pense qu'il y a des solutions plus propres, mais ça dépasse Excel

A+

 

[Pierrot93]

Re : recherche utilisateur

Re,

Je voudrais savoir lors de l'ouverture du fichier, si un autre utilisateur la deja ouvert
et pouvoir lui envoyer un message sur son poste pour le fermer ( en utilisant net send voir commande: Shell "Command.com /c net send " & UserN & " " & MonMsg )

le probleme c'est que je ne je ne sais pas comment récuperer le nom de l'utilisateur qui à ouvert le fichier

sauf erreur, il me semble que lon cherche à savoir par qui est utilisé un classeur que l'on vient d'ouvrir pour intervention, et prévenir l'utilisateur en question...