Qui utilise le fichier

Philippe.R

06/05/2005 à 21:18

Bon{j,s}o{u,i}r® Patrick,

Recopie d'un post de Frédéric Sigonneau (dont j'éspère bien qu'il n'est pas perdu corps et bien),
prélevé sur mes archives.
"========================================================================="
De : Frédéric Sigonneau
Groupes de discussion : microsoft.public.fr.excel
Envoyé : mercredi 9 juillet 2003 23:37
Objet : Re: nom de l'utilisateur

Bonsoir Clément,

Tu as raison. Pour contourner cette difficulté, peut-être une fonction de ce
style (Excel 2000 ou + récent) :

Function NomUser()
Dim i&, S$
Do
i = i + 1
NomUser = Split(Environ(i), "=")(1)
S = UCase(Split(Environ(i), "=")(0))
Loop While S <> "USERNAME"
End Function

Ça me paraît assez rapide (sur ma machine il n'y a que 31 variables
d'environnement), et utilisable dans une feuille de calcul. On pourrait imaginer
d'autres petites fonctions sur le même principe en récupérant le nom des
variables à l'aide d'une procédure comme celle-ci :

Sub test()
Dim i&
On Error GoTo Fin
Do
i = i + 1
Cells(i, 1).Value = UCase(Split(Environ(i), "=")(0))
Cells(i, 2).Value = Split(Environ(i), "=")(1)
Loop
Fin:
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
"========================================================================"
Ca convient' y ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Patrick Fredin" a écrit dans le message de news:

Bonjour,

Si le fichier que j'ouvre est déjà utilisé par quelqu'un d'autre, Excel
affiche un message avec le nom de l'autre personne.

Est-il possible de récupérer ce nom en VBA ?

Merci pour votre aide.

--
Patrick

Modeste

06/05/2005 à 21:44

Philippe.R wrote:

j'éspère bien qu'il n'est pas perdu corps et bien

Non!!! non !!! l'est là tout les jours !!!!
un indice ????
c'est comme : Pilier.Php relativement à Msg Abile
;o)))

Mavichavel

06/05/2005 à 21:49

Aprés avoir fait chauffer son clavier,
*Philippe.R* a enfin pu faire réagir les pixels
de son écran pour fièrement nous annoncer

Bonsoir Philippe
suis heureux de te lire et ai eu l'envie de te
passer un petit coucou amical...
je pense bientôt remettre la tête dans le guidon
d'excel pour peaufiner l'application que j'ai
créé grâce à vous tous (1 an déjà) dés que
l'emprise de mon boulot me le permettra.. cela ne
m'empêche nullement de lire règulièrement vos
conseils avisés et d'en faire mon profit..genre
copié collé dans le bloc note pour archive,
épeluchage et mise en application..;tout ce petit
monde excelien se met en place, petit à petit et
je pense pouvoir prochainement créer mes propres
boîtes de saisie, modif, avec onglets pour
recherches..etc et *LA* je pense avoir un énorme
besoin de vos connaissances.. en attendant ce
jour, reçois mes salutations amicales ainsi que
tous ceux qui ont répondu à mes questions le plus
souvent basiques ;-) en la matière..(je ne nomme
personnepour éviter les bourdes :D )
Bonsoir donc, bon week end et à bientôt surement
:-Z
amitiés...Michel

--
Amicalement
Michel.P
Serai Calife à la place du Calife...

retirez _sans_spam pour m'envoyer un
message.

Michel Pierron

06/05/2005 à 22:30

Bonsoir Patrick;
Si ton fichier est partagé:
Sub UsersList()
Dim users, msg As String, status As String, i As Integer
users = ThisWorkbook.UserStatus ' Or Workbooks("Machin.xls").UserStatus
For i = 1 To UBound(users, 1)
msg = msg & users(i, 1) & " " & Format(users(i, 2), "dd/mm/yy h:mm") & " "
If users(i, 3) = 1 Then status = "(Exclusive mode)" Else status = "(Shared
mode)"
msg = msg & status & vbLf
Next
MsgBox msg, 64
End Sub

Sinon, le nom est stocké dans la base Windows et il te faut les droits
Administrateur.
Tu peux récupérer la liste des fichiers ouverts sur le serveur et voir si
ton fichier s'y trouve:
Sub OpenedFiles()
On Error Resume Next
Dim Fso, Resource, i%: i = 1
Cells.ClearContents
Cells(i, 1).Value = "User"
Cells(i, 2).Value = "Path"
Set Fso = GetObject("WinNT://Domaine/Serveur/LanmanServer")
If Not IsEmpty(Fso) Then
For Each Resource In Fso.resources
If Resource.user <> "" And Right(Resource.user, 1) <> "$" Then
i = i + 1
Cells(i, 1).Value = Resource.user
Cells(i, 2).Value = Resource.Path
End If
Next
Cells.EntireColumn.AutoFit
End If
MsgBox "Done !", 64
End Sub

(Domaine est le nom du domaine et serveur le nom du serveur).
MP

"Patrick Fredin" a écrit dans le message
de news:

Bonjour,

Si le fichier que j'ouvre est déjà utilisé par quelqu'un d'autre, Excel
affiche un message avec le nom de l'autre personne.

Est-il possible de récupérer ce nom en VBA ?

Merci pour votre aide.

--
Patrick

Philippe.R

06/05/2005 à 22:49

Amitiés à toi aussi !
La seule personne ici à laquelle on peut faire un coucou (petit ou pas d'ailleurs) sans l'effrayer, c'es
not' Misange !
;o))))
--
Amicales Salutations

"Mavichavel" a écrit dans le message de news:

