Affichage d'une date

Résolu
corentin -  
 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

Réponse 1 / 4
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
Suggestion : 
Sheets("Feuil1").Range("A1").Value = _
      "Dernière Révision le " & Format(Now(), "dd/mm/yyyy hh:mm:ss")
1
Corentin
 
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
0
Réponse 2 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

Date
c'est la date
et 
Now()

c'est la date et l'heure
0
Réponse 3 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 4 / 4
Utilisateur anonyme
 
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.  😊
 
-2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Utilisateur anonyme > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
 
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.  😊
 
0
Utilisateur anonyme > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
 
@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.  😊
 
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
impossible de voir les photos et videos sur une conversation messenger
cortomaltese83 -
Oceii -

4 réponses
Probleme d'affichage google chrome
flyingvvv -
helo -

5 réponses
Problème Whatsapp - "La date est incorrecte"
thvzzz -
Razor -

5 réponses