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.