Affichage d'une date

Résolu/Fermé

corentin - Modifié par crapoulou le 20/11/2016 à 14:00
Corentin - 20 nov. 2016 à 12:39

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

A voir également:

Affichage d'une date
Publipostage date en anglais ✓ - Forum Excel
Publipostage date inversée ✓ - Forum Word
Affichage double ecran - Guide
Problème affichage le bon coin ✓ - Forum Virus
Passé cette date - Forum Logiciels

4 réponses

Réponse 1 / 4

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
Modifié par yg_be le 20/11/2016 à 11:25

Suggestion :

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

Corentin
20 nov. 2016 à 12:39

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

Réponse 2 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 18/11/2016 à 16:11

Bonjour,

Date

c'est la date
et

Now()

c'est la date et l'heure

Réponse 3 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 20/11/2016 à 07:17

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

Réponse 4 / 4

Utilisateur anonyme
19 nov. 2016 à 02:25

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. 😊

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 nov. 2016 à 08:24

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 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
19 nov. 2016 à 15:45

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 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
20 nov. 2016 à 00:45

@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. 😊

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Pix

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

Si une date est supérieure à une autre

Discussions similaires

Newsletters