Affichage d'une date [Résolu/Fermé]

Signaler
-
 Corentin -
Bonjour,
Je souhaite afficher la date et l'heure d'une modification d'un fichier excel. J'ai trouvé ce code sur le forum. Il fonctionne et affiche bien la date. Pouvez vous m'aider pour qu'il affiche également l'heure de la modification ?
Dim modif As Boolean 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If modif = True Then 
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") 
End If 
End Sub 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
modif = True 
End Sub


Merci d'avance

4 réponses

Messages postés
15004
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
8 avril 2021
825
Suggestion :
Sheets("Feuil1").Range("A1").Value = _
      "Dernière Révision le " & Format(Now(), "dd/mm/yyyy hh:mm:ss")
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Bonjour,

Merci pour vos réponses, j'ai réussi à afficher ce que je voulais avec le morceau de code de yg_be !

A bientot
Messages postés
15721
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 avril 2021
1 480
Bonjour,

Date
c'est la date
et
Now() 

c'est la date et l'heure
Messages postés
15721
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 avril 2021
1 480
Bonjour,

Rectification : il me semble bien que c'est toi qui m'avais dit que tu notes
jamais en négatif ! Et peut-être pas en positif non plus ?

En effet, sais meme pas que je peux noter.

De toute facon, je ne noterai personne car si CCM n'est qu'une affaire de note, ca devient lamentable et pas mieux que les reseaux dits sociaux

sinon, tant pis ! J'aurais au moins essayé de l'aider !
Normalement, c'est notre but. Ce n'est pas tant pis, car vous avez surement aider d'autres personnes qui etaient a la recherche de ce que vous avez ecrit

Bonjour corentin,

Attention :

Le code VBA ci-dessous n'est pas fonctionnel, c'est juste une piste.
Tu devras ajouter le code pour éviter un plantage si le dossier ou
le fichier n'existent pas (gestionnaire d'erreur).

Tu verras qu'en plus de la date de modification, il y a juste avant
la date de création ; et juste après, la date de dernier accès (si tu
en auras besoin plus tard, pour cet exercice ou un autre).


Sub Essai
  Const fmt As String * 19 = "dd/MM/yyyy    hh:mm"
  Dim FName As Object, msg As String
  Set FName = CreateObject("Scripting.FileSystemObject").GetFile(PathX & "\" & FileX)
  msg = "Créé le :" & Space$(14) & Format(FName.DateCreated, fmt) & "  " & vbLf
  msg = msg & "Last modif. le :" & Space$(4) & Format(FName.DateLastModified, fmt) & vbLf & vbLf
  msg = msg & "Dernier accès :   " & Format(FName.DateLastAccessed, fmt)
  MsgBox msg, 0, "Dates et heures d'un fichier"
End Sub


PathX : chemin du fichier ; FileX : nom du fichier

Si c'est OK, merci de l'indiquer pour que le sujet
puisse être passé en résolu.

Cordialement.  😊
 
Messages postés
15721
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 avril 2021
1 480
Bonjour albkan,

Code du demandeur:*
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If modif = True Then 
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") 
End If 
End Sub 


Il veux enregistrer la date et l'heure de son fichier a la fermeture dans son fichier, pas avoir les infos d'un autre fichier
Utilisateur anonyme >
Messages postés
15721
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 avril 2021

 
Bonjour f894009,

Je rappelle d'abord la 1ère phrase de l'énoncé initial : « Je souhaite afficher
la date et l'heure d'une modification d'un fichier excel. » ; et c'est à cela
que j'ai répondu.

Merci pour le -1 ! J'ai bien écris que je mettais un code VBA non fonctionnel,
et en fait, je l'ai mis uniquement comme exemple de ces 3 .Date :
.DateCreated ; .DateLastModified ; .DateLastAccessed

Ensuite, au demandeur corentin de les appliquer au fichier qu'il veut.

Cordialement.  😊
 
Utilisateur anonyme >
Messages postés
15721
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
3 avril 2021

 
@f894009

Rectification : il me semble bien que c'est toi qui m'avais dit que tu notes
jamais en négatif !  😊  Et peut-être pas en positif non plus ?  😉

De toute façon, si mes 3 .Date peuvent être utiles à corentin, alors c'est
l'essentiel ; sinon, tant pis ! J'aurais au moins essayé de l'aider !

Cordialement.  😊