Discussion :

[joshua12]

Bonjour,
Après avoir regardé la FAQ et les différents poste il ne me semble pas avoir trouvé réponse à mon problème : J’exporte une table sous Excel, j’arrive bien à exporter dans les cellules que je veux (N° de ligne et N° de colonne). Mais est-ce qu’il est possible de récupérer le nom des Colonnes Excel ? (A, B, C etc ….)
Merci d’avance.

[RGShoop]

Bonjour,

Quelles fonctions utilises tu?
Si c'est :

Code :

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

    DoCmd.TransferSpreadsheet acExport, 8, "USERS", "exportUSERS", True, ""

si c'est :

Code :

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

DoCmd.OutputTo acTable, "USERS", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Les en-têtes sont conservées.

En revanche, si tu fais tourner un recordset pour en extraire les données que tu souhaites, il faut en effet penser à inclure les en-têtes dans ton code.

A ta dispo,

RGShoop

[joshua12]

Mon bout de code utilisé (j'ai pas tout mis, c'est juste pour l'exemple)

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
Dim appexcel as Excel.Application 
Dim wbexcel as Excel.Workbook
 
Set appexcel = CreateObject("Excel.Application") 
appexcel.Visible = True 
Set wbexcel = appexcel.Workbooks.Open("Chemin du fichier Excel")
 
appexcel.Sheets("Feuil1").Select
 
Do While Not rec.EOF
        For J = 0 To rec.Fields.Count - 1
            ' .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec.Fields(J).Type = dbText Then
                xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
            Else
                xlSheet.Cells(I, J + 1) = rec.Fields(J)
            End If
        Next J
        I = I + 1
        rec.MoveNext
Loop

J'arrive (merci la FAC) à parcourir chaque enregistrement de ma table et à l'insérer où je veux dans mon fichier Excel.
Mais je me demandais si il n'y avait pas une propriété à Xlsheet qui permet de récupérer le nom de la colonne Excel ?

Ex :i=1 renvoit à la colonne A, i=2 colonne B etc ...

Pour l'instant je récupère la valeur de i et (en fonction) lui donne la valeur A, B etc ... mais je ne trouve pas cela très "propre" et ça ralentit surement pas mal l'exportation.