Probleme de connexion vb avec Excel

salut a tous j'ai le code suivant qui fais l'affichage de contenu d'une table sur une feuille excel automatiquement je l'ai essayer sur un nouveau projet ca marche a merveuille mais lorsque j'ai inserrer ce code dans mon application un erreur que je pas compris de quoi s'agit il s'apprait au niveau de la ligne ecrite en gras qui dis "type mismatch" Dim DBA As Database
Dim Enreg As Recordset
Dim Appli As New Application
Dim Ligne As Long

Dim stFichier As String

If Right(App.Path, 1) = "\" Then
stFichier = App.Path
Else
stFichier = App.Path + "\"
End If
Set DBA = OpenDatabase(stFichier + "Colegio-BZA.MDB")


Set Enreg = DBA.OpenRecordset("SELECT NOMBRE,NIVEL FROM ALUMNOS")

Ligne = 1
Appli.Visible = True

Appli.Workbooks.Add

With Appli.ActiveWorkbook.Worksheets(1)

Enreg.MoveFirst
Do While Enreg.EOF = False
.Cells(Ligne, 1) = Enreg!nombre
.Cells(Ligne, 2) = Enreg!NIVEL


Ligne = Ligne + 1
Enreg.MoveNext

Loop

End With


qlq un peut me dire quoi ne marche pas dans ce cas?ou quoi il faux rectifier?
merci