PB création fichier excel avec vb.net

Fermé
mrh Messages postés 51 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 3 mars 2009 - 3 mars 2009 à 10:35
Bonjour,

J'ai un programme en vb.net qui récupère le résultat d'une requête SQL puis écris le résultat dans un fichier excel le problème est que la derniere case n'est jamais remplie!

Voici un bout de mon code :

For x = 0 To NbRow - 1
            'On remplis le fichier excel avec le résultat de la requête
            For y = 0 To nbcol - 1
                Try
                    Menu1.ProgressBar1.Value = Menu1.ProgressBar1.Value + 1
                    pourcent = (Menu1.ProgressBar1.Value * 100 / Menu1.ProgressBar1.Maximum).ToString()
                    Menu1.Label1.Text = pourcent.Substring(0, pourcent.IndexOf(",")) & "%"
                    Menu1.Label1.Refresh()
                    'Pour les cases à cocher si la valeur est True on met Oui dans la cellule
                    'Sinon on ne met rien
                    ligne = data.Tables("RECHERCHE").Rows(x).Item(y).ToString()
                    If ligne = "True" Then
                        ligne = "oui"
                    ElseIf ligne = "False" Then
                        ligne = ""
                    Else
                        ligne = data.Tables("RECHERCHE").Rows(x).Item(y).ToString()
                    End If
                    xlSheet.Rows(x + 2).RowHeight = 200
                    xlSheet.Cells(x + 2, y + 1) = Replace(ligne, "00:00:00", "")
                Catch ex As Exception
                    'MsgBox(ex.ToString)
                End Try
            Next
        Next


Voila si vous trouver quelque chose merci d'avance!
A voir également: