Lancer un modèle excel depuis access

 .... Workbooks.Add (adrexcel)

 ... Workbooks.Open(adrexcel)

Sub EngVersExcel_ouvre_classeur()
Dim cdb As DAO.Database
Dim rstcha As DAO.Recordset
Dim strSQL As String
Dim xlapp As Excel.Application
Dim chemin As String

chemin = "C:\Users\utilisateur\Desktop\AdlatusMandats "    
repclasseur = chemin & "\AttributionMandatAdlatus2.xltm "
Set xlapp = CreateObject("Excel.Application")

' partie lire data access
Set cdb = CurrentDb
strSQL = "SELECT * FROM T_InitialisationAnnees" & _
" WHERE T_InitialisationAnnees.Identification = " & Chr(34) & Form_F_InitConge.Matricule & Chr(34)
Set rstcha = cdb.OpenRecordset(strSQL)
Dim c As Byte

'partie Excel
With xlapp
    .Workbooks.Add repclasseur    
    .Visible = True
    .Range("A2:C15").Delete
   'Tant que non fin du recordset
    While Not rstcha.EOF
      'Passer au suivant
        .Range("A" & 2 + c) = rstcha.Fields(0)
        .Range("B" & 2 + c) = rstcha.Fields(1)
        .Range("C" & 2 + c) = rstcha.Fields(2)
        rstcha.MoveNext
        c = c + 1
    Wend
End With

Set cdb = Nothing
Set rstcha = Nothing
Set exapp = Nothing

End Sub

Sub OuvrirClasseurSelonModele()
    Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
 
    'Ouvre un nouveau classeur selon modèle
    Set Xl = New Excel.Application
    Xl.Visible = True
    chemin = "C:\Users\utilisateur\Desktop\AdlatusMandats "
    repclasseur = chemin & "\AttributionMandatAdlatus2.xltm "
    Set Classeur = Xl.Workbooks.Add(repclasseur)
    Classeur.Worksheets("Feuil3").Activate
    Set Feuille = Classeur.Worksheets("Feuil3")
 End Sub

chemin = "C:\Users\utilisateur\Desktop\AdlatusMandats "