Insertion du dernier utilisateur

[danilo.ducrest]

Salut à tous,

J'aimerais ds ma feuille, insérer ds une céllule le nom du dernier utilisateur, comme pour la date en faite.. ( sauvegarde ) ce qui m'évite d'allé ds les propriété de mon fichier, est ce possible.

merci de votre aide a+ D.

 

[danilo.ducrest]

Re : Insertion du dernier utilisateur

Merci pour la Macro,

Question :

Si ma feuille s'appel "Aout" et que c'est la céllule BL26

Est ce que ds ta formule je modiifie en conséquence ?

J'ai aussi une version 2003 excel anglaise, cela change quelque chose à la macro, car elle ne fonctionne pas !

Merci de ton aide, désolé, je débute ds les macros..

D.

 

[13GIBE59]

Re : Insertion du dernier utilisateur

Bonjour Danilo, Jean-Marcel.

Danilo, tu peux aussi essayer ça :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Integer
   For i = 1 To Worksheets.Count
     Sheets(i).[BL26] = Now() & "     " & Environ("username")
   Next i
End Sub

Ce code fonctionne pour tous les onglets existants ou à venir.

 

[danilo.ducrest]

Re : Insertion du dernier utilisateur

et voila le fichier, je t'ai mis un memo dans la céllule dans laquelle j'aimerais voire apparaitre le nom de l'utilisateur.

merci d'avance
D.

 

[jeanpierre]

Re : Insertion du dernier utilisateur

Bonjour danilo.ducrest, 13GIBE59, Jen-Marcel,

Regarde ce site, section Commentaire, il devrait résoudre ton problème...

Formation Excel VBA JB

Bon après-midi.

Jean-Pierre

 

[13GIBE59]

Re : Insertion du dernier utilisateur

Danilo, vois si cela te convient.

En BL26, tu as la date, l'heure et le nom du dernier modificateur du fichier.