Bonjour,
j'ai concocté le code suivant dans le but d'exporter une requête access vers un fichier
Excel:
Code :
- Sub monexport()
- Dim toip_es As Database
- Dim strSQL As String
- Dim rst As Recordset
- Set rst = CurrentDb.OpenRecordset("Maquette_TOIP" )
- Set App = CreateObject("Excel.application" )
- App.Workbooks.Open "C:\Users\moi\Desktop\Nouveau dossier\Export.xlsx"
- App.Sheets("Feuil1" ).Select
- With App.Worksheets("Feuil1" )
- For i = 2 To rst.RecordCount
- For j = 0 To 5
- .cells(i + 1, j + 1) = rst(j).Value
- Next j
- rst.MoveNext
- Next i
- End With
- rst.Close
- End Sub
|
La référence Microsoft Axcel12.0 Object Library a bient été cochée.
J'arrive à exécuter le code sans problème mais le fichier excel ne s'ouvre pas.
Merci de votre aide.
Cordialement,
