Qui utilise le fichier Excel?

Le
ymer.hyseni
Salut tout le monde,

j'aimerais une petite macro qui fait en sorte qu'un fichier .xls qui
est utilisé en réseau par plusieurs utilisateurs, et lorsque qqn l'a
ouvert, et un autre utilisateurs qui l'ouvre après, lui soit annoncé
que le fichier est actuellement ouvert chez Tartempion

comment faire?

merci et à bientôt.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ymer.hyseni
Le #6441141
On Apr 30, 7:30 pm, wrote:
Salut tout le monde,

j'aimerais une petite macro qui fait en sorte qu'un fichier .xls qui
est utilisé en réseau par plusieurs utilisateurs, et lorsque qqn l'a
ouvert, et un autre utilisateurs qui l'ouvre après, lui soit annoncé
que le fichier est actuellement ouvert chez Tartempion...

comment faire?

merci et à bientôt.


hello, personne n'a d'idée?

Philippe.R
Le #6441551
Bonsoir,
l'instruction

kice=environ("username")

placée dans la procédure open du module thisworkbook peut affecter le nom
d'utilisateur à la variable kice ; ou tout aussi bien à une cellule nommée,
qu'on écrira alors :

[kice]=environ("username")

On pourrait alors imaginer récupérer la valeur de cette variable ou de cette
cellule dans un msgbox à l'ouverture
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
news:
Salut tout le monde,

j'aimerais une petite macro qui fait en sorte qu'un fichier .xls qui
est utilisé en réseau par plusieurs utilisateurs, et lorsque qqn l'a
ouvert, et un autre utilisateurs qui l'ouvre après, lui soit annoncé
que le fichier est actuellement ouvert chez Tartempion...

comment faire?

merci et à bientôt.
Michel Pierron
Le #6441541
Quelque chose comme:

Private Sub UsersList()
Dim users, msg As String, status As String, i As Integer
users = ThisWorkbook.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

MP

news:
Salut tout le monde,

j'aimerais une petite macro qui fait en sorte qu'un fichier .xls qui
est utilisé en réseau par plusieurs utilisateurs, et lorsque qqn l'a
ouvert, et un autre utilisateurs qui l'ouvre après, lui soit annoncé
que le fichier est actuellement ouvert chez Tartempion...

comment faire?

merci et à bientôt.
ymer.hyseni
Le #6441531
On Apr 30, 10:36 pm, "Michel Pierron"
Quelque chose comme:

Private Sub UsersList()
Dim users, msg As String, status As String, i As Integer
users = ThisWorkbook.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

MP

Salut tout le monde,

j'aimerais une petite macro qui fait en sorte qu'un fichier .xls qui
est utilisé en réseau par plusieurs utilisateurs, et lorsque qqn l'a
ouvert, et un autre utilisateurs qui l'ouvre après, lui soit annoncé
que le fichier est actuellement ouvert chez Tartempion...

comment faire?

merci et à bientôt.


salut, merci beaucoup, ca marche bien là... ciao

Publicité
Poster une réponse
Anonyme