Activer un fichier dont le nom commence par...

Dim monchemin As String, monfichier As String
monchemin = ThisWorkbook.Path
monfichier = Dir(monchemin & "\test*", vbDirectory)
If monfichier <> "" Then Workbooks.Open monchemin & "\" & monfichier

Dim monchemin As String, monfichier As String, monclasseur As Workbook
monchemin = ThisWorkbook.Path
monfichier = Dir(monchemin & "\test*", vbDirectory)
If monfichier <> "" Then
    Workbooks.Open monchemin & "\" & monfichier
    Set monclasseur = ActiveWorkbook
monclasseur.Activate

End If

Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name Like "toto*" Then wb.Activate
Next wb