Workbooks.Open "C:\MesDocs\Excel\Debut Nom fichier" & Range("A1").Value & ".xls"
Bonjour,
peut être ceci si j'aibien compris :
Code:Workbooks.Open "C:\MesDocs\Excel\Debut Nom fichier" & Range("A1").Value & ".xls"
bonne journée
@+
Edition : bonjour Robert
Re,
et quel est le format et surtout le critère qui permet de déterminer cette date ??
Re,
regarde du coté de la fonction "Dir" avec l'utilisation d'un *
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
Merci parce que l'explication via l'aide vba ne m'éclairait guère
Mais comment alors remplacer partie connue par la valeur d'une cellule ?
Merci
J'ai tenté cela :
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
Mais ça ne marche pas, étonnant non ???
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