Discussion :

[LilyBrune]

Bonjour,

J'ai 3 requêtes (R1, R2 et R3). Je voudrais exporter R1 et R2 dans l'onglet nommé Synthèse. Respectivement avec un démarrage d'écriture de R1 en cellule B3 et un démarrage d'écriture de R2 en cellule A40.
Puis je voudrais exporter R3 sur l'onglet nommé "Suivi" avec une démarrage d'écriture en B2. Le classeur excel se nommant "Bilan.xlsx

Et tout ceci dans un macro acces a priori en vba.

Ayuda please

[Jeannot45]

Tu peux utiliser la commande :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "NomDeTaRequete", "Chemin complet et nom du fichier Excel", True

Malheureusement, tu ne peux pas cibler la plage de réception.
Par contre, lors de la première exportation, Excel crée des onglets en fonction des noms de tes requêtes.
Une fois la première exportation exécutée, tu peux déplacer tes données exportées sur la page en fonction de tes besoins.
Les prochaines exportations garderont l'emplacement que tu aura choisi.

[samloba]

Bonjour

Une petite fonction que j'utilise

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
 
 
Function ExportReqVersExel(ByVal strSQL As String, ByVal FichierExcel As String, ByVal NomFeuil As String, ByVal CelulleCible As String) As Boolean
 
 
    Dim xlApp As Excel.Application
    Dim xlWkb As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim rst As DAO.Recordset
    Dim RetVal As Boolean
 
    On Error GoTo Gest_Err
 
    'Ouverture de la requête
    Set rst = CurrentDb.OpenRecordset(strSQL)
    If rst.EOF Then GoTo Sortie
 
    'Ouverture du classeur (en mode invisible)
    Set xlApp = CreateObject("Excel.application")
    Set xlWkb = xlApp.Workbooks.Open(FichierExcel)
    Set xlSheet = xlWkb.Sheets(NomFeuil)
 
    '    'Recopie les entetes le cas écheant
    '    xlSheet.Range(CelulleCible).select
    '    For i = 0 To rst.Fields.Count - 1
    '        xlApp.ActiveCell.Value = rst(i).Name
    '        xlApp.ActiveCell.Offset(0, 1).select
    '    Next
 
    'Transfert & mise en forme des données
    xlSheet.Range(CelulleCible).CopyFromRecordset rst
 
    'Si je souhaite adapter la largeur des colonne aux données fraichement copiées
    'xlApp.Cells.EntireColumn.AutoFit
 
 
    'sauvegarde la modification
    xlWkb.Save
 
    'Rend le classeur visible
    xlApp.visible = True
 
    RetVal = True
 
 
Sortie:
    ExportReqVersExel = RetVal
 
    On Error Resume Next
    rst.Close: Set rst = Nothing
    Set xlWkb = Nothing
    Set xlApp = Nothing
    Exit Function
 
Gest_Err:
    RetVal = False
    MsgBox ERR.Number & " - " & ERR.description, vbCritical, "Erreur export"
    Resume Sortie
 
 
End Function

Voici comment l'appeler

Code :

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

1
2
3
4
5
 
 
Sub test_ExportReqVersExel()
    Call ExportReqVersExel("req_distinct", "C:\Users\samloba\Desktop\bilan.xls", "Synthèse", "B3")
End Sub

J'espère que ça va t'aider. Merci