[Automation Access - Excel] Problème export excel
Bonjour,
j'effectue un export vers excel de ma zone de liste suite à requete multicritère.
Je souhaite que le nom du fichier excel généré soit automatiquement créé en fonction de deux critère saisis sur le formulaire auparavent (la date et le moment)
j'écris donc ceci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Private Sub BTN_EXPORT_Click()
Dim db As Database
Dim qd As QueryDef
Dim PlDate As String
Dim PlMoment As String
Dim NomExport As String
PlDate = CStr(Me.TXTDetail)
PlMoment = CStr(Me.P_LST_MOMENT)
NomExport = PlDate & "_" & RecupMoment(CStr(PlMoment))
'On réalise un contrôle sur le nombres d'éléments dans la liste résultat, si elle est vide on annule l'export excel par un msgbox
If Me.LST_RESU_2.ListCount = 1 Or Me.LST_RESU_2.ListCount = 0 Then
MsgBox "L'export vers Excel est impossible !", vbOKOnly, "Maji Club"
Else
'Definition de db par la base de donnée en cours
Set db = CurrentDb()
'l'objet qd se charge avec le résultat de notre requête est s'appelle "BILAN REQUETE"
Set qd = db.CreateQueryDef(NomExport, LST_RESU_2)
qd.Close
On Error GoTo Export_excel_Err
DoCmd.OutputTo acOutputQuery, NomExport, acFormatXLS, , True, ""
DoCmd.DeleteObject acQuery, NomExport
export_excel_Exit:
Exit Sub
Export_excel_Err:
DoCmd.DeleteObject acQuery, NomExport
Resume export_excel_Exit
End If
End Sub |
Et donc ça plante à partir de la ligne mise en gras à cause de ma variable NomExport.
Je ne sais donc pas de quelle façon instruire la chose.
Merci de votre aide.
thomas
EDIT :
Je m'excuse d'avoir posté dans le mauvais endroit.. je ne me suis pas tout à fait adapté au nouveau forums !
