j'ins=E8re dans une feuille Excel le r=E9sultat d'un recordset.
Cependant le nom des colonnes n'appara=EEt pas, j'ai juste=20
les valeurs.
Comment faire pour r=E9cup=E9rer et afficher le nom des=20
colonnes ???
merci =E0 tous
mj
voici mon code actuel:
Ce code est valable dans le cas ou les colonnes retourn=E9es=20
sont connues !!!
With Myobject.Application.ActiveWorkbook.Worksheets(rst!
[priority])
' Place le contenu du champ "DPT" dans la 1=E8re colonne de=20
la feuille EXCEL
.Cells(Ligne, 1) =3D rst1!NomDepartement
' Place le contenu du champ "priority" dans la 2=E8me=20
colonne de la feuille EXCEL
.Cells(Ligne, 2) =3D rst1!Priority
' Place le contenu du champ "Risktype" dans la 3=E8me=20
colonne de la feuille EXCEL
.Cells(Ligne, 3) =3D rst1!Rtype
' Ligne suivante
Ligne =3D Ligne + 1
' Enregistrement suivante
'Loop
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE CARRE Yannick
Salut Mathieu,
tu peux utiliser la propriété name de l'objet field d'un recordset ou bien les mettre en dur (si quelque champs toujours identiques) sans oublier de sauter une ligne avant de remplir ton "tableau".
Yannick
mathieumj a écrit dans le message : 0ac101c37d0e$61ead560$ Bonjour à tous,
j'insère dans une feuille Excel le résultat d'un recordset. Cependant le nom des colonnes n'apparaît pas, j'ai juste les valeurs. Comment faire pour récupérer et afficher le nom des colonnes ???
merci à tous mj
voici mon code actuel: Ce code est valable dans le cas ou les colonnes retournées sont connues !!!
With Myobject.Application.ActiveWorkbook.Worksheets(rst! [priority]) ' Place le contenu du champ "DPT" dans la 1ère colonne de la feuille EXCEL .Cells(Ligne, 1) = rst1!NomDepartement ' Place le contenu du champ "priority" dans la 2ème colonne de la feuille EXCEL .Cells(Ligne, 2) = rst1!Priority ' Place le contenu du champ "Risktype" dans la 3ème colonne de la feuille EXCEL .Cells(Ligne, 3) = rst1!Rtype ' Ligne suivante Ligne = Ligne + 1 ' Enregistrement suivante 'Loop
Salut Mathieu,
tu peux utiliser la propriété name de l'objet field d'un recordset ou bien
les mettre en dur (si quelque champs toujours identiques) sans oublier de
sauter une ligne avant de remplir ton "tableau".
Yannick
mathieumj <mathieumj@hotmail.com> a écrit dans le message :
0ac101c37d0e$61ead560$a401280a@phx.gbl...
Bonjour à tous,
j'insère dans une feuille Excel le résultat d'un recordset.
Cependant le nom des colonnes n'apparaît pas, j'ai juste
les valeurs.
Comment faire pour récupérer et afficher le nom des
colonnes ???
merci à tous
mj
voici mon code actuel:
Ce code est valable dans le cas ou les colonnes retournées
sont connues !!!
With Myobject.Application.ActiveWorkbook.Worksheets(rst!
[priority])
' Place le contenu du champ "DPT" dans la 1ère colonne de
la feuille EXCEL
.Cells(Ligne, 1) = rst1!NomDepartement
' Place le contenu du champ "priority" dans la 2ème
colonne de la feuille EXCEL
.Cells(Ligne, 2) = rst1!Priority
' Place le contenu du champ "Risktype" dans la 3ème
colonne de la feuille EXCEL
.Cells(Ligne, 3) = rst1!Rtype
' Ligne suivante
Ligne = Ligne + 1
' Enregistrement suivante
'Loop
tu peux utiliser la propriété name de l'objet field d'un recordset ou bien les mettre en dur (si quelque champs toujours identiques) sans oublier de sauter une ligne avant de remplir ton "tableau".
Yannick
mathieumj a écrit dans le message : 0ac101c37d0e$61ead560$ Bonjour à tous,
j'insère dans une feuille Excel le résultat d'un recordset. Cependant le nom des colonnes n'apparaît pas, j'ai juste les valeurs. Comment faire pour récupérer et afficher le nom des colonnes ???
merci à tous mj
voici mon code actuel: Ce code est valable dans le cas ou les colonnes retournées sont connues !!!
With Myobject.Application.ActiveWorkbook.Worksheets(rst! [priority]) ' Place le contenu du champ "DPT" dans la 1ère colonne de la feuille EXCEL .Cells(Ligne, 1) = rst1!NomDepartement ' Place le contenu du champ "priority" dans la 2ème colonne de la feuille EXCEL .Cells(Ligne, 2) = rst1!Priority ' Place le contenu du champ "Risktype" dans la 3ème colonne de la feuille EXCEL .Cells(Ligne, 3) = rst1!Rtype ' Ligne suivante Ligne = Ligne + 1 ' Enregistrement suivante 'Loop
