[AC-2003] Et un export Excel de plus ! [Résolu]

[brankorri]

Bonjour à Tous,

Nous le savons : c'est une discussion comme beaucoup d'autres que j'ouvre... mais je ne pane vraiment rien à ces pages : http://cafeine.developpez.com/access...l/excel/#LIV-A ou là, et encore là.

Lors que je crée une commande Excel dans Formulaire, puisque je clique sur le bouton commande => Excel s'ouvre mais vide.
Et tous les Tuto FAQ et réponses en discussion sont soit du chinois (mandarin) soit inadapté à mon souci.

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Commande64_Click()
On Error GoTo Err_Commande64_Click
 
    Dim oApp As Object
 
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Commande64_Click:
    Exit Sub
 
Err_Commande64_Click:
    MsgBox Err.Description
    Resume Exit_Commande64_Click
 
End Sub

Comment faire pour que ma requête s'affiche en Excel à partir du bouton-commande (dans le Formulaire) svp ?

Merci par avance,
Bk

[zoom61]

Avec cela tu devrais pour exporter et ouvrir ton fichier :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande64_Click()
On Error GoTo Err_Commande64_Click
 
    Dim oApp As Object
    Dim NChemin as string
    Dim NFichier as string
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Nom_requete", NChemin & "\" & NFichier & ".xls", True
 
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open NChemin & "\" & NFichier & ".xls"
    xls.Visible = True 
 
Exit_Commande64_Click:
    Exit Sub
 
Err_Commande64_Click:
    MsgBox Err.Description
    Resume Exit_Commande64_Click
 
End Sub

[brankorri]

Bonjour Zoom,

Rien à dire : tu es un As !

Merci beaucoup,
Bk