Le début correspondant à une date qui changé régulièrement et pas forcément concordante à la date du jour ou du mois, par contre la fin citée en exemple est reprise exactement sur une cellule du classeur actif
La date est déterminée par un collègue...mais peut-on supposer que l'on puisse rechercher un fichier dont on ne connaisse que la fin du nom de ce fichier ???
J'ai vu des choses possibles avec le début connu et fin inconnue mais pas l'inverse
Je suis sûr que quelqu'un d'entre vous a une solution pour moi...
Option Explicit
Sub test()
Dim r As String, f As String
r = ThisWorkbook.Path & "\"
f = Dir(r & "*partieConnue.xls")
Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub
Sub test()
Dim r As String, f As String
r = "chemin & " \ ""
f = Dir(r & Range("A2").Value & ".xls")
Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub
Sub test()
Dim r As String, f As String
r = "chemin & " \ ""
f = Dir(r & Range("A2").Value & ".xls")
Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub
Option Explicit
Sub test()
Dim r As String, f As String
r = ThisWorkbook.Path & "\"
f = Dir(r & "*" & Range("A1").Value & ".xls")
Do While f <> ""
If MsgBox(f, vbYesNo) = vbYes Then Workbooks.Open r & f
f = Dir
Loop
End Sub