[VBA-E] [DEBUTANT] erreur .SubString

**joebarteam88** · 23/08/2006, 16h18

Bonjour,
comme l'indique le titre je suis full débutant en VB. Je suis en train d'essayer de faire une macro dans excel et grrrrr !!! Je galère à mort ...

Voici mont code

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
Sub GenXML(site)
    
    Dim curSheet
    Dim curBook
    
    Set curBook = Workbooks.Item("Properties.xls")
    Set curSheet = curBook.Sheets("properties")

    Dim fs, f, s, filename
    Set fs = CreateObject("Scripting.FileSystemObject")
    filename = home & "\properties.xml"
    Set ts = fs.CreateTextFile(filename, True)
        
    counter = 1
    Dim str
    ts.WriteLine ("<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>")
    ts.WriteLine ("<properties>")
    Do While counter < 1000
        counter = counter + 1
        str = curSheet.Cells(counter, 1).Value
        If (str = "#FIN") Then
            counter = 1001
        ElseIf (str.Substring(0, 1) <> "#") Then
            ts.Write (Chr(9) & "<property key='" & str & "'>")
            ts.Write (curSheet.Cells(counter, colsite).Value)
            ts.WriteLine ("</property>")
        End If
    Loop
    ts.WriteLine ("</properties>")

    ts.Close
End Sub

Lors de l'execution, il plante sur la ligne en gras en me disant objet requis. Avec le debug (que je découvre aussi bien sur) j'ai vu que str est bien valorisé, ça me laisse penser qu'il se plante (enfin que je me plante donc) sur le SubString.
Une idée de quoi ça pourrait venir svp ?

merci