Bonjour,

Je souhaite exporter vers excel ma liste de résultat obtenu suite à une recherche multicritères comme expliqué dans le tutoio de caféine.

Une erreure apparaît et je ne comprends pas trop. Voici l'erreur et le code:

Erreur: "Type défini par l'utilisateur non défini"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Commande40_Click()
 
Dim fso As FileSystemObject
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
If fso.FolderExists("c:\Recherche formulaire") Then
Else
 fso.CreateFolder ("c:\Recherche formulaire")
End If
 
Dim SQL As String
SQL = Me!lstResults.RowSource
CurrentDb.CreateQueryDef "resultats", SQL
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "resultats", "C:\Recherche formulaire\resultats"
DoCmd.DeleteObject acQuery, "resultats"
 
Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
Set Xl = New Excel.Application
Xl.Visible = True
Set Classeur = Xl.Workbooks.Open("C:\Recherche formulaire\resultats.xls")
 
End Sub
Merci d'avance pour votre aide,

Jocelyn