Menu

Enregistrement date

- - Dernière réponse : cs_Le Pivert
Messages postés
5812
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2019
- 12 févr. 2019 à 16:25
Bonjour,


sous Windows et dans un fichiers Excel
je souhaiterai que la date du jour apparaisse et soit enregistre en début d'une ligne

lors de la réouverture de ce fichier cette date reste et que la date du jour prenne place sur une nouvelle ligne et cela continuellement tous en gardant l'historique des dates
merci d'avance
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5812
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2019
403
0
Merci
Bonjour,

en vba faire Alt F11 pour accèder à l'éditeur. Allez dans ThisWorkbook et mettre ce code:

Option Explicit
Private Sub Workbook_Open()
Dim derligne As Long
If Range("A1") = "" Then
Range("A1") = Now
Else
derligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & derligne) = Now
End If
'sauvegarde avant qu'on ferme sans sauvegarde
ActiveWorkbook.Save
End Sub


Ensuite enregistrer le classeur acceptant les macros
Commenter la réponse de cs_Le Pivert