Archivage au jour le jour

Re : Archivage au jour le jour

Bonsoir

Pour avoir la date du jour
=AUJOURDHUI()

En VBA (pour inscrire la date du jour)
Sub test()
Dim JOUR As String
JOUR = Date
[A1] = CDate(JOUR)
End Sub

Pour garder la trace dans un fichier texte
Sub dailylog()
Dim FileNum As Long
Dim DATA As String
DATA = Range("a1").Value & "-" & CDate(Date) & "-" & Time
FileNum = FreeFile
Open "c:\historique.txt" For Append As #FileNum
Print #FileNum, DATA
Close #FileNum
End Sub

Une fonction personnalisée VBA (pour connaitre la date du dernier enregistrement du fichier)

Public Function LastSaveTime() As String
'source: Use VBA Functions to Return Excel Document Properties
Application.Volatile
LastSaveTime = _
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Re : Archivage au jour le jour

ericsoussan à dit:

Bonjour a tous,

Je débute sur Excel et j'aimerai savoir si il est possible d'archiver la valeur d'une cellule au jour le jour et la date du jour de l'archivage ?
Soit en cliquant sur un bouton
Soit, idéalement, sans meme ouvrir le fichier (mais la je ne pense pas que ce soit faisable)

Si quelqu'un peut m'éclairer.

Merci d'avance

Cliquez pour agrandir...

Salut
Pour voir le code
Alt+F11 => passage sous VBEditor
Explorateur de projet fenêtre en haut à gauche (menu Affichage)
Double-clic sur ThisWorkBook

la macro qui se lance à l'ouverture du fichier (WorkBook_Open) vérifie en colonne A de la feuille archive si elle contient la date du jour : si oui, elle s'arrête, si Non, elle met la date à la suite, et la valeur de la cellule A1 de la feuille origine

On peut faire le même code pour close à la place

Si les explications du code ne sont pas suffisament compréhensibles, demande
A+