Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du
jour apparaisse. Cependant, à la prochaine ouverture, cette date reste
"ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier,
fermeture du fichier.
prochaine ouverture du fichier, conservation de la dernière date de
modification, et nouvelle date, fermeture du fichier.
Etc
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Dans "thisworkbook" :
Private Sub Workbook_Open() If Sheets("Feuil1").Range("A1") = "" Then Sheets("Feuil1").Range("A1") = Date Else Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) = Date End If End Sub
Cordialement. Daniel "fifigim" a écrit dans le message de news:
Bonjour,
Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du jour apparaisse. Cependant, à la prochaine ouverture, cette date reste "ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier, fermeture du fichier. prochaine ouverture du fichier, conservation de la dernière date de modification, et nouvelle date, fermeture du fichier. Etc
Merci
Bonjour.
Dans "thisworkbook" :
Private Sub Workbook_Open()
If Sheets("Feuil1").Range("A1") = "" Then
Sheets("Feuil1").Range("A1") = Date
Else
Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) = Date
End If
End Sub
Cordialement.
Daniel
"fifigim" <fifigim@discussions.microsoft.com> a écrit dans le message de
news: A0D837DB-1C23-47EF-BC8D-23C0915EE444@microsoft.com...
Bonjour,
Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du
jour apparaisse. Cependant, à la prochaine ouverture, cette date reste
"ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier,
fermeture du fichier.
prochaine ouverture du fichier, conservation de la dernière date de
modification, et nouvelle date, fermeture du fichier.
Etc
Private Sub Workbook_Open() If Sheets("Feuil1").Range("A1") = "" Then Sheets("Feuil1").Range("A1") = Date Else Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) = Date End If End Sub
Cordialement. Daniel "fifigim" a écrit dans le message de news:
Bonjour,
Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du jour apparaisse. Cependant, à la prochaine ouverture, cette date reste "ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier, fermeture du fichier. prochaine ouverture du fichier, conservation de la dernière date de modification, et nouvelle date, fermeture du fichier. Etc
Merci
zOrg2net
Bonjour, A mettre dans ThisWorkbook:
Private Sub Workbook_Open() [C2].Value = [C1].Value [C1].Value = Date End Sub
Modifier le nom des cellules qui recoivent les dates.
zOrg2net 7OuNet
Bonjour,
Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du jour apparaisse. Cependant, à la prochaine ouverture, cette date reste "ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier, fermeture du fichier. prochaine ouverture du fichier, conservation de la dernière date de modification, et nouvelle date, fermeture du fichier. Etc
Merci
Bonjour,
A mettre dans ThisWorkbook:
Private Sub Workbook_Open()
[C2].Value = [C1].Value
[C1].Value = Date
End Sub
Modifier le nom des cellules qui recoivent les dates.
zOrg2net
7OuNet
Bonjour,
Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du
jour apparaisse. Cependant, à la prochaine ouverture, cette date reste
"ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier,
fermeture du fichier.
prochaine ouverture du fichier, conservation de la dernière date de
modification, et nouvelle date, fermeture du fichier.
Etc
Private Sub Workbook_Open() [C2].Value = [C1].Value [C1].Value = Date End Sub
Modifier le nom des cellules qui recoivent les dates.
zOrg2net 7OuNet
Bonjour,
Je souhaiterai que dans une cellule, à l'ouverture du fichie, la date du jour apparaisse. Cependant, à la prochaine ouverture, cette date reste "ancienne", et une nouvelle apparaisse dans la cellule en dessous...
Pour résumé : ouverture du fichier, date du jour, modification du fichier, fermeture du fichier. prochaine ouverture du fichier, conservation de la dernière date de modification, et nouvelle date, fermeture du fichier. Etc