Discussion :

[fabrice44]

bonjour,

voilà, j'ai mis un fichier en réseau, je voudrais faire un message d'alerte à l'ouverture du fichier pour dire à la personne :

- que si le fichier est déja ouvert par qqu un d'autre, le fichier sera en lecture seule,
- je voudrais également récupérer le nom de l'utilisateur actuel pour pouvoir lui passer un coup de fil si j'ai besoin

merci

[kiki29]

Soir Bon, à adapter au contexte
http://excel.developpez.com/faq/?pag...ClasseurOuvert

Code :

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

1
2
3
 
Dim sUserName As String
    sUserName = Environ("USERNAME")

qui n'a rien à voir avec Application.UserName de VBA

[fabrice44]

voilà le code que j'ai installé dans mon perso.xls, mais le problème c'est qu'il ne m'identifie pas les personnes connectées mais les coordonnées de mon ordi

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Option Explicit
Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
 
On Error Resume Next
filenum = FreeFile()
Open filename For Input Lock Read As #filenum
Close filenum
errnum = Err
On Error GoTo 0
Select Case errnum
Case 0
IsFileOpen = False
Case 70
IsFileOpen = True
Case Else
Error errnum
End Select
End Function
 
Sub CallDemands()
Dim Msg, Style, Title'
 
If IsFileOpen("S:\Dossiers FC\classeur.xls") Then
With CreateObject("WScript.NetWork")
MsgBox .UserName & Chr(10).ComputerName & Chr(10) & _
.UserDomain & "utilise déja ce fichier" & Chr(13) & "Merci d'essayer plus tard"
End With
Else
Workbooks.Open "S:\Dossiers FC\classeur.xls"
End If
End Sub

[kiki29]

Jour Bon , je n'ai pas de réseau à dispo pour tester
Voir http://support.microsoft.com/kb/161394/en-us ?

[fabrice44]

le lien sert à logger la machine sur laquelle tu es
et nom l'utilisateur du fichier

[Many31]

manuellement: tu vas dans le dossier ou se trouve les fichier, tu affiches les dossier cachés... tu ouvre l'image du fichier que tu veux vérifier avec le bloc note... tu as l'identifiant des personnes logguées sur le fichier ^^ inconvéniant ce fichier se met a jour que quand il n'y a plus personne loggé... donc tu as l'historique mais pas en temps réel :/ sinon bahhhhh... fait une macro pour écrire rapidement dans un fichier la personne qui se log en premier et quand elle se délog tu efface son identifiant...


cest pas tres catholique mais ca peut aider

[zebulon2212]

Je suppose que ton fichier est sur un serveur
tu peux voir en temps reel qui utilise ton fichier en prenant la main sur ce serveur et en allant sur 'Fichier ouvert' du gestionnaire de l'ordinateur'
Si tu veux le faire par code, tu oublie vba excel, c'est une appli réseau que tu veux faire pas une macro. Vba ne gere pas le multisession, tu ne peux pas récuperer qui a ouvert le meme fichier que toi en temps reel depuis excel

Bonne chance

[Invité]

Bonjour

Une idée :

1 - Quand l'utilisateur ouvre ton fichier, tu stockes (à partir de fonctions qui t'on été proposé la valeur dans une feuille (qui sera invisible)
2 - Tu interroges les valeurs de cellules de cette feuille.


Starec

[Many31]

Bonjour

Une idée :

1 - Quand l'utilisateur ouvre ton fichier, tu stockes (à partir de fonctions qui t'on été proposé la valeur dans une feuille (qui sera invisible)
2 - Tu interroges les valeurs de cellules de cette feuille.


Starec

heu juste comme ca... le fait de renseigner une cellule du classeur ouvert ne suffira pas puisquil doit etre sauvegarde pour que la modification apparaisse a louverture en lecture seule... et si tu sauvegarde a louverture il faut bien sauvegarder a la fermeture les modifications...
Donc au final tu vas devoir creer un fichier temporaire dans nimporte quel format avec la valeur de lidentifiant de lutilisateur principal et le supprimer a la fermeture du fichier.
je me trompe?

[Pierre Fauconnier]

Bonsoir

Si le fichier n'est pas partagé, l'utilisateur reçoit normalement un message lui indiquant que son fichier sera ouvert en lecture seule et il peut choisir d'être informé du moment où le fichier sera libéré.

Cela ne suffit pas?