Probleme de connexion vb avec Excel
Sadek
-
sadek -
sadek -
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
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
A voir également:
- Probleme de connexion vb avec Excel
- Gmail connexion - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Salut,
bon j'ai teste ton code, le seul probleme que j'ai eu c'est avec App.Path
Il ne connaissait pas, mais je sais pas si c'est cela le pb. En gros, App n'est pas un objet (mais cela depend des references que tu as mis)
Par contre en affectant tout de suite le path bien precis (par exemple stFichier ="c:\trabajo\" ca fonctionne. Mais cela doit pas etre la bonne solution, car si tu le recherches, c'est que tu en a besoin.
Essaie donc de trouver un autre moyen pour recuperer ton path.
A+
Mouse
PS : tu es ou en Espagne ?
bon j'ai teste ton code, le seul probleme que j'ai eu c'est avec App.Path
Il ne connaissait pas, mais je sais pas si c'est cela le pb. En gros, App n'est pas un objet (mais cela depend des references que tu as mis)
Par contre en affectant tout de suite le path bien precis (par exemple stFichier ="c:\trabajo\" ca fonctionne. Mais cela doit pas etre la bonne solution, car si tu le recherches, c'est que tu en a besoin.
Essaie donc de trouver un autre moyen pour recuperer ton path.
A+
Mouse
PS : tu es ou en Espagne ?
sadek
non je suis au Mexico :)