Discussion :

[Blado_sap]

Bonjour à tous,

je fais un export d'une requete access vers excel et ca fonctionne très bien

par contre dans l'export excel j'ai les noms de colonne qui reveinnent de ma base de données

est il possible de forcer de nouveaux noms de colonnes dans Excel?
et si oui comment?

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub Export_suivi_excel_Click()
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select numero_bordereau,numero_OT,Nom_tech_sly,Nom_batiment,Description,Numero_chantier,Avenant,Somme_cout_total,Date_pose,Date_demande_pose,Date_depose,Date_demande_depose,Date_rapp_compt,Commentaire From T_Bordereau ORDER BY numero_bordereau, avenant ASC")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requete_Temporaire", "C:\Users\Feuille_suivi_" & Format(Date, "dd.mm.yyyy") & ".xls"
DoCmd.DeleteObject acQuery, "Requete_Temporaire"
End Sub

D'avance merci
Blado_sap

[madefemere]

Bonjour,

Oui, ça doit être possible en assignant un nouveau nom de champ à tes colonnes dans la requête avec AS :

Code :

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

Set qd = CurrentDb.CreateQueryDef("Requete_Temporaire", "Select numero_bordereau AS CHAMP1,numero_OT AS CHAMP2 ,Nom_tech_sly AS CHAMP3,Nom_batiment AS CHAMP4,Description AS CHAMP5,Numero_chantier AS CHAMP6,Avenant AS CHAMP7,Somme_cout_total AS CHAMP8,Date_pose AS CHAMP9,Date_demande_pose AS CHAMP10,Date_depose,Date_demande_depose,Date_rapp_compt,Commentaire From T_Bordereau ORDER BY numero_bordereau, avenant ASC")

Cordialement,

[Blado_sap]

Super merci beaucoup

Blado_sap