date sous excel

hanane123456789

XLDnaute Nouveau
Bonjour tous le monde!

je souhaite automatiser la saisie des dates dans un même fichier excel, sans mise à jour, c-à-d si j'ouvre le fichier aujourd'hui la date est automatiquement insérer (la date du jour), mais si j'ouvre le fichier le jour suivant la date précédente ne se met pas à jour mais la date du jour suivant est insérée dans la ligne suivante comment puis-je faire?
merci
 

Iznogood1

XLDnaute Impliqué
Bonjour
avec une macro dans Workbook_Open() du style :
VB:
Option Explicit

Private Sub Workbook_Open()
    Dim lastRow As Long
    Dim today As Date
 
    today = DateSerial(Year(Now), Month(Now), Day(Now))
    lastRow = Feuil1.[A1].CurrentRegion.Rows.Count
 
    If Feuil1.Range("A" & lastRow).Value <> today Then
        If lastRow = 1 And IsEmpty(Feuil1.[A1]) Then
            Feuil1.[A1].Value = today
        Else
            Feuil1.Range("A" & lastRow).Range("A2").Value = today
        End If
    End If
End Sub

L'exemple joint inscrit la date courante dans la colonne A de Feuil1 - à adapter au besoin
 

Pièces jointes

  • DateAuto.xlsm
    14.1 KB · Affichages: 8
Dernière édition:

Discussions similaires