Affichage d'une date
Résolu/Fermé
A voir également:
- Affichage d'une date
- Iphone 14 date de sortie - Guide
- Whatsapp date incorrecte ✓ - Forum Mobile
- Publipostage date en anglais ✓ - Forum Excel
- Formule excel si date supérieur à une autre date ✓ - Forum Excel
- Vba date du jour - Forum Excel
4 réponses
yg_be
Messages postés
21304
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
Modifié par yg_be le 20/11/2016 à 11:25
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")
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 18/11/2016 à 16:11
Modifié par f894009 le 18/11/2016 à 16:11
Bonjour,
et
c'est la date et l'heure
Datec'est la date
et
Now()
c'est la date et l'heure
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 20/11/2016 à 07:17
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
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).
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. 😊
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
19 nov. 2016 à 08:24
19 nov. 2016 à 08:24
Bonjour albkan,
Code du demandeur:*
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
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
19 nov. 2016 à 15:45
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
20 nov. 2016 à 00:45
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. 😊
20 nov. 2016 à 12:39
Merci pour vos réponses, j'ai réussi à afficher ce que je voulais avec le morceau de code de yg_be !
A bientot