Public Function Annexes_Master()
Dim ValSQL As String
Dim Numéro
'La déclaration Numéro va nous servir pour connaître le numéro de matricule.
Dim bds As DAO.Database, rst As DAO.Recordset
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim rqtPharma11998 As String
Dim Errormsgbox As String
Dim lngEtudiants As Long
Dim SESSION As String 'pour éviter de devoir indiquer la session dans chaque ligne de la table access !!!
Dim Effacer_REUS As Boolean
Effacer_REUS = False
'je ferme toutes les requêtes ouvertes avant de commencer la programmation
For Each req In CurrentDb.QueryDefs
DoCmd.Close acQuery, req.Name, acSaveYes
Next req
On Error GoTo TraitementErreur
'Voici la programmation de la boite servant à demander le numéro de matricule:
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True