Choix fichier dans répertoire

Le
JulieH
Bonsoir,

Dans un répertoire j'ai de nombreux fichiers qui sont tous nommés de la
manière suivante : aaaa-mm-jj - toto.xls.

Est-il possible par VBA d'ouvrir le plus récent ?

Merci d'avance pour vos idées.

Julie
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4611931
Bonsoir,

Sub xx()
DateMaxi = 0
nf = Dir("????-??-??-toto.xls") ' le premier
Do While nf <> ""
d = DateSerial(Left(nf, 4), Mid(nf, 6, 2), Mid(nf, 9, 2))
If d > DateMaxi Then
DateMaxi = d
fichier = nf
End If
nf = Dir ' suivant
Loop
If fichier <> "" Then
Workbooks.Open Filename:=fichier
Else
MsgBox "pas de fichier"
End If
End Sub

JB

On 11 juil, 20:47, JulieH
Bonsoir,

Dans un répertoire j'ai de nombreux fichiers qui sont tous nomm és de la
manière suivante : aaaa-mm-jj - toto.xls.

Est-il possible par VBA d'ouvrir le plus récent ?

Merci d'avance pour vos idées.

Julie


JulieH
Le #4611911
Bonsoir,

Tout est parfait !!! comme d'habitude...

Mais comment fais-tu (faîtes-vous) ?

Merci à nouveau

Julie


Bonsoir,

Sub xx()
DateMaxi = 0
nf = Dir("????-??-??-toto.xls") ' le premier
Do While nf <> ""
d = DateSerial(Left(nf, 4), Mid(nf, 6, 2), Mid(nf, 9, 2))
If d > DateMaxi Then
DateMaxi = d
fichier = nf
End If
nf = Dir ' suivant
Loop
If fichier <> "" Then
Workbooks.Open Filename:=fichier
Else
MsgBox "pas de fichier"
End If
End Sub

JB

On 11 juil, 20:47, JulieH
Bonsoir,

Dans un répertoire j'ai de nombreux fichiers qui sont tous nommés de la
manière suivante : aaaa-mm-jj - toto.xls.

Est-il possible par VBA d'ouvrir le plus récent ?

Merci d'avance pour vos idées.

Julie






Publicité
Poster une réponse
Anonyme