Affichage d'une date Résolu/Fermé

Question

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

f894009 · Answer

Bonjour,

Date c'est la date 
et 
Now() 
c'est la date et l'heure

Utilisateur anonyme · Answer

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.  &#x1F60A;

f894009 · Answer

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

yg_be · Answer

Suggestion : 
Sheets("Feuil1").Range("A1").Value = _
      "Dernière Révision le " & Format(Now(), "dd/mm/yyyy hh:mm:ss")

Affichage d'une date

4 réponses

Discussions similaires