Ouvrir un fichier avec un nom inconnu

[isabelle29]

J’aimerai bien savoir s'il te plait comment ouvrir un fichier variable stocké toujours dans le même répertoire
Exmp des fichiers: D1,D2,D3,D4……
Chemin = "C:\Users \Desktop\ TVA\"
Ce code en dessous me permet d’ouvrir le fichier D1
Par contre moi je voudrais le fichier D4(toujour le même fichier avec le nombre maximum après lettre D)

Chemin= "C:\Users \Desktop\ TVA\ "
Nomfichier=dir (chemin & "d*.xls")
Workbooks.Open Filename:=Chemin & Nomfichier

 

[merinos-BernardEtang]

Salut Isabelle.

power query est ta reponse...

tu peux regarder cette question . il suffit d'ajouter un filtre qui ne garde qu'un fichier.

 

[Dranreb]

Bonjour.
Sinon essayez comme ça :

Dim RDir As String, NomFic As String
ChDrive "C": ChDir "C:\Users\Desktop\TVA"
RDir = Dir("D*.xls")
Do While RDir <> ""
   If NomFic < RDir Then NomFic = RDir
   RDir = Dir: Loop
Workbooks.Open Filename:=NomFic

 

[Dranreb]

Au cas où ça correspondrait mieux à votre vrai besoin :

Dim RDir As String, NomFic As String, FDT As Date, Récent As Date
ChDrive "C": ChDir "C:\Users\Desktop\TVA"
RDir = Dir("D*.xls")
Do While RDir <> ""
   FDT = FileDateTime(RDir): If FDT > Récent Then NomFic = RDir: Récent = FDT
   RDir = Dir: Loop
Workbooks.Open Filename:=NomFic

 

[isabelle29]

D'accord je vais essayer vos réponses merci bcp 🙂

 

[merinos-BernardEtang]

Tout dépend de ce que tu fais... et des etapes suivantes.

 

[isabelle29]

@Dranreb , impeccable le 1er code fonctionne parfaitement même si j'arrive pas a bien comprendre votre code (pck j'ai jamais appliqué le code while)
Aussi , le 2eme code ça marche mais au cas ou j'ai modifié le fichier d1 quand j'applique le code va ouvrir d1 à la place d4 .

 

[Dranreb]

Oui c'est bien pour ça que j'ai dit 'Au cas où ça correspondait mieux à votre vrai besoin'
C'est à dire si le fichier à appliquer est en fait le plus récemment créé ou modifié.

 

[isabelle29]

D'accord , s'il vous plait j'ai juste une petite question c'est quoi l’intérêt de la variable: NomFic dans le code ?

 

[ThomasR]

hello,

cela permet de pouvoir comparer le nom du fichier courant (celui de la boucle) avec celui qui pour le moment répond au critère métier (à savoir le nombre le plus grand)

cordialement,
Thomas

 

[isabelle29]

Maintenant c'est clair , merci bcp