Macro se déclenchant à la fermeture d'un fichier

[Fab117]

Salut,
Est-il possible qu'une macro s'excécute à la fermeture d'un fichier ?
Si c'est le cas, est-il possible qu'elle ne se déclenche que si c'est un utilisateur donné qui ferme le fichier (du style : if user <> "toto" then exit sub) ?

Fab

 

[Pierrot93]

Re : Macro se déclenchant à la fermeture d'un fichier

Bonjour Fab

essaye peut être le code ci dessous, à mettre dans "ThisWorkbook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.UserName <> "nom_utilisateur" Then Exit Sub
'toncode
End Sub

@+

 

[Fab117]

Re : Macro se déclenchant à la fermeture d'un fichier

Salut,
Pour la partie déclenchement de la macro à la fermeture du fichier, ça fonctionne parfaitement. Par contre, il ne reconnait pas mon username (j'ai mis mon login lorsque j'ouvre ma session Windows).
J'ai essayé de lui demandé mon username en mettant Msgbox UserName, mais ça ne fonctionne pas.
Quelqu'un saurait-il comment résoudre ceci ?

Fab

 

[porcinet82]

Re : Macro se déclenchant à la fermeture d'un fichier

Salut,

Tu entends quoi par "il ne reconnait pas mon username (j'ai mis mon login lorsque j'ouvre ma session Windows)." ???
Je ne saisie pas tres bien ce que tu souhaite faire, si tu pouvais nous donner quelques informations supplémentaires...

@+

 

[Fab117]

Re : Macro se déclenchant à la fermeture d'un fichier

Salut,
Je suis sur le réseau de mon entreprise.
Je vais mettre des fichiers sur un partage commun. Par sécurité, lorsque JE modifie ces fichiers, je voudrais qu'il en fasse une copie sur ma partition.
Voila.
Donc, lorsque je me logg pour ouvrir ma session Windows, je dois mettre mon login et mon mot de passe. Ensuite, je voudrais qu'Excel vérifie que c'est bien moi qui ferme le fichier avant d'en faire la copie (il est possible que d'autres personnes consultent ces fichiers et dans ces cas, je ne veux pas de copie chez moi).

Fab

 

[Pierrot93]

Re : Macro se déclenchant à la fermeture d'un fichier

Bonjour Fab, Romain

pour le login windows essaye le code ci dessous :

If Environ("UserName") <> "nom_utilisateur" Then Exit Sub

bonne journée
@+

 

[Fab117]

Re : Macro se déclenchant à la fermeture d'un fichier

Super,
ça fonctionne parfaitement.
Merci et bon appétit.

Fab