Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouvrir un fichier avec un nom inconnu

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Bonjour.
Sinon essayez comme ça :
VB:
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
 
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
 
@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 .
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…