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
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
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) Elseor quand j'execute, il me dit : "Erreur d'execution '2001' : opération annulée"
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")
Si quelqu'un a une idée ...
Partager