' Définir le chemin d'accès à la base pour récupérer le numéro d'agrès
sPath = "C:\Documents and Settings\D6432025\Desktop\cartonette\"
' Définir le nom de la base
sBase = "Base_cartonette.mdb"
' Ouvrir la base en tant que nouveau classeur
Workbooks.Open Filename:=sPath & sBase
With ActiveWorkbook.Sheets(1)
If Left(.Cells(.Cells(1, 1).End(xlDown).Row, 3), 2) = NumSemaine Then
cdt = .Cells(.Cells(1, 1).End(xlDown).Row, 3) + 1
Else
cdt = CDbl(NumSemaine & "001")
End If
End With
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Workbooks(nametest).Sheets("Cartonette").Cells(2, 23) = cdt