Public Sub Projet1()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim base As Database
Dim rs As Recordset
Dim fname As String
Dim num_semaine As Byte
'Ouverture du fichier Matrice
Set xlapp = CreateObject("Excel.application")
Set xlbook = xlapp.Workbooks.Open(CurrentProject.Path & "\Indicateur.xlsx")
'Creation du nom de fichier en fonction du numero de semaine de la date encours
num_semaine = numweek(DateValue(Now()))
fname = "Semaine " & num_semaine
'Faire une copie du fichier matrice, puis le fermer
xlbook.SaveCopyAs (CurrentProject & "\" & fname & ".xls")
xlbook.Close
'Ouvrir le nouveau fichier
Set xlbook = xlapp.Workbooks.Open(CurrentProject & "\" & fname & ".xls")
Set xlsheet = xlbook.Worksheets(1)
'Suite de la marcro
Set base = CurrentDb
End Sub