Insertion du dernier utilisateur

D

danilo.ducrest

Guest

• 7 Août 2009

• #2

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.

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 7 Août 2009

• #3

Re : Insertion du dernier utilisateur

Bonjour Danilo, Jean-Marcel.

Danilo, tu peux aussi essayer ça :

Code:

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.

 

Vote positif 0 Vote négatif

D

danilo.ducrest

Guest

• 7 Août 2009

• #4

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.

 

Pièces jointes

• Test.xls

  32.5 KB · Affichages: 159
• Test.xls

  32.5 KB · Affichages: 172
• Test.xls

  32.5 KB · Affichages: 168

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Août 2009

• #5

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

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 7 Août 2009

• #6

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.

 

Pièces jointes

• Test(1).xls

  45.5 KB · Affichages: 205
• Test(1).xls

  45.5 KB · Affichages: 214
• Test(1).xls

  45.5 KB · Affichages: 219

Vote positif 0 Vote négatif