Bonjour,

Je cherche à créer une chaine de caractères composée d'éléments contenue dans un fichier xls.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
  Private Function parcourirXls(ByVal cheminFichier As String)
 
 
        Dim xlApp = New xls.Application
        xlWorkBook = xlApp.Workbooks.Open(cheminFichier)
        xlWorkSheet = xlWorkBook.Worksheets("PointsGPS")
        Dim DerLig As Integer
        DerLig = Split(xlWorkSheet.UsedRange.Address, "$")(4)
        Dim j As Integer
        If IsDate(xlWorkSheet.Cells(2, 1)) Then
            j = 1
        Else
            j = 2
        End If
        'Fonction de parcour des lignes du fichier XSL pour recuprer le contenue des cellues
        Dim listePTs As String = ""
        Dim f As Integer = 0
 Dim X As String
            Dim Y As String
        For j = j To DerLig
 
            X = xlWorkSheet.Range("D" & j).Value 'valeur de la cellule i de la colonne 4
            Y = xlWorkSheet.Range("C" & j).Value  'Valeur de la cellule i de la colonne 3
            X = X.Replace(",", ".")
            Y = Y.Replace(",", ".")
            listePTs = listePTs & "(""" + X + """,""" + Y + """)"
            f = f + 1
        Next
        listePTs = f & " " & listePTs
        MessageBox.Show(listePTs)
        xlWorkBook.Close()
        xlApp.Quit()
        Return listePTs
 
    End Function
Le code fonctionne pour des fichiers contenant peut de ligne, mais je doit traité des fichiers de plus de 20 000ligne et a chaque fois j’obtiens une exception a se niveau X = X.Replace(",", ".")
exception : la référence d'objet n'est pas définie à une instance d'un objet

Merci de votre aide