Discussion :

[tiopan]

Bonjour,

J'ai visionné la , l'aide access fait une recherche , mais ce que je cherche c'est plutot un avis.

Je voudrais transferer une table access vers un fichier excel dans une plage + ou - défini (Feuille :1 , Début : A3, fin : inconnu)

- Je sais faire l'action TransferSpreadsheet, mais je ne peux pas définir la plage (Commencer ligne 3).

- Je pourrais ouvrir le fichier excel et copier une à une les valeurs de la table dedans, mais cette action est assez longue surtout si la table est lourdes.


Y A T-IL d'autre sol envisageable qui correspondrait d'avantage à ce que je souhaite faire :

[mat_lefebvre]

Tu devrais lire mon poste juste en dessous. Peut être que cela va t'aider. C ce que je fais . ou plutot un truc du genre

[tiopan]

Ce que tu fais c'est que tu ouvre le fichier excel, et tu écris tes valeur dedans, mais j'ai une table de 20 champs et d'environs 500 enregistrement à écrire, ça met pas mal de temps alors je cherche une autre sol

[Mouse]

Cree une requete UNION qui te met 3 enrergistrements vide au debut

[tiopan]

Ok, mais le pb c'est qu'il y a des formule dans les 3 première ligne.
C'est pour ça que je ne souhaite pas les écraser

[MC2]

Salut,
peut-être y a t-il plus élégant et j'ai testé sur 20 champs / 500 enrgts :

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
Sub test()
    Dim aXLS As Excel.Application
 
    DoCmd.OpenTable "TaTable"
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
 
    Set aXLS = CreateObject("Excel.Application")
    aXLS.Visible = True
    aXLS.Workbooks.Add
    aXLS.ActiveSheet.Range("A3").Select
    aXLS.ActiveSheet.Paste
 
    DoCmd.SetWarnings False 'évite le message, bcp de données dans le presse-papier...
    DoCmd.Close acTable, "TaTable"
    DoCmd.SetWarnings True
End Sub

Ensuite, tu adaptes avec ton contexte. A+

[tiopan]

ok, je vais tester