Ouvrir un fichier avec un nom inconnu

merinos

XLDnaute Accro

• 26 Avril 2019

• #2

Salut Isabelle.

power query est ta reponse...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Avril 2019

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Avril 2019

• #4

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

 

Vote positif 0 Vote négatif

I

isabelle29

XLDnaute Nouveau

• 26 Avril 2019

• #5

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

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 26 Avril 2019

• #6

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

 

Vote positif 0 Vote négatif

I

isabelle29

XLDnaute Nouveau

• 26 Avril 2019

• #7

@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 .

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Avril 2019

• #8

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é.

 

Vote positif 0 Vote négatif

I

isabelle29

XLDnaute Nouveau

• 26 Avril 2019

• #9

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 ?

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 26 Avril 2019

• #10

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

 

Vote positif 0 Vote négatif

I

isabelle29

XLDnaute Nouveau

• 26 Avril 2019

• #11

Maintenant c'est clair , merci bcp

 

Vote positif 0 Vote négatif