bonjour,

voici mon code et j'ai une erreur qui me dit expression sans parametre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub toolbar1_ButtonClick(ByVal Button As Object)
On Error GoTo HandleErr
    Select Case Button.Key
        Case "FERMER"
 
            Bouton25_Click
 
        Case "CALCULER"
            If IsNull(Me!Matricule) Then Exit Sub
            If Not IsNull(DLookup("DerExport", "Config")) And format(Me!SituationDetail!DateBadgeage, "dd/mm/yyyy") <= format(DLookup("DerExport", "Config"), "dd/mm/yyyy") Then
                MsgBox "Vous ne pouvez pas modifier et recalculer : vous avez exporté ces données", vbInformation
                SendKeys "{ESC}", True
                Me.Refresh
                Exit Sub
            End If
le curseur s'arrete au 2eme If

merci d'avance