Discussion :

[HABILER]

Bonjour la Communauté,

Dans le code qui suit il m'affiche une erreur de type "Type défini par l'utilisateur non défini".
Quelqu'un pourrait-il m'aider?

Bien à vous

Habiler

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
    Sub RunParameterQuery()
 
    'Step 1: Declare your variables
    Dim MyDatabase As DAO.Database
    Dim MyQueryDef As DAO.QueryDef
    Dim MyRecordset As DAO.Recordset
    Dim i As Integer
 
    'Step 2: Identify the database and query
    Set MyDatabase = Workspace(0).OpenDatabase _
    ("C:\Users\hab\Filr\Air Traffic control.accdb")
    Set MyQueryDef = MyDatabase.QueryDefs("Main Query")
 
    'Step 3: Define the Parameters
    With MyQueryDef
    .Parameters("[datexam]") = Range("D3").Value
    .Parameters("[PTS engl]") = Range("D4").Value
    End With
 
    'Step 4: Open the query
    Set MyRecordset = MyQueryDef.OpenRecordset
 
    'Step 5: Clear previous contents
    Sheets("Main").Select
    ActiveSheet.Range("A6:K10000").ClearContents
 
    'Step 6: Copy the recordset to Excel
    ActiveSheet.Range("A7").CopyFromRecordset MyRecordset
 
    'Step 7: Add column heading names to the spreadsheet
    For i = 1 To MyRecordset.Fields.Count
    ActiveSheet.Cells(6, i).Value = MyRecordset.Fields(i - 1).Name
    Next i
 
    MsgBox "Your Query has been Run"
 
    End Sub

[Daniel.C]

Bonjour,

Dans la fenêtre VBE, menus Outils, Références, est-ce que tu as coché la référence Microsoft DAO n.nn Object Library ?

[HABILER]

Merci daniel,

j'avais totalement oublié cet élément. Mais maintenant il m'indique une erreur 3343 " Erreur due a l'application ou à l'objet.

J'ai bien modifié le workspace(0) en DBEngine.

Habiler

[Daniel.C]

Mais maintenant il m'indique une erreur 3343 " Erreur due a l'application ou à l'objet.

Sur quelle ligne ?

[HABILER]

Pas de ligne!

[Daniel.C]

J'ai bien modifié le workspace(0) en DBEngine.

Poste ton code modifié.
D'autre part,, exécute-le ligne à ligne en appuyant sur la touche F8. Observe attentivement la ligne au moment où la macro va s'arrêter.

[HABILER]

Bonjour

Le code s'arrête à la ligne =>

Code :

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

Set MyDatabase = Workspace(0).OpenDatabase ("C:\Users\hab\Filr\Air Traffic control.accdb")

Bien à toi

Habiler

[Daniel.C]

Bonjour,

Je sèche, là... J'ai trouvé ce code sur internet; il faut cocher aussi la référence "Microsoft Access nn.n Object Library".

Le code est le suivant :

Code :

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

1
2
3
4
5
Dim oAccess As Access.Application
Dim oDB As DAO.Database
Set oAccess = New Access.Application
oAccess.OpenCurrentDatabase "C:\Users\Daniel\Documents\Donnees\Daniel\Database1.accdb"
Set oDB = oAccess.CurrentDb