Modifier la source d'une requête enregistrée dans une bdd en vue d'un export

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:

---

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

Citation:

---

Envoyé par 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:

---

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:

---

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