Discussion :

[jrogron]

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

[Muhad'hib]

Salut,

L'erreur est sur quelle ligne ?

Le fichier "C:\Recherche formulaire\resultats.xls" est-il bien créé ?

A+

[jrogron]

L'erreur est sur la ligne:

Code :

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

Dim fso As FileSystemObject

Et pour ce qui est du fichier non il n'est pas créé mais avec le code il devrait se créé si celui ci ne l'est pas.

Merci,

Jocelyn

[Muhad'hib]

Il te faut la référence "Windows Sript Host Object Model" (dans le menu Outil /Référence)

A+

[Dolphy35]

Salut,

je n'ai pas regardé le reste mais concernant ton problème sur cette ligne :

Code :

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

Dim fso As FileSystemObject

il te manque une référence.
Outils Réferences (il faut cocher)

Code :

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

Microsoft Scripting Runtime

Dolphy

[jrogron]

Ok mon erreur descend plus bas dans le code maintenant à cette ligne là:

Code :

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

Dim Xl As Excel.Application

Encore une autre référence à cocher?

Merci,

Jocelyn

[Dolphy35]

Ok mon erreur descend plus bas dans le code maintenant à cette ligne là:

Code :

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

Dim Xl As Excel.Application

Encore une autre référence à cocher?

Merci,

Jocelyn

Tu as raison une autre référence :

Code :

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

Microsoft Excel X.0 Object Library

Toutes les réponses se situent dans la , pense y la prochaine fois.

Dolphy

[Muhad'hib]

Ben il te faut aussi la référence "Windows Excel X.Y Object Library" ...