Ouvrir un fichier avec un nom inconnu

isabelle29

XLDnaute Nouveau
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
 

Dranreb

XLDnaute Barbatruc
Au cas où ça correspondrait mieux à votre vrai besoin :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 196
Messages
2 086 101
Membres
103 116
dernier inscrit
kutobi87