Enregistrement date

Fermé
djfredo - 12 févr. 2019 à 14:15
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 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

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 févr. 2019 à 16:25
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
0