J'ai plusieurs sous dossiers o=F9 se trouvent des fichiers DM*****.xls.
Les 5 ast=E9risques repr=E9sentent des chiffres 00001 ; 00002 ; etc... Comme
les sous dossiers sont nombreux, je ne sais jamais o=F9 j'en suis dans
la croissance des fichiers. Ce que je voudrais faire c'est mettre au
point une macro qui testerait tous les sous dossiers pour ressortir le
nom du fichier ayant la plus grande valeur et la faire appara=EEtre =E0
l'ouverture de mon fichier mod=E8le nomm=E9 DM00000.xls dans la cellule
M2.
Si quelqu'un avait d=E9j=E0 travaill=E9 sur ce type de probl=E8me les id=E9=
es
seront les bienvenues.
Bien cordialement
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
J'ai plusieurs sous dossiers où se trouvent des fichiers DM*****.xls. Les 5 astérisques représentent des chiffres 00001 ; 00002 ; etc... Comme les sous dossiers sont nombreux, je ne sais jamais où j'en suis dans la croissance des fichiers. Ce que je voudrais faire c'est mettre au point une macro qui testerait tous les sous dossiers pour ressortir le nom du fichier ayant la plus grande valeur et la faire apparaître à l'ouverture de mon fichier modèle nommé DM00000.xls dans la cellule M2. Si quelqu'un avait déjà travaillé sur ce type de problème les idées seront les bienvenues. Bien cordialement
Bonsoir,
Non testé : Sub test() chemin = ThisWorkbook.Path & "" debut = "DM00000.xls" fil = "DM?????.xls" With Application.FileSearch .Filename = fil .LookIn = chemin .SearchSubFolders = True .Execute If .FoundFiles.Count > 0 Then For a = 1 To .FoundFiles.Count fil = .FoundFiles(a) If UCase(Left(fil, Len(chemin))) = UCase(chemin) Then If Dir(fil) > debut Then debut = Dir(fil) End If Next a End If End With End Sub
@+ FxM
J'ai plusieurs sous dossiers où se trouvent des fichiers DM*****.xls.
Les 5 astérisques représentent des chiffres 00001 ; 00002 ; etc... Comme
les sous dossiers sont nombreux, je ne sais jamais où j'en suis dans
la croissance des fichiers. Ce que je voudrais faire c'est mettre au
point une macro qui testerait tous les sous dossiers pour ressortir le
nom du fichier ayant la plus grande valeur et la faire apparaître à
l'ouverture de mon fichier modèle nommé DM00000.xls dans la cellule
M2.
Si quelqu'un avait déjà travaillé sur ce type de problème les idées
seront les bienvenues.
Bien cordialement
Bonsoir,
Non testé :
Sub test()
chemin = ThisWorkbook.Path & ""
debut = "DM00000.xls"
fil = "DM?????.xls"
With Application.FileSearch
.Filename = fil
.LookIn = chemin
.SearchSubFolders = True
.Execute
If .FoundFiles.Count > 0 Then
For a = 1 To .FoundFiles.Count
fil = .FoundFiles(a)
If UCase(Left(fil, Len(chemin))) = UCase(chemin) Then
If Dir(fil) > debut Then debut = Dir(fil)
End If
Next a
End If
End With
End Sub
J'ai plusieurs sous dossiers où se trouvent des fichiers DM*****.xls. Les 5 astérisques représentent des chiffres 00001 ; 00002 ; etc... Comme les sous dossiers sont nombreux, je ne sais jamais où j'en suis dans la croissance des fichiers. Ce que je voudrais faire c'est mettre au point une macro qui testerait tous les sous dossiers pour ressortir le nom du fichier ayant la plus grande valeur et la faire apparaître à l'ouverture de mon fichier modèle nommé DM00000.xls dans la cellule M2. Si quelqu'un avait déjà travaillé sur ce type de problème les idées seront les bienvenues. Bien cordialement
Bonsoir,
Non testé : Sub test() chemin = ThisWorkbook.Path & "" debut = "DM00000.xls" fil = "DM?????.xls" With Application.FileSearch .Filename = fil .LookIn = chemin .SearchSubFolders = True .Execute If .FoundFiles.Count > 0 Then For a = 1 To .FoundFiles.Count fil = .FoundFiles(a) If UCase(Left(fil, Len(chemin))) = UCase(chemin) Then If Dir(fil) > debut Then debut = Dir(fil) End If Next a End If End With End Sub