Aprés avoir fait chauffer son clavier, *Philippe.R* a enfin pu faire réagir les pixels de son écran
pour fièrement nous annoncer

Bonsoir Philippe
suis heureux de te lire et ai eu l'envie de te passer un petit coucou amical...
je pense bientôt remettre la tête dans le guidon d'excel pour peaufiner l'application que j'ai créé
grâce à vous tous (1 an déjà) dés que l'emprise de mon boulot me le permettra.. cela ne m'empêche
nullement de lire règulièrement vos conseils avisés et d'en faire mon profit..genre copié collé dans
le bloc note pour archive, épeluchage et mise en application..;tout ce petit monde excelien se met en
place, petit à petit et je pense pouvoir prochainement créer mes propres boîtes de saisie, modif, avec
onglets pour recherches..etc et *LA* je pense avoir un énorme besoin de vos connaissances.. en
attendant ce jour, reçois mes salutations amicales ainsi que tous ceux qui ont répondu à mes questions
le plus souvent basiques ;-) en la matière..(je ne nomme personnepour éviter les bourdes :D )
Bonsoir donc, bon week end et à bientôt surement :-Z
amitiés...Michel

--
Amicalement
Michel.P
Serai Calife à la place du Calife...

retirez _sans_spam pour m'envoyer un message.

Philippe.R

06/05/2005 à 22:55

Bonsoir Modeste,
Un autre indice s'te plait, mon neurone a un peu de mal ce soir ;o))))
--
Amicales Salutations

"Modeste" a écrit dans le message de news:

Philippe.R wrote:
j'éspère bien qu'il n'est pas perdu corps et bien

Non!!! non !!! l'est là tout les jours !!!!
un indice ????
c'est comme : Pilier.Php relativement à Msg Abile
;o)))

Philippe.R

06/05/2005 à 23:03

OUPS !

Amitiés à toi aussi !
La seule personne ici à laquelle on NE peut faire un coucou (petit ou pas d'ailleurs) sans l'effrayer,
c'esT not' Misange !
;o))))
--
Amicales Salutations

"Mavichavel" a écrit dans le message de news:

Aprés avoir fait chauffer son clavier, *Philippe.R* a enfin pu faire réagir les pixels de son écran
pour fièrement nous annoncer

Bonsoir Philippe
suis heureux de te lire et ai eu l'envie de te passer un petit coucou amical...
je pense bientôt remettre la tête dans le guidon d'excel pour peaufiner l'application que j'ai créé
grâce à vous tous (1 an déjà) dés que l'emprise de mon boulot me le permettra.. cela ne m'empêche
nullement de lire règulièrement vos conseils avisés et d'en faire mon profit..genre copié collé dans
le bloc note pour archive, épeluchage et mise en application..;tout ce petit monde excelien se met en
place, petit à petit et je pense pouvoir prochainement créer mes propres boîtes de saisie, modif,
avec onglets pour recherches..etc et *LA* je pense avoir un énorme besoin de vos connaissances.. en
attendant ce jour, reçois mes salutations amicales ainsi que tous ceux qui ont répondu à mes
questions le plus souvent basiques ;-) en la matière..(je ne nomme personnepour éviter les bourdes
:D )
Bonsoir donc, bon week end et à bientôt surement :-Z
amitiés...Michel

--
Amicalement
Michel.P
Serai Calife à la place du Calife...

retirez _sans_spam pour m'envoyer un message.

Misange

06/05/2005 à 23:11

;-)

c'est l'époque des coucous en plus !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 06/05/2005 22:49, :

Amitiés à toi aussi !
La seule personne ici à laquelle on peut faire un coucou (petit ou pas
d'ailleurs) sans l'effrayer, c'es not' Misange !
;o))))

Misange

06/05/2005 à 23:13

Mais non mais non, les coucous ne me font MEME pas PEUR !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 06/05/2005 23:03, :

OUPS !

Amitiés à toi aussi !
La seule personne ici à laquelle on NE peut faire un coucou (petit ou
pas d'ailleurs) sans l'effrayer, c'esT not' Misange !
;o))))
--
Amicales Salutations

"Mavichavel" a écrit dans le
message de news:

Aprés avoir fait chauffer son clavier, *Philippe.R* a enfin pu faire
réagir les pixels de son écran pour fièrement nous annoncer

Bonsoir Philippe
suis heureux de te lire et ai eu l'envie de te passer un petit coucou
amical...
je pense bientôt remettre la tête dans le guidon d'excel pour
peaufiner l'application que j'ai créé grâce à vous tous (1 an déjà)
dés que l'emprise de mon boulot me le permettra.. cela ne m'empêche
nullement de lire règulièrement vos conseils avisés et d'en faire mon
profit..genre copié collé dans le bloc note pour archive, épeluchage
et mise en application..;tout ce petit monde excelien se met en
place, petit à petit et je pense pouvoir prochainement créer mes
propres boîtes de saisie, modif, avec onglets pour recherches..etc et
*LA* je pense avoir un énorme besoin de vos connaissances.. en
attendant ce jour, reçois mes salutations amicales ainsi que tous
ceux qui ont répondu à mes questions le plus souvent basiques ;-) en
la matière..(je ne nomme personnepour éviter les bourdes :D )
Bonsoir donc, bon week end et à bientôt surement :-Z
amitiés...Michel

--
Amicalement
Michel.P
Serai Calife à la place du Calife...

retirez _sans_spam pour m'envoyer un message.

Anna Graham

06/05/2005 à 23:23

;o)))

Qui utilise le fichier

10 réponses

Veuillez sélectionner un problème