Bonjour,
Dans mon programme une erreur s'affiche au niveau d'une fonction range (en rouge), l'erreur qui s'affiche est la '424': Objet requis

Voici le code:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test_ouverture()

'EN VERT A VOIR ACCESS
Dim orst As DAO.Recordset
Dim oDb As DAO.Database
Dim regroupement As DAO.Recordset


chemin = "E:\Paul mairie\Test\Base_absence"

Sql = "INSERT INTO Table1 ( DGA, Nom_famille_absence, Regroupement, CompteDeNom_absence, SommeDeTotal_de_jour_decompte, Matricule )SELECT Absences_2015.DGA, Absences_2015.Nom_famille_absence, regroupement.Regroupement, Count(Absences_2015.Nom_absence) AS CompteDeNom_absence, Sum(Absences_2015.Total_de_jour_decompte) AS SommeDeTotal_de_jour_decompte, Absences_2015.Matricule FROM Absences_2015 INNER JOIN regroupement ON Absences_2015.Nom_absence = regroupement.Nom_absence GROUP BY Absences_2015.DGA, Absences_2015.Nom_famille_absence, regroupement.Regroupement, Absences_2015.Matricule HAVING (((Absences_2015.Nom_famille_absence) = 'Absence Maternité' Or (Absences_2015.Nom_famille_absence) = 'Congés Maladie')) ORDER BY Absences_2015.DGA"



Set oDb = OpenDatabase(chemin)
Set orst = oDb.OpenRecordset("SELECT * FROM Absences_2015 ", dbOpenDynaset)
oDb.Execute "DELETE * FROM Table1"
oDb.Execute (Sql)
Set regroupement = oDb.OpenRecordset("SELECT Table1.DGA, Table1.Nom_famille_absence, Table1.CompteDeNom_absence, Table1.SommeDeTotal_de_jour_decompte, Count(Table1.Matricule) AS CompteDeMatricule FROM Table1 GROUP BY Table1.DGA, Table1.Nom_famille_absence, Table1.CompteDeNom_absence, Table1.SommeDeTotal_de_jour_decompte")


Sheets("Feuil3").Activate
 
    Range("A1").CopyFromRecordset orst
    toto = orst.RecordCount
 

Sheets("Feuil1").Activate
 
    Range("A1").CopyFromRecordset Sql    
    Total = regroupement.RecordCount
 

regroupement.Close
orst.Close
oDb.Close


End Sub
Merci d'avance.
Cordialement,
Paul