Besoin d'aide pour dater l'éxecution d'un script

Fermé
mobilopi - 16 juin 2016 à 15:08
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 20 juin 2016 à 10:53
Bonjour,

Je suis entrain de créer un petit programme de sauvegarde qui lance un script robocopy quand l'utilisateur clique sur le bouton "Sauvegarder Maintenant".
J'aimerais pouvoir afficher la date de la dernière sauvegarde effectuée.

Comment dois-je m'y prendre ?



A voir également:

6 réponses

Voila ce que j'ai en tête:
J'aimerais pouvoir récupérer la date de pression sur le bouton "sauvegarder maintenant" dans mon fichier .ini

pour ensuite pouvoir la lire à chaque exécution du programme.
Comment faire ?
0
up
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 juin 2016 à 10:02
Bonjour,

a adapter:

 With ActiveWorkbook
 MsgBox "auteur: " & .BuiltinDocumentProperties("Author") & vbLf & _
                "le: " & .BuiltinDocumentProperties("creation date") & vbLf & _
                "dernier enregistrement le " & .BuiltinDocumentProperties("last save time") & vbLf & _
                " par: " & .BuiltinDocumentProperties("last author")
 End With

0
Merci de votre réponse.

J'avais plutôt en tête un code qui
-récupère la date du clique
-L'enregistre dans mon fichier .ini
Dans: [Date]
ManualSave=19/06/2016

Ayant déjà codé autour du fichier ini en question.

Comment puis-je faire ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 juin 2016 à 19:24
Comme ceci:

Dim chemin As String
  Close
  chemin = ThisWorkbook.Path & "\"
  Open chemin & "Fichier.txt" For Output As #1
  Print #1, ActiveWorkbook.BuiltinDocumentProperties("last save time")
  Close

0
J'aurai du le préciser plus tôt mais je ne suis pas sous excel, donc je ne peux pas utiliser la fonction workbook, je suis sous Microsoft Visual Basic 2010 Express
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
J'aurai du le préciser plus tôt mais je ne suis pas sous excel, donc je ne peux pas utiliser la fonction workbook, je suis sous Microsoft Visual Basic 2010 Express
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié par cs_Le Pivert le 20/06/2016 à 10:56
0