Discussion :

[smix13]

bonjour,
j'aimerai savoir comment exporter(vers Excel) le resultat d'une liste déroulante avec les en-têtes colonnes.

Cordialement.

[stigma]

Passe par une requête issue de ta liste. Ainsi tu pourras exporter vers Excel.
Un exemple de 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
Function ExportExcel(s_qry As String, s_xls As String)
 
    Dim strFolderName As String
 
    strFolderName = BrowseFolder("Choisissez un dossier de destination")
 
    '-------------------  Supprimer le dernier \ si c'est à la racine d'un lecteur
    If Right(strFolderName, 1) = "\" Then strFolderName = Left(strFolderName, Len(strFolderName) - 1)
 
    If strFolderName = "" Then Exit Function
 
    '-----------  Envoyer les données de la requête dans un classeur Excel
    DoCmd.TransferSpreadsheet acExport, 8, s_qry, strFolderName & "\" & s_xls, True
 
    MsgBox "Les données exportées se trouvent dans le fichier :" & vbCrLf & "" _
    & strFolderName & "\" & s_xls & ".XLS", vbInformation, "ACCESS => EXCEL"
 
End Function

Ainsi tu peux même choisir la destination

[smix13]

En faite , je fais l'export par "DAO.Recordset" et ça marche bien, mais il me le fait sans les en-têtes colonnes