ACCESS TO ( XML,EXCEL )

gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 - 28 juin 2008 à 16:02
zinouba89 Messages postés 1 Date d'inscription lundi 7 février 2011 Statut Membre Dernière intervention 3 mai 2011 - 3 mai 2011 à 04:20
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
3 mai 2011 à 04:20
ç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
19 nov. 2009 à 21:04
Merci
Adoulaman Messages postés 3 Date d'inscription mercredi 19 novembre 2008 Statut Membre Dernière intervention 16 février 2009
28 déc. 2008 à 22:19
Merci
LunaPurple Messages postés 19 Date d'inscription dimanche 15 avril 2007 Statut Membre Dernière intervention 20 octobre 2010
21 sept. 2008 à 19:39
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
21 sept. 2008 à 18:47
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.
simo5963 Messages postés 127 Date d'inscription vendredi 12 octobre 2007 Statut Membre Dernière intervention 24 mars 2009 1
4 juil. 2008 à 23:38
Merci a vous JAMALLA
jamalla Messages postés 4 Date d'inscription vendredi 4 juillet 2008 Statut Membre Dernière intervention 4 juillet 2008
4 juil. 2008 à 20:42
de vous efforts
jamalla Messages postés 4 Date d'inscription vendredi 4 juillet 2008 Statut Membre Dernière intervention 4 juillet 2008
4 juil. 2008 à 20:37
merci
simo5963 Messages postés 127 Date d'inscription vendredi 12 octobre 2007 Statut Membre Dernière intervention 24 mars 2009 1
29 juin 2008 à 13:21
ANTHONYGEGO,SIMONEO => Merci a vous tout les deux,

Le vrai développeur n’est pas emballé, il essai d’analyser le code avant de juger, généralement il donne une conseille te faire avancer en avant.

Imports Excel
/* c'est quoi ce truc
????????????????
*/ ce donne pas une bonne impression.
cs_simoneo Messages postés 20 Date d'inscription samedi 4 novembre 2006 Statut Membre Dernière intervention 29 juin 2008
29 juin 2008 à 05:07
ça fonctionne très bien simo5963. Le code est claire et bien organisé. Merci
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 2
28 juin 2008 à 17:25
Imports Microsoft.Office.Interop.Excell
anthonygego Messages postés 48 Date d'inscription lundi 1 août 2005 Statut Membre Dernière intervention 10 juillet 2008 1
28 juin 2008 à 17:17
Chez moi cela fonctionne. Le namespace Excel vient de la librairie Interop.Excel.dll...
gillardg Messages postés 3275 Date d'inscription jeudi 3 avril 2008 Statut Membre Dernière intervention 14 septembre 2014 2
28 juin 2008 à 16:02
ça ne fonctionne pas!

Imports Excel
/* c'est quoi ce truc
????????????????
*/
comment pourrais fonctionner un prog si déjà dans les 10 premières déclarations il y a des erreurs
Rejoignez-nous