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