Discussion :

[Milyshyn76]

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:



Voici le bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ProgElecT]

Salut

Essayer ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Milyshyn76]

Merci beaucoup, je vais tester cette solution