Discussion :

[Fabien_Gadz]

Bonjour,

Je rencontre un problème lors de l'utilisation de la fonction Dir afin d'ouvrir le fichier le plus récent d'un répertoire.
Si je mets un chemin d'accès ne contenant pas d'espaces, la macro fonctionne correctement, à l'inverse l'exécution de fait jamais rentrer dans la boucle.
Voici un exemple ci-dessous avec un chemin d'accès modifié pour des raisons de confidentialité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub OuvrirDernierDoc()
 
Dim DernierFichier As String, Chemin2 As String, Fichier As String, DerniereDate As Date
Chemin2 = "\\XXX\XX\XXXX\XXXX\XX\XX X - XX\XX XX\XXX XX XX\XXXX XXX\2022" ' saisir ici le chemin d'accès de ton répertoire
Fichier = Dir(Chemin2 & "*.xlsx")
Do While Fichier <> ""
    If FileDateTime(Chemin2 & Fichier) > DerniereDate Then
        DerniereDate = FileDateTime(Chemin2 & Fichier)
        DernierFichier = Fichier
    End If
    Fichier = Dir()
Loop
 
 
Workbooks.Open (Chemin2 & DernierFichier)
End Sub

Toute aide est la bienvenue car je n'arrive pas réellement à corriger mon erreur lors de la boucle. Cela pourrait-il venir de caractères spéciaux autres que les espaces ?

Merci d'avance

[Philippe Tulliez]

Bonjour,
S'il ne rentre pas dans la boucle, cela signifie que la première instruction Dir renvoie une chaîne vide
A la lecture rapide des lignes 4 et 5 de votre code publié, il me semble qu'il manque un backslash ou barre inversée (\) soit Fichier = Dir(Chemin2 & "\*.xlsx") ou bien ajouter un "\" à la fin de Chemin2 sinon le problème persistera à l'intérieur de la boucle.

[Fabien_Gadz]

Merci infiniment encore une fois. Désolé d'avoir fait une erreur aussi grossière et de vous avoir mobilisé.

[deedolith]

La fonction Dir présente des faiblesses, je ne recommande pas son utilisation.

Passe plutot par la librairie Scripting.FileSystemObject qui est plus fiable, et plus parlante.