Lister fichier, ajout date de modification Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Blondin02
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 8 octobre 2016
Version d'Excel : 2016

Message par Blondin02 » 3 février 2019, 08:33

Bonjour,

J'ai récupéré le fichier joint sur ce sujet => viewtopic.php?f=2&t=32101&hilit=repertoire&start=20

Je souhaiterais avoir la date de dernière modification en colonne C .

Merci de votre aide.
MAJRepertoire_V005 (1).xlsm
(37.62 Kio) Téléchargé 7 fois
Avatar du membre
M12
Passionné d'Excel
Passionné d'Excel
Messages : 3'010
Appréciations reçues : 113
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 3 février 2019, 09:19

Bonjour,

A tester
MAJRepertoire_V005 (1).xlsm
(41.79 Kio) Téléchargé 13 fois
1 membre du forum aime ce message.
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'502
Appréciations reçues : 752
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 3 février 2019, 09:21

Bonjour,

ton appli étant bien complexe pour moi, je te mets sur une piste avec ceci :
Sub test()
Dim Fso As Object, F As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
'Instanciation de l'objet File
Set F = Fso.GetFile("C:\Users\Michel\Downloads\JsonConverter\JsonConverter.bas")
MsgBox (" Fichier : " & F.Name & " - Taille : " & F.Size & " - Dernière modification : " & F.DateLastModified)
End Sub
edit : bonjour M12, on travaillait sans doute en parallèle, pas encore vu ta réponse.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
M12
Passionné d'Excel
Passionné d'Excel
Messages : 3'010
Appréciations reçues : 113
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 3 février 2019, 09:25

Bonjour Steelson
J'ai seulement rajouté cette ligne dans le module ModMAJ --> Macro MAJRepertoire la ligne suivante:
 .Cells(LigEcrire, Col).Offset(0, 2) = FileDateTime(F)
1 membre du forum aime ce message.
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
B
Blondin02
Membre habitué
Membre habitué
Messages : 134
Inscrit le : 8 octobre 2016
Version d'Excel : 2016

Message par Blondin02 » 3 février 2019, 11:10

Bonjour,

Merci M12 et Steelson.

Exactement ce que je voulais.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message