gerardchery8
Messages postés mercredi 26 mars 2008Date d'inscription
29 janvier 2013
Dernière intervention
-
11 août 2009 à 08:02 - Dernière réponse : gerardchery8
Messages postés mercredi 26 mars 2008Date d'inscription
29 janvier 2013
Dernière intervention
- 14 août 2009 à 09:25
Calade1212
Messages postés dimanche 20 avril 2003Date d'inscription
4 juin 2016
Dernière intervention -11 août 2009 à 14:35
+3
Utile
Il te faut manipuler ta feuille Excel à partir de VB6 en référençant
"Microsoft Office 10.0 Library" (pour Office 2002. Puis fais exécuter toutes tes manips d'ouverture de fichier excel, sélection d'onglet et de cellules par ton code.
Enfin une fois sélectionnée la 1ère cellule devant contenir tes données
call ActiveCell.CopyFromRecordset(rstADO)
Calade
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
gerardchery8
Messages postés mercredi 26 mars 2008Date d'inscription
29 janvier 2013
Dernière intervention -11 août 2009 à 11:25
0
Utile
je suis bien en vb6, j'ai vu sur internet que le datagridview remplaçait le datagrid, mais je n'ai pas percuté que c'était en .net et comme je n'arrive pas à récupérer les données des cellules d'un datagrid,j'ai pensé à la solution datagridview.
je vais chercher encore
merci en tous cas pour ta réponse
gerardchery8
Messages postés mercredi 26 mars 2008Date d'inscription
29 janvier 2013
Dernière intervention -11 août 2009 à 12:10
0
Utile
merci beaucoupe de me consacrer un peur de ton temps
j'ai trouver le datagrid, je le mets à jour, mais ce que je n'arrive pas à faire, c'est récupérer les valeurs des cellules du datagrid.
merci
gerardchery8
Messages postés mercredi 26 mars 2008Date d'inscription
29 janvier 2013
Dernière intervention -11 août 2009 à 14:11
0
Utile
non je crée une connection ado
Dim cnnADO As New ADODB.Connection
Dim cmdADO As New ADODB.Command
Dim rsADO As New ADODB.Recordset
cnnADO.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\asdecoup.mdb;Persist Security Info=False"
cnnADO.Open
cmdADO.ActiveConnection = cnnADO
Sql = "SELECT sum(htrv), sum(htjt), sum(panier), sum(deplacement) from per001 WHERE month(datetrav)=5"
cmdADO.CommandText = Sql
rsADO.CursorLocation = adUseClient
rsADO.CursorType = adOpenDynamic
rsADO.LockType = adLockPessimistic
rsADO.Open cmdADO
DataGrid1.Refresh
jusque là pas de pb, ma grid contient les bonnes valeurs
ce que je voudrai maintenant, c'est récupérer les valeurs des cellules de la datagrid, pour les imprimer sous un tabelau excel ou autre
merci de ton aide
