cs_Florian29
Messages postés52Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention12 avril 2006
-
11 juil. 2002 à 14:46
nacergha
Messages postés3Date d'inscriptiondimanche 31 décembre 2006StatutMembreDernière intervention19 mars 2008
-
19 mars 2008 à 16:30
J'ai rempli un datagrid avec une requete sql. Je voudrai que lorsque l'on appuies sur un bouton, excel s'ouvre avec sur une feuille les données présentes dans le datagrid. Ou au moins enregistrer les données dans un fichier excel...
Merci bcp!
jjacques1
Messages postés4Date d'inscriptionmardi 2 juillet 2002StatutMembreDernière intervention11 juillet 2002 11 juil. 2002 à 15:26
voici le code tu n'as qu'a remplacer pour un datagrid a 4 colones :
Dim Ex As New Excel.Application 'Declaration
Set Ex = New Excel.Application 'Initialisation de l'objet
Ex.Workbooks.Add 'nouveau classeur,Ex.Workbooks.Add "Nom du fichier excel"'Ouverture d'un fichier excel existant
Data1.Refresh
Ex.Cells(2, 1) = "Société"
Ex.Cells(2, 2) = "Commande"
Ex.Cells(2, 3) = "Date Livraison"
Ex.Cells(2, 4) = "Montant TTC"
j = 3
While Not Data1.Recordset.EOF
For i = 0 To 3
Ex.Cells(j, i + 1) = DBGrid1.Columns(i)
Next
Data1.Recordset.MoveNext
j = j + 1
Wend
Ex.Visible = True
cs_Florian29
Messages postés52Date d'inscriptionsamedi 8 juin 2002StatutMembreDernière intervention12 avril 2006 11 juil. 2002 à 16:36
Merci mais j'avais déja essayé ça et j'ai une erreur de compil sur la ligne:
Dim Ex As New Excel.Application
Erreur="Type défini par l'utilisateur non défini"
Tu sais d'ou ça peut venir???
Merci encore!