Erreur "Application Defined" avec la méthode CopyFromRecordset

Bonjour à tous,

Je tente de copier des données dans une feuille Excel version MS Office 2013.

Cependant, la syntaxe CopyFromRecordset ne fonctionne pas et l'erreur suivante apparaît en ligne 5:

Pièce jointe 224787

Voici le bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set Bd = DBEngine.Workspaces(0).OpenDatabase(MesDonnées) Set Rs = Bd.OpenRecordset("SELECT [code_traitement] & ' : ' & [libelle] AS NT FROM TA_Codes_Traitement WHERE (code_traitement<>'T') ORDER BY code_traitement;", dbOpenDynaset) If Rs.RecordCount > 0 Then ' xlWTB.Range("L84").CopyFromRecordset Rs xlWTB.Range("L43").End(xlDown).Offset(7, 0).CopyFromRecordset Rs End If Rs.Close Set Rs = Nothing Bd.Close Set Bd = Nothing

---

Merci par avance pour votre aide.

Salut

Essayer ce

Code:

---

If Rs.EOF Then MsgBox "Recordset vide",vbCritical, "Erreur ouverture du RecordSet": Exit Sub

---

Car Rs.RecordCount n'est pas forcement renseigné dés le retour de la requête d'ouverture.

Merci beaucoup, je vais tester cette solution :)