VBA sur la date derniere modification Résolu/Fermé

Question

Bonjour, 

Tout d'abord, je tiens à préciser que je ne maîtrise pas parfaitement le langage VBA et les macros.

Voici mon soucis

J'ai un tableau de plusieurs pages ou je dois tracer qui à modifier et quand,  sur la formule que j'utilises, il n'est mentionné que la dernière modification, et il manque l'info de l'utilisateur

Pouvez-vous m'aider ?

Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("historiques").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") & Format(Time, " hh:mm")
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

ccm81 · Answer

Bonjour

Peut être ceci
Dim u As String
u = ActiveWorkbook.BuiltinDocumentProperties("Last Author").Value

voir ici

Cdlmnt

Utilisateur anonyme · Answer

Bonjour dingding,

Pour l'auteur, essaye : MsgBox ActiveWorkbook.Author 

Pour les dates, si FName (Object) est ton fichier, tu as :

a) date de création : FName.DateCreated
b) date de dernière modification : FName.DateLastModified
c) date de dernier accès : FName.DateLastAccessed

Cordialement.  &#x1F60A;

michel_m · Answer

bonjour tt le monde

un exemple à adapter (caftage sur 1 colonne) se déclenche avec l'appui sur "entrée" dans la plage utile

cafte l'adresse de la modif, la date et l'heure,l'ancienne valeur et la nouvelle, qui en est l'auteur
attention si le classeur se trouve sur le serveur accessible à plusieurs personnes, il faudra peut-être modifier la recherche du nom... (je ne suis plus sur serveur et donc je ne peux vérifier
http://www.cjoint.com/c/FJgoBnPf1Xm 
on peut aussi envoyer les résultats dans un fichier texte si ca t'intéresse

michel_m · Answer

bonjour dingding

comme tu es sur serveur, les 3 macros dans le classeur ci joint te donnent la date-heure  d'ouverture et fermeture et le nom dans un fichier texte "spy.txt". elle doivent être installées dans le module "thisworkbook"
pour le nom, étant en monoposte, je ne sais si le nom renvoyé est l'utilisateur ou l'auteur du classeur...

 le classeur
http://www.cjoint.com/c/FJhjNqDbmIm

pour ma proposition précédente, la macro devait ^tre copié dans le module feuille concernée



 
 
 Michel

VBA sur la date derniere modification

4 réponses

Discussions similaires