• Initiateur de la discussion Initiateur de la discussion hanane123456789
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

H

hanane123456789

Guest
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
 
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

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
18
Affichages
512
Réponses
15
Affichages
587
Réponses
2
Affichages
151
Réponses
3
Affichages
135
Retour