Exporter table MySQL vers Excel 2007

Salut,

J'aimerai exporter une table (mysql) vers excel. Avez-vous des exemples ?

Merci et dsl si je demande d trop mais j'ai cherché sur pas mal de site :cry:

Salut,

Voila un exemple, essayer ca:

NB:Faut d'abord importer la référence d'excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

'espace d'importation Imports Excels = Microsoft.Office.Interop.Excel Imports system.data.sqlclient   'la declaration Dim xlApp As Excels.Application Dim xlWorkBook As Excels.Workbook Dim xlWorkSheet As New Excels.Worksheet Dim misValue As Object = System.Reflection.Missing.Value   'créer la feuille excel : xlApp = New Excels.ApplicationClass xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1")   'la tu defini ta requete   dim com as ..................... 'Ecrire dans excel 'le champ a afficher depuis sql xlWorkSheet.Cells(1, 1) = “valeur”   xlWorkSheet.Cells(2, 1) = “valeur” .....   'Enregistrer le fichier Excel   Dim ch As String Dim SaveFileDialog1 AsNew SaveFileDialog() Dim result As DialogResult = SaveFileDialog1.ShowDialog() If (result = Windows.Forms.DialogResult.OK) Then ch = SaveFileDialog1.FileName xlWorkSheet.SaveAs(ch) xlApp.Application.Quit() EndIf

---

:ccool:

Merci pour la réponse... désormais, il me donne un bug sur cette ligne :

Code:

---

1 2	xlWorkBook = xlApp.Workbooks.Add(misValue)

---

Citation:

---

Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))

---

bonjour
la declaration doit etre corrigee un peu ,ca ne passe pas ainsi que la sauvegarde du fichier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'on cree un nouveau classeur pas une feuille Dim xlApp As Excels.Application=New Excels.ApplicationClass 'utiliser worsheets au lieu de sheets Dim xlWorkBook As Excels.Workbook=xlApp.Workbooks.Add("nouvClasseur.xls") 'on se place sur la feuille d'index 1 '(eviter les noms de feuille parce il change suivant le pays panneau de config.) Dim xlWorkSheet As Excels.Worksheet=xlWorkBook.Worsheet(1)   'Enregistrer le "Classeur" fichier Excel   xlWorkWorkBook.SaveAs(ch) xlApp.Application=Nothing 'fermer Excel xlApp.Application.Quit() EndIf

---