Discussion :

[JerCaz]

Bonjour le Forum,

après plusieurs jours de recherches infructueuses tant sur le forum que sur le net, je viens vers vous afon de solliciter votre aide pour m'aider à résoudre un problème existentiel...

N'étant pas un pro du VBA, c'est en glânant sur le net des bouts de code mis bout à bout que j'ai réussi à faire tourner une application dans l'hôpital dans lequel je travaille.
Il me reste un obstacle que je n'arrive pas à résoudre : afficher dans un msgbox (ou un listbox dans un formulaire) la liste de tous les noms d'ordinateurs actuellement connectés au fichier partagé.
Le bout de code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
Sub QuiEstConnecté()
Dim boucle As Integer
Dim Affiche As String
Users = ActiveWorkbook.UserStatus
    For boucle = 1 To UBound(Users)
        Affiche = Affiche & Users(boucle, 1) & vbTab & CDate(Users(boucle, 2)) & vbCrLf
    Next boucle
MsgBox Affiche, vbInformation, "Utilisateurs connectés :"
End Sub

permet d'afficher le nom des utilisateurs connectés, ainsi que l'heure de connexion, mais ce n'est pas ce que je cherche... En effet, dans un service de soins donné, une infirmière peut ouvrir sa session (donc son username) sur plusieurs machines simultanément. moi, j'ai besoin de savoir dans mon msgbox sur quel ordinateur elle est connectée.
En gros, pour résumer, je cherche à afficher dans un msgbox (ou un listbox éventuellement) la liste des 'environ("computername")' actuellement connectés au fichier partagé...
Est-ce possible?
Si oui, je ne vois vraiment pas comment...

Je remercie chaleureusement d'avance toute bonne âme qui voudra bien m'aider...

P.S. : je ne cherche pas à créer un fichier journal en txt (dommage... car ça, je sais faire...) : cela ne m'est d'aucune utilité dans mon cas de figure

[JerCaz]

Bonjour le forum,
n'ayant pas trouvé de solution "purement VBA", j'ai "triché" en contournant le problème :
- j'ai créé une feuille "journal" dans laquelle, à l'ouverture du fichier, le nom de session, le N° d'ordinateur, et d'autres infos s'inscrivent sur une ligne.
- un UserForm dans lequel une listbox affiche le contenu de cette feuille "journal" s'ouvre en cliquant sur un bouton
- quand l'utilisateur ferme le fichier, la ligne contenant les infos de l'utilisateur est effacée.

Espérant que cette astuce puisse un jour servie à d'autres qui liront ce fil de discussion...
Bien cordialement,
Jérôme

[kiki29]

Salut, faire une recherche ici sur Environ("USERNAME") ?