Discussion :

[973thom]

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 :

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
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 !

[javelot69]

Bonjour,

Va voir le tuto de Caféine

http://cafeine.developpez.com/access/tutoriel/excel/

tu as tout concernant les exports vers excel.

Bonne journée