Pb avec Datelastmodified

  • Initiateur de la discussion Initiateur de la discussion p.pat27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

p.pat27

XLDnaute Junior
bonjour a tous

J'ai un problème avec la fonction Datelastemodified.
Je recherche dans un répertoire la date du plus récent fichier et la rammene dans une cellule excel. Jusque là tout va bien !!
Par contre cela ne donne pas toujours la bonne date
ex: si dans le rep il y a deux fichier avec les dates suivantes: 07/04/2010 et 15/03/2007; cela me rammene la date 15/03/2007 et pas 07/04/2010 ????😕
Je pense que le systéme compare d'abord les jours, puis les mois, puis les années !! j'ai essayé avec le système "anglais" mais idem !!
Comment faire pour qu'il me rammene la bone date (la plus récente!) ??

Merci d'avance car je pédale dans le vide !!!


'recherche la date de la dernière fiche et la noter dans la colonne I
Sub RechDate()

Dim i, n As Long, Chemin, reponse As String, FS As FileSearch, FSO, fold, fich

Set FSO = CreateObject("Scripting.FileSystemObject")
reponse = InputBox("Commencer à partir de la ligne ??")
n = Range("A65536").End(xlUp).Row
If reponse < 8 Then reponse = 8
ActiveWorkbook.Save

For i = reponse To n
If Range("A" & i).Value = "" Then
Else
Chemin = "\\frhofps0\frho_shared\Srv Developpement\Fiches techniques PF\" & Range("A" & i).Hyperlinks(1).Address
Set fold = FSO.getfolder(Chemin)
Chemin = fold.Path
Set FS = Application.FileSearch
With FS
.NewSearch
.LookIn = Chemin
.Filename = Range("A" & i).Value & " "
.SearchSubFolders = False
If .Execute(msoSortByLastModified, msoSortOrderDescending) > 0 Then
Set fich = FSO.getfile(.FoundFiles(.FoundFiles.Count))
Range("I" & i).Value = CDate(fich.datelastmodified)
Else
Range("I" & i).Value = ""
End If
End With
End If
Range("A3").Value = n - i
Next i

Set fich = Nothing
Set fold = Nothing
Set FSO = Nothing
End Sub
 
Re : Pb avec Datelastmodified

Bonjour p.pat27, tototiti2008 et à ceux qui passeront par là.

J'ai eu besoin de le faire par ailleurs.

Et par suite de moult essais, je me suis rabattu sur la méthode qui consistait
à charger tous les fichiers du répertoire choisi dans une ListView (Invisible pour ne pas envahir mon USF)

Je récupère la date numérique de la dernière modif. avec "GetDetailsOf"
Puis tri de la liste par la colonne concernée, et récupération du dernier ou premier Item.

Je suis pressé, je n'ai pas le temps de construire un exemple.

Peut-être à plus, si tu ne trouve pas solution qui te convienne.

Cordialement.

Yann
 
Re : Pb avec Datelastmodified

Bonsoir tototiti, et à tous.

Moi non plus je ne baisse pas les bras!
Surtout devant une arme😱 Comme est ta compétence.

Je n'avais pas vu ton message avant d'avoir bidouillé le truc joint.

J'ai vu que ton MsgBox se réinitialise à chaque fermeture de celui-ci.
Je vais regarder plus loin.

En tous les cas tu as beaucoup moins de lignes à écrire, et j'aime bien. 🙂
p.pat27 va certainement y trouver son bonheur.

A noter que dans mon exemple on peut masquer la ListView, et remplacer
le label 1 par une variable "Public"…. Le reste n'est que pour information.

Au passage: Ta façon de faire, si le souci des MsgBoxes est résolu, va bien
m'aider à alléger nombre de mes applis.

A plus certainement, après avoir testé concrètement.

Amicalement

Yann
 
Re : Pb avec Datelastmodified

J'ai essayé chez moi sur mon PC (Windows7 & Office 2000), j'ai décompressé ton fichier sur mon C:\, lancer le fichier test et cliqué sur le bonton test sans rien toucher d'autre, et la il me remonte "19/04/2010 15:26:54" qui correspond au fichier TOTO-5 et non pas TOTO-4.
je ne comprends pas pourquoi chez toi ça marche, et chez moi NON !!!

Si quelqu'un peux nous aider ??? HEEELLLPPP!!
 
Re : Pb avec Datelastmodified

Re Bonsoir tototiti, et à ceux qui passeront par là.

Bravo pour ton code. Je laisse tomber ma ListView, et j'opte pour ton code.
Testé, approuvé, et adapté avec succès dans autres travaux!

Qu'il est bon de croiser des Barbatrucs ici !!! (Promis quand je serai grand…🙂)

Bonne fin de soirée à toi et à tous.

Yann
 
Re : Pb avec Datelastmodified

Je ne pige pas pourquoi, et j'ai un doute.

Voici mes références cochées au cas où.

Mais adopte la solution de tototiti; elle est préférable à la mienne.

Bonne nuit

Yann
 

Pièces jointes

  • Image1.jpg
    Image1.jpg
    18.5 KB · Affichages: 48
  • Image1.jpg
    Image1.jpg
    18.5 KB · Affichages: 47
  • Image1.jpg
    Image1.jpg
    18.5 KB · Affichages: 50
Re : Pb avec Datelastmodified

Bonjour à tous,

Code:
EXCEL 2000 ne reconnait pas "msoFileDialogFolderPicker" erreur 438

de mémoire les objets FileDialog n'existent pas sous Excel 2000...


et la il me remonte "19/04/2010 15:26:54" qui correspond au fichier TOTO-5

as-tu essayé le dernier zip que j'ai posté ? cette fois il doit te montrer les 5 fichiers dans 5 msgbox.
Peux-tu essayer la macro, et bien noter le retour des 5 msgbox, et l'ordre dans lequel ça apparait ?
 
Re : Pb avec Datelastmodified

Bonjour p.pat27, tototiti2008 et à ceux qui passeront par là.

Effectivement… Avec 2000: Pouf!

A éventuellement tester la rectification de mon classeur initial.

Merci de me dire si cela fonctionne.

Bonne journée à tous.

Yann
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
287
Réponses
2
Affichages
209
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
503
Réponses
5
Affichages
187
Réponses
4
Affichages
195
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
177
Réponses
2
Affichages
157
Réponses
4
Affichages
467
Retour