Horodatage en Excel

Sly -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je cherche une façon de faire inscrire automatiquement la date et l'heure d'une entrée sur excel afin de garder la trace du moment de cette entrée?

Est-ce possible et aussi aussi de faire ajouter une signature?

Sly

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    Ces codes inscrivent dans un fichier .txt qui a ouvert et fermer le classeur (le fichier .txt est créé lors de la 1° ouverture après livraison de l'appli 

    Option Explicit  
Const fichier As String = "D:\documents\bigbrother.txt" 'A ADAPTER AU CONTEXTE  
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _  
(ByVal lpBuffer As String, _  
nSize As Long) As Long  

'A partir d'une démo de @+Thierry & Michel_M pour XLD(octobre 2006)  
Private Sub Workbook_Open()  
Dim lpBuff As String * 25  
Dim retour As Long  
Dim utilisateur As String, cafte As String  

retour = GetUserName(lpBuff, 25)  
utilisateur = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)  

cafte = "Ouvert à : " & Format(Now, "dd/mm/yyyy hh:mm:ss") & _  
vbTab & "par : " & utilisateur  

Open fichier For Append As #1  
Print #1, cafte  
Close  
End Sub  

Private Sub Workbook_BeforeClose(Cancel As Boolean)  
Dim lpBuff As String * 25  
Dim retour As Long  
Dim utilisateur As String, cafte As String  

retour = GetUserName(lpBuff, 25)  
utilisateur = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)  

cafte = "Fermé à  : " & Format(Now, "dd/mm/yyyy hh:mm:ss") & _  
vbTab & "par : " & utilisateur  

Open fichier For Append As #1  
Print #1, cafte  
Close  
End Sub

    Michel
    0