Datagrid

Question

Hello!!

Apparemment ma question précédente ne vous a pas trop inspiré. Je comprend tout à fait moi non plus j'ai pas trouvé grand chose.
Je souhaite donc utiliser une autre méthode. Je voudrais exporter les données de mon Datagrid vers Excel. Le problème c'est  que sur le site je n'ai pas trouvé mon bonheur.
En effet il y a enormément de code source pour exporter les datagrid vers Excel mais en dot.net ou asp.net et c'est pas ce que je cherche.

Est-ce-que quelqu'un aurait la gentillesse de m'aider SVP.
Je compte sur votre aide.
Merci d'avance.

cs_aziz36 · Answer

salut 


tu peux parcourir ton datagrid, et  achaque fois tu recupere L'objet et tu le copie en excel:

dim i as integer
dim Myxl as workbook  "objet excel
set myxl=getobject ("c:\.........PAth")
feuille=1


for i=1 to DataGrid.ApproxCount
   myxl.worksheet(feuille).range("A" & i).value=DataGrid.columns(0) .value
"L'objet de la ligne i, colonne 0  sera transferer ds la colonne A ligne i d'excel


 next

gon_ak · Answer

Salut Aziz36

Quand tu fais "set myxl=getobject ("c:\.........PAth")" c'est pour ouvrir ta base de donnée, non?
Et si j'ai plusieurs colonnes à copier, je reprends "myxl.worksheet(feuille).range("A" & i).value=DataGrid.columns(0) .value" et je mets B, C, D... l'un derrière l'autre?

cs_aziz36 · Answer

slt
oui, set myxl=getobject ("c:\.........Path") , c'est pour donner le l'emplacement de ton application excel.
Et pour copier d'autres colonnes tu remplasses le nom de la colonne  B,C,.... 
et tu remplasses aussi la colonne de la recuperation du datagrid c'est à dire 
  DataGrid.columns(1),  DataGrid.columns(2).....

@+ aziz

gon_ak · Answer

je viens d'écrire ce que tu m'as recommandé. Alors j'ai écris ceci:

dim i as integer
dim Myxl as Excel.Workbook  "objet excel
set myxl=getobject ("c:\Mes documents\BDD")
feuille=1

for i=1 to DataGrid.ApproxCount
   myxl.worksheet(feuille).range("A" & i).value=DataGrid.columns(0) .value

Mais il me mets une erreur au niveau du "Set": il demande un nom de fichier
et il me met une erreur au niveau du myxl: problème d'indice.

Peux-tu m'expliquer STP, Merci.

cs_aziz36 · Answer

slt , déjà, ton chemin est certainement faux, si ta feuille(Nom_feuille.xls) se trouve sur Mes documents alors c'est "c:\Documents and settings\Mes documents\BDD\Nom_feuille.xls"    faudra que tu fasse attention sur le chemin d'acces

aussi, tu n'as  pas ecrit Next à la fin de la boucle

Essai encore

gon_ak · Answer

Merci encore pour ton aide mais j'ai opté pour le Recordset, plus simple!
A++

Datagrid

6 réponses

Votre réponse