ACCESS TO ( XML,EXCEL )

Signaler
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
zinouba89
Messages postés
1
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
3 mai 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47142-access-to-xml-excel

zinouba89
Messages postés
1
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
3 mai 2011

ça ne fonctionne pas! Imports Excel

/* c'est quoi ce truc !! j'ai ajouter

"Imports Microsoft.Office.Interop.Excel "

mais ça marche pas et j'ai rien compris :(
master21
Messages postés
1
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
19 novembre 2009

Merci
Adoulaman
Messages postés
3
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
16 février 2009

Merci
LunaPurple
Messages postés
19
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
20 octobre 2010

Je viens de m'apercevoir qu'il fallait aussi ajouter
Me.ProgressBar1.Value = 0
au tout début du code sur l'action click du bouton4 pour réinitialiser la progressbar avant toute action.
Sinon, lorsqu'on enchaîne les exports xls et xml pour une même table, il plante car à la fin, 1 + 1 = 2 (c'est un scoop ! ;-), et la valeur de la progressbar ne peut pas être supérieure à 1.

début du Code à modifier :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butt_Convertir.Click
Me.ProgressBar1.Value = 0
If Me.RadioButton1.Checked Then
For i As Integer = 0 To Me.ListBox2.Items.Count - 1
If TableToXmlConverter(Me.ListBox2.GetItemText(Me.ListBox2.Items(i)), Me.TextBox2.Text, Con) Then
Me.ProgressBar1.Value += 1
End If
Next
LunaPurple
Messages postés
19
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
20 octobre 2010

Merci pour cette source qui m'a permis de faire mes exports xml sans me casser la tête !

Juste deux petits soucis pour l'export excel.
Il faut remplacer Rows par Columns dans la première boucle
'Entéte de feuille
Dim C, L As Integer
For C = 0 To DataSet.Tables(0).Columns.Count - 1
xls.Cells(1, C + 1) = DataSet.Tables(0).Columns(C).ColumnName
Next

Et la variable B doit être mise à False lorsque l'on est dans le Catch de l'exception.
On peut même y ajouter :
MessageBox.Show(ex.ToString) 'donne le lib de l'erreur rencontrée
si on veut.

Voilà. Très bonne source dans l'ensemble. Merci de l'avoir partagée.