Erreur compilation type défini par l'utilisateur non défini

Bonjour à tous,

je recup un bd filemaker pro 5.5 pour integration sous excel
j'ai le message ci-dessous et je n'arrive pas à me dépatouiller, pouvez vous m'aider.

Dim FMApp As FMPRO50Lib.Application
Dim FMDocs As FMPRO50Lib.Documents
Dim FMActiveDoc As FMPRO50Lib.Document
Dim DBConn As ADODB.Connection
Dim dbfields As Collection
Dim FMFields As Collection

Private Const DB_DATE_FICHE = "Lot Date"
Private Const DB_LOT_FICHE = "Lot Fiche"
Private Const DB_CODE_ARTICLE = "Code Article"
Private Const DB_DESCR = "Description"
Private Const DB_POIDS = "Poids"
Private Const DB_LOT_ARTICLE = "Lot Article"
Private Const DB_PRIX = "Nuance"
Private Const DB_QTE = "Quantité"


Private FMSEP As String

Public Sub FMOpen()
Set FMApp = New FMPRO50Lib.Application
Set FMDocs = FMApp.Documents
End Sub

Private Function FMDocOpen(fileName As String) As FMPRO50Lib.Document
Set FMDocOpen = FMDocs.Open(fileName, "")
End Function

Private Sub FMDocClose(ByRef doc As FMPRO50Lib.Document)
doc.Close
Set doc = Nothing
End Sub

Private Sub FMClose()
FMDocs.Close
Set FMDocs = Nothing
FMApp.Quit
Set FMApp = Nothing
End Sub

Public Sub FMImport()
initFieldsLists
FMSEP = Chr(29)
DBOpen
FMOpen
Dim doc As FMPRO50Lib.Document
Dim fileName As String
Dim tableName As String
fileName = configGetValue("FMFAB")
Set doc = FMDocOpen(fileName)

doc.DoFMScript ("Export_FAB")
While FMApp.ScriptStatus <> 0
DoEvents
Wend
FMDocClose doc
FMClose

Dim hdl As Integer
Dim buffer As String

hdl = FreeFile
Open ThisWorkbook.Path & "\Export_FAB.tab" For Input As hdl
Dim fields() As String
While Not EOF(hdl)
Line Input #hdl, buffer
fields = Split(buffer, vbTab)
FMProcessRecord fields
Wend
Close hdl
DBClose
End Sub

Private Sub FMProcessRecord(fields() As String)
Static lastFiche As String
Static lastDate As String
Dim codes() As String
Dim descrs() As String
Dim poids() As String
Dim lots() As String
Dim prix() As String
Dim qte() As String
Dim fdate As String
Dim flot As String
Dim rs As New Recordset
Dim fieldsname As Variant
Dim ifield
If fields(0) = "" Then Exit Sub
While Asc(fields(0)) > 122: fields(0) = Mid(fields(0), 2): Wend
If StrComp(Trim(fields(0)), "SUITE", vbTextCompare) = 0 Or Trim(fields(0)) = "" Then
fdate = lastDate
flot = lastFiche
Else
fdate = Replace(Left(fields(0), 10), ".", "/")
lastDate = fdate
flot = fields(1)
lastFiche = flot
rs.Open "DELETE * FROM LotLignes WHERE [Lot Fiche]='" & flot & "'", DBConn, adOpenDynamic, adLockOptimistic
End If
Dim nb As Integer
codes = Split(fields(2), FMSEP)
nb = UBound(codes)
descrs = Split(fields(4), FMSEP)
poids = Split(fields(6), FMSEP)
lots = Split(fields(3), FMSEP)
prix = Split(fields(5), FMSEP)
qte = Split(fields(7), FMSEP)

fieldsname = Array(DB_DATE_FICHE, DB_LOT_FICHE, DB_CODE_ARTICLE, DB_DESCR, DB_POIDS, DB_LOT_ARTICLE, DB_PRIX, DB_QTE)

rs.Open "LotLignes", DBConn, adOpenKeyset, adLockOptimistic

Dim values As Variant
Dim i As Integer
Dim fpoids As String, flots As String, fdescrs As String, fprix As String, fqte As Double

For i = 0 To UBound(codes)
If Trim(codes(i)) <> "" Then
If i > UBound(descrs) Then fdescrs = "" Else fdescrs = Trim(descrs(i))
If i > UBound(poids) Then fpoids = "" Else fpoids = Trim(poids(i))
If i > UBound(lots) Then flots = "" Else flots = Trim(lots(i))
If i > UBound(prix) Then fprix = "" Else fprix = Trim(prix(i))
If i > UBound(qte) Then
fqte = "0"
ElseIf Trim(qte(i)) = "" Then
fqte = "0"
Else
fqte = CleanQte(qte(i))
End If

values = Array(CDate(fdate), flot, Trim(codes(i)), _
CStr(fdescrs), _
CStr(fpoids), _
CStr(flots), _
CStr(fprix), _
CDbl(fqte))
rs.AddNew fieldsname, values
rs.Update
End If
Next
rs.Close
End Sub
Private Function CleanQte(value As String) As String
Dim i As Integer
Dim result As String
Dim c As Integer
Dim h As Boolean

h = False
For i = 1 To Len(value)
c = Asc(Mid(value, i, 1))
If (c >= 48 And c <= 57) Then
result = result & Chr(c)
ElseIf c = 46 And h = False Then
result = result & "."
h = True
End If
Next
If result = "" Then result = "0"
CleanQte = result
End Function
Private Function configGetValue(key As String) As String
Dim tabConf As Range
Set tabConf = Range("TabConfig")
Dim c As Range
Set c = tabConf.Columns(1).Find(key)
configGetValue = tabConf.Cells(c.row, 3)
End Function

Private Sub configSetValue(key As String, value As Variant)
Dim tabConf As Range
Set tabConf = Range("TabConfig")
Dim c As Range
Set c = tabConf.Columns(1).Find(key)
tabConf.Cells(c.row - 1, 3).value = value
End Sub

Private Sub initFieldsLists()
Set FMFields = New Collection
Set dbfields = New Collection
FieldsListsAdd configGetValue("FMDATE"), DB_DATE_FICHE
FieldsListsAdd configGetValue("FMLOTFICHE"), DB_LOT_FICHE
FieldsListsAdd configGetValue("FMARTICLE"), DB_CODE_ARTICLE
FieldsListsAdd configGetValue("FMDESCR"), DB_DESCR
FieldsListsAdd configGetValue("FMPOIDS"), DB_POIDS
FieldsListsAdd configGetValue("FMLOTACTION"), DB_LOT_ARTICLE
FieldsListsAdd configGetValue("FMPRIX"), DB_PRIX
FieldsListsAdd configGetValue("FMQTE"), DB_QTE
End Sub

Private Sub FieldsListsAdd(FMField As String, DBField As String)
FMFields.Add FMField, DBField
dbfields.Add DBField, FMField
End Sub

Private Function configGetLastFiche()
configGetLastFiche = configGetValue("FMLASTFICHE")
End Function

Private Sub configSetLastFiche(value As String)
configSetValue "FMLASTFICHE", value
End Sub


Private Sub DBOpen()
Set DBConn = New ADODB.Connection
Dim Dsn As String
Dsn = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);" & vbCrLf & _
"DBQ=" & ThisWorkbook.Path & "\" & configGetValue("DBMDB")
DBConn.Open Dsn
End Sub

Private Sub DBClose()
DBConn.Close
Set DBConn = Nothing
End Sub

Public Sub FMImportUI()
Load UserForm1
UserForm1.Show
End Sub



merci