Bonjour. Je viens a vous car acces a décider de me torturer avec un pb qui je l'avoue me pertube.
J'ai une base acces avec un champs DATEAPPEL au format date/heure
Une liste qui affiche les differentes date de cette base
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
16
'Parcours les differentes dates
For j = 0 To Ls_dateSim.ColumnCount - 1 'le -1 est parce que l'on commence à 0
    'Selectionne la date a traiter
    Me!Ls_dateSim.Selected(j) = True 'Pour l'affichage, n'est pas obligatoire
    dateRecherche = Ls_dateSim.ItemData(j)
    'Recherche si la date se trouve ds le classeur
    Set wks = fic.worksheets(3)
        wks.Activate
        dateExport = CDate(dateRecherche)
    For i = 2 To 7
        If wks.cells(2, i).Value = dateExport Then Exit For
    Next
    'Rempli le classeur de stats ssi on a trouvé la date
    If i < 8 Then
        SimDoc.remplissage (i), (dateExport), (fichier)
    Else
Et une procédure qui est censé remplir un tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
remplissage(colonne As Byte, dateR, fichier)
 
Set fic = GetObject(fichier)
Set wks = fic.worksheets(3)
 
wks.Activate
 
With wks
.cells(11, colonne).Value = DCount("[MOTDEMAND]", "sim EnvoiDoc", "[MOTDEMAND]='01' AND [DATEAPPEL]=dater")
.cells(12, colonne).Value = DCount("[MOTDEMAND]", "sim EnvoiDoc", "[MOTDEMAND]='02'AND [DATEAPPEL]=dater")
or quand j'execute, il me dit : "Erreur d'execution '2001' : opération annulée"

Si quelqu'un a une idée ...