1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Datagrid

Signaler
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
 -
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
 -
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.

6 réponses

Réponse 1 / 6
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
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
Réponse 2 / 6
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
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?
Réponse 3 / 6
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
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
Réponse 4 / 6
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
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.
Réponse 5 / 6
Messages postés
36
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
26 septembre 2006
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
Réponse 6 / 6
Messages postés
197
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
17 novembre 2006
Merci encore pour ton aide mais j'ai opté pour le Recordset, plus simple!
A++
Répondre Posez votre question