Bonjour
J'ai une BD dont je voudrais extraire les données vers excel et pour cela, j'ai une requete SQL que j'aimerais envoyer vers excel mais avec le code suivant (trouvé dans la FAQ ), cela ne fonctionne pas :'(. Il me dit que l'objet ne supporte pas cette propriété ou cette méthode.
Voici mon code :
Pourriez vous me dire pourquoi?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Dim qd As QueryDef Set qd = CurrentDb.CreateQueryDef("NewQuery", "SELECT DISTINCTROW * " & Right(MySQL, (Len(MySQL) - 36)) & " ORDER BY melting_program.program_id, melting_test.test_id") DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "NewQuery", "O:\bdcreuset1.1\export_brut_v1-2.xls", True, xlSheet2![A1:IV65536] Set qd = Nothing
Merci d'avance
Partager