Discussion :

[Thierry5960]

Bonjour,
Je ne parviens pas à réaliser en VBA le code qui modifie la source d'une requête enregistrée. Je souhaite utiliser ADOX car je ne parviens pas à référencer mon projet avec DAO.
J'ai interrogé chat gpt mais cela ne marche ! ;_).
J'ai une erreur 438 ( propriété ou méthode non gérée ) à la ligne d'affectation de la nouvelle source.
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
Private Sub ExportExcel_Click()
    Dim cat As Object ' Objet Catalogue
    Dim nouvelleSource As String
 
    ' Spécifiez la nouvelle source de données pour la requête
    nouvelleSource = "SELECT * FROM T_Projet;"
 
    '  "NomDeVotreBaseActive"
    Set cat = Application.CurrentData
 
    ' Modifiez la définition de la requête
    cat.Views("R_ExportPourExcel").Command = nouvelleSource
 
    ' Fermez les objets
 
    Set cat = Nothing
 
    MsgBox "La source de la requête a été modifiée avec succès !"
End Sub

Merci pour votre aide.
Thierry

[Thierry5960]

Bonjour,
Je ne parviens pas à réaliser en VBA le code qui modifie la source d'une requête enregistrée. Je souhaite utiliser ADOX car je ne parviens pas à référencer mon projet avec DAO.
J'ai interrogé chat gpt mais cela ne marche ! ;_).
J'ai une erreur 438 ( propriété ou méthode non gérée ) à la ligne d'affectation de la nouvelle source.
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
Private Sub ExportExcel_Click()
    Dim cat As Object ' Objet Catalogue
    Dim nouvelleSource As String
 
    ' Spécifiez la nouvelle source de données pour la requête
    nouvelleSource = "SELECT * FROM T_Projet;"
 
    '  "NomDeVotreBaseActive"
    Set cat = Application.CurrentData
 
    ' Modifiez la définition de la requête
    cat.Views("R_ExportPourExcel").Command = nouvelleSource
 
    ' Fermez les objets
 
    Set cat = Nothing
 
    MsgBox "La source de la requête a été modifiée avec succès !"
End Sub

Merci pour votre aide.
Thierry

Finalement, j'ai réussi à réferencer en DAO, plus simple à manipuler pour moi. La solution que j'ai trouvé est ainsi :

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
Private Sub Commande48_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim nouvellesource As String
 
nouvellesource = "SELECT * FROM T_Projet;"
 
Set db = CurrentDb
Set qdf = db.QueryDefs("R_PourExportExcel")
qdf.sql = nouvellesource
 
qdf.Close
Set qdf = Nothing
Set db = Nothing
End Sub

Merci