Microsoft 365 Ouvrir par VBA, dans un répertoire, le Nième fichier

patricktoulon à dit:

bonsoir
dans l'ordre de windows tel que tu les a range dans tes options de tri dans la fenêtre explorateur
une simple boucle dir

VB:

p=73
folder="D:\mesphotos"
fichiers=dir(folder & "\*jpg")
do while fichiers<>""
x=x+1::if x=p then exit do
fichiers=dir
loop
msgbox  "la " & p  &  " eme photo est le fichier " & fichiers

Cliquez pour agrandir...

Yeahou à dit:

re,

le code ci dessous ne liste que les fichiers Jpeg et Jpg
on peut retrouver facilement un fichier par son numéro d'ordre alphabétique
lancer la sub ListerFichiers pour créer la liste
ensuite la sub Trouver_Fichier

Bien cordialement, @+

Code:

Sub ListerFichiers()
    Dim Fso, Chemin_Dossier$, Liste_Fichiers, Fichier_en_Cours, Compteur&
   
    Chemin_Dossier = "c:\Photos"
   
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Liste_Fichiers = Fso.GetFolder(Chemin_Dossier).Files
    ReDim LesFichiers$(1 To Liste_Fichiers.Count)
    For Each Fichier_en_Cours In Liste_Fichiers
        If Right(Fichier_en_Cours.Name, 5) = ".jpeg" Or Right(Fichier_en_Cours.Name, 4) = ".jpg" Then
            Compteur = Compteur + 1
            LesFichiers(Compteur) = Chemin_Dossier & "\" & Fichier_en_Cours.Name
        End If
    Next
    If Compteur > 0 Then ReDim Preserve LesFichiers$(1 To Compteur)
    MsgBox "Il y a " & Compteur & " fichiers type Jepg/Jpg dans le dossier : " & Chemin_Dossier & vbLf & _
        "le premier : " & LesFichiers(1) & vbLf & _
        "le dernier : " & LesFichiers(UBound(LesFichiers)), vbOKOnly + vbInformation
    Set Fso = Nothing
End Sub

Sub Trouver_Fichier()
Dim Compteur&
Compteur = InputBox("entrez un numéro de fichier")
MsgBox LesFichiers(Compteur)
End Sub

Cliquez pour agrandir...