Function IMPStartXmlBook (IdXml As Integer, iFormat As Integer) As Integer
Dim Ret%
Dim i%
Dim j%

Dim sGlobBook$
Dim Cpt%
For i = 0 To 10
    TypeTable(i) = 0
    NameTable(i) = ""
    NameBookMark(i) = ""
    ValueBookMark(i) = ""
    ChampNumCompta(i) = ""
Next i
For i = 0 To 30
    For j = 0 To 30
	CurNomChamp(i, j) = ""
    Next j
Next i

Ret = XasXmlStart(IdXml, 0)
Ret = XasXmlSearchNode(IdXml, 5, "Id=" + CStr(iFormat), "", "")
Ret = XasXMLGetAttributbyName(IdXml, "BookMark", sGlobBook)
For i = 1 To 40 Step 4
    XasSleep 1
    If GetCharByIndice(sGlobBook, ",", i) <> "" Then
	Cpt = Cpt + 1
	CurXmlTable(Cpt) = UCase$(GetCharByIndice(sGlobBook, ",", i))
	CurXmlBook(Cpt) = GetCharByIndice(sGlobBook, ",", i + 1)
	Ret = XasXMLGetAttributbyName(IdXml, CurXmlBook(Cpt), CurXmlData(Cpt))
	CurXmlType(Cpt) = Val(GetCharByIndice(sGlobBook, ",", i + 2))
	If CurXmlType(Cpt) = 0 Then
	    CurXmlType(Cpt) = 1
	End If
	CurXmlChamp(Cpt) = UCase$(GetCharByIndice(sGlobBook, ",", i + 3))
    End If
Next i

IMPStartXmlBook = Cpt
End Function