Sub OuverturePage(Page)
'par Excel-Malin.com ( https://excel-malin.com )

Application.ScreenUpdating = False 'evite le clignotement des feuilles
 'nbsentences = Worksheets("PerStudent").Cells(Rows.Count, 1).End(xlUp).Row - 2
nbetudiants = Worksheets("Students").Cells(Rows.Count, 1).End(xlUp).Row - 1 ' - en-tête
On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Set MonApplication = CreateObject("Shell.Application")
   MonApplication.Open (Page)
   
   Set MonApplication = Nothing
Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub