Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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 wrote:
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
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 <Juli...@microsoft.com> wrote:
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.
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 wrote:
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
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 wrote:
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
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 <Juli...@microsoft.com> wrote:
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.
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 wrote:
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.