Discussion :

[Paulinio86]

Bonjour j'essai de faire ce code mais pour la requête SQL en rouge une erreur arrive:
Erreur d'execution '3141':
Dans l'instruction SELECT, un mot réservé ou un argument est mal orthographié ou absent, ou la ponctuation est incorrect.

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
Sub test_ouverture()

'EN VERT A CHANGER

Dim orst As DAO.Recordset
Dim oDb As DAO.Database
Dim calcul As DAO.Recordset

chemin = "F:\Direction générale Pole_Pilotage_DGRH\2_TABLEAUX DE BORDS\2_Tableaux de bord\Paul\Test\Base_absence"


Set oDb = OpenDatabase(chemin)
Set orst = oDb.OpenRecordset("SELECT * FROM Absences_2015 ", dbOpenDynaset)
Set calcul = oDb.OpenRecordset("SELECT Absences_2015.Nom_famille_absence, Count(Absences_2015.Nom_famille_absence) AS CompteDeNom_famille_absenceFROM Absences_2015GROUP BY Absences_2015.Nom_famille_absence")

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

orst.Close
oDb.Close

End Sub

Merci d'avance,
Cordialement
Paul

[User]

Bonjour,

Je vois 2 choses :

1)
Pas d'extension pour le nom de la base de données, peut-être essayer avec "Base_absence.accdb" ou "Base_absence.mdb" dans le chemin du fichier.

2)
Et surtout pas d'espace avant le From et le group by au niveau du sql.

Donc essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
Set calcul = oDb.OpenRecordset("SELECT Absences_2015.Nom_famille_absence, Count(Absences_2015.Nom_famille_absence) AS CompteDeNom_famille_absence FROM Absences_2015 GROUP BY Absences_2015.Nom_famille_absence")
...

Cdlt,

[Paulinio86]

Merci à toi ça marche^^

[User]

De rien,