Discussion :

[M4itreG]

Bonjour,

Je viens aujourd'hui vous voir avec un nouveau problème. Après de multiples recherches sur internet je ne parviens pas à trouver chaussures à mon pied.

Je vous montre le contexte :

Actuellement je ressort des données d'une base de données que j'appel grâce aux procédures stockées via Visual Basic pour afficher les résultats dans une feuille excel.

Pour ce point là, je n'ai pas de problème.

Le hic est : Dans excel les colonnes brutes c'est pas super. J'aimerais alors reprendre les noms des champs de la table extraite pour les afficher eux aussi.
Mais là : je ne sais pas du tout si une procédures stockées va me permettre de faire la chose ou si tout ce passe dans le Visual Basic.

J'ai trouvé ça comme requêtes sql :

Code :

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

SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME= 'Matable'

Cette requête me montre bien mes titres pour la table en question mais est ce la bonne manipulation ou y a t'il autre chose ?
Comment après puis-je les afficher dans ma feuille excel après ?


Ou alors tout simplement : Comment écrire du texte dans une cellule via VB ?


Cordialement.


M4itreG.

[eagleleader]

Salut,

Le plus facile c'est d'utiliser le resultat de ta requete et de le placer dans un System.Data.DataSet.
Ensuite, le DataSet lui il aura les noms de champs de ta requete SELECT dans sa collection de colonnes.
Donc tu pourras iterer au travers des colonnes :

Code :

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

foreach (System.Data.DataColumn col in dataSet.Tables[0].Columns)

Une fois l'iteration en place tu peux facilement recuperer les noms de tes colonnes comme ceci:

Code :

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

col.ColumnName

Et les ecrire...

[M4itreG]

Merci eagleleader pour ton aide, je le marque dans un coin, ca pourra servir.

Etant donné que je n'avais que 3 colonnes à mettre, j'ai trouvé un solution simple.
Je donne la réponse au cas où :
Certes si j'avais eu 500 colonnes, ta méthode aurait été bien mieux :

Code :

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

1
2
3
4
5
6
7
8
Windows("fichier.xlsm").Activate
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Nom"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Prénom"
    Range("C1").Select
 
ETC ...

Cordialement.


M4itreG