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