Comment ouvrir un classeur automatiquement ?

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Pge = Me.ListView1.ListItems(Item.Index).ListSubItems(17)
  Va_Page
End Sub

Sub Va_Page()
Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = Pge 'définit la variable nom (début du nom du fichier)
chem = ActiveWorkbook.Path 'définit la variable chem (chemin d'accès du classeur actuel, à adapter)
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
'.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End If
End With


  'On Error Resume Next
  'Sheets(Pge).Visible = True
  'If Err.Number > 0 Then
    'MsgBox "Le Classeur " & Pge & " est inexistant !"
  'Else
    'Sheets(Pge).Select
    
     'Unload Me
    'Sheets("choix").Visible = False
  'End If
End Sub