[Catégorie modifiée .Net --> VBA] Copier Recordset avec les noms des champs

lebcel Messages postés 13 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 16 août 2010 - 21 mai 2010 à 13:20
lebcel Messages postés 13 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 16 août 2010 - 21 mai 2010 à 13:24
Bonjour,

J'ai construit un outil (en VBA) qui créé une table à partir d'un tableau Excel. Je fais des traitements sur les données puis ce tableau est copié dans une autre feuille Excel par la fonction "CopyFromRecordset". Cette fonction ne copie que les données. Connaissez-vous une fonction qui permettrait de copier les noms des champs de ma table?

Lebcel

1 réponse

lebcel Messages postés 13 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 16 août 2010
21 mai 2010 à 13:24
Oups, j'ai trouvé dans l'aide Excel.

Voilà le code :
For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs


Il suffit de copier les fields.

Lebcel
Rejoignez-nous