J'essais de faire une recherche dans Access =E0 partir de Excel, pour un
crit=E8re indiqu=E9 dans une bo=EEte de dialogue(inputbox), et affiche le
r=E9sutat de cette recherche dans une autre feuille excel.
=C0 la ligne Set DB_CLLI =3D DB.OpenRecordset("chercheCLLI",
dbOpenDynaset) j'obtiens l'erreur.
Voici mon code:
Sub DB_CLLI1()
'A METTRE EN DEBUT DE CHAQUE PROCEDURE
On Error GoTo ErrPtnr_OnError
Dim session As Workspace
Dim DB As Database
Dim DB_CLLI As Recordset
Dim Requete As QueryDef
Set session =3D DBEngine.Workspaces(0)
Set DB =3D session.OpenDatabase(ThisWorkbook.Path & "\cellular.mdb")
' Set Requete =3D DB.CreateQueryDef("chercheCLLI")
' la requ=E8te doit =EAtre cr=E9=E9e avant la premi=E8re utilisation
' pour simplifier la proc=E9dure cette cr=E9ation est manuelle
Set Requete =3D DB.QueryDefs("chercheCLLI")
no =3D InputBox("Le CLLI S.V.P.")
If Len(no) <> 11 Then 'Clli doit =EAtre compos=E9 de 11 caract=E8res
MsgBox "Le [" & no & "] n'est pas un CLLI valide.",
vbInformation, "CLLI"
DB.Close
Exit Sub
End If
Requete.Sql =3D "SELECT * FROM cellular WHERE [POI CLLI] =3D " & no &
";"
Set DB_CLLI =3D DB.OpenRecordset("chercheCLLI", dbOpenDynaset)
If DB_CLLI.EOF Then 'Pas de donn=E9es pour ce CLLI
MsgBox "Le CLLI [" & no & "] n'a pas de donn=E9es.",
vbInformation, "CLLI"
DB_CLLI.Close
DB.Close
Exit Sub
End If
DB_CLLI.MoveLast
DB_CLLI.MoveFirst
Range("A2:M2").ClearContents
DB_CLLI.MoveNext 'Affiche les donn=E9es suivantes pour le m=EAme
clli
Next x
DB_CLLI.Close
DB.Close
Exit Sub
ErrPtnr_OnError:
Select Case ErrPtnr.OnError("frmMain", "Command1")
Case 0: Resume
Case 1: Resume Next
Case 2: Exit Sub
Case 3: End=20
End Select=20
End Sub=20
J'essais de faire une recherche dans Access à partir de Excel, pour un
critère indiqué dans une boîte de dialogue(inputbox), et affiche le résutat de cette recherche dans une autre feuille excel. À la ligne Set DB_CLLI = DB.OpenRecordset("chercheCLLI", dbOpenDynaset) j'obtiens l'erreur.
Voici mon code:
Sub DB_CLLI1()
'A METTRE EN DEBUT DE CHAQUE PROCEDURE On Error GoTo ErrPtnr_OnError
Dim session As Workspace Dim DB As Database Dim DB_CLLI As Recordset Dim Requete As QueryDef
Set session = DBEngine.Workspaces(0) Set DB = session.OpenDatabase(ThisWorkbook.Path & "cellular.mdb") ' Set Requete = DB.CreateQueryDef("chercheCLLI") ' la requète doit être créée avant la première utilisation ' pour simplifier la procédure cette création est manuelle
Set Requete = DB.QueryDefs("chercheCLLI") no = InputBox("Le CLLI S.V.P.") If Len(no) <> 11 Then 'Clli doit être composé de 11 caractères MsgBox "Le [" & no & "] n'est pas un CLLI valide.", vbInformation, "CLLI" DB.Close Exit Sub End If Requete.Sql = "SELECT * FROM cellular WHERE [POI CLLI] = " & no & ";" Set DB_CLLI = DB.OpenRecordset("chercheCLLI", dbOpenDynaset) If DB_CLLI.EOF Then 'Pas de données pour ce CLLI MsgBox "Le CLLI [" & no & "] n'a pas de données.", vbInformation, "CLLI" DB_CLLI.Close DB.Close Exit Sub End If DB_CLLI.MoveLast DB_CLLI.MoveFirst Range("A2:M2").ClearContents
DB_CLLI.MoveNext 'Affiche les données suivantes pour le même clli Next x DB_CLLI.Close DB.Close Exit Sub ErrPtnr_OnError: Select Case ErrPtnr.OnError("frmMain", "Command1") Case 0: Resume Case 1: Resume Next Case 2: Exit Sub Case 3: End End Select End Sub
Merci pour votre aide.
"medacide" <medacide@hotmail.com> a écrit dans le message de news:
1145697015.731048.75530@i39g2000cwa.googlegroups.com...
Bonjour,
J'essais de faire une recherche dans Access à partir de Excel, pour un
critère indiqué dans une boîte de dialogue(inputbox), et affiche le
résutat de cette recherche dans une autre feuille excel.
À la ligne Set DB_CLLI = DB.OpenRecordset("chercheCLLI",
dbOpenDynaset) j'obtiens l'erreur.
Voici mon code:
Sub DB_CLLI1()
'A METTRE EN DEBUT DE CHAQUE PROCEDURE
On Error GoTo ErrPtnr_OnError
Dim session As Workspace
Dim DB As Database
Dim DB_CLLI As Recordset
Dim Requete As QueryDef
Set session = DBEngine.Workspaces(0)
Set DB = session.OpenDatabase(ThisWorkbook.Path & "cellular.mdb")
' Set Requete = DB.CreateQueryDef("chercheCLLI")
' la requète doit être créée avant la première utilisation
' pour simplifier la procédure cette création est manuelle
Set Requete = DB.QueryDefs("chercheCLLI")
no = InputBox("Le CLLI S.V.P.")
If Len(no) <> 11 Then 'Clli doit être composé de 11 caractères
MsgBox "Le [" & no & "] n'est pas un CLLI valide.",
vbInformation, "CLLI"
DB.Close
Exit Sub
End If
Requete.Sql = "SELECT * FROM cellular WHERE [POI CLLI] = " & no &
";"
Set DB_CLLI = DB.OpenRecordset("chercheCLLI", dbOpenDynaset)
If DB_CLLI.EOF Then 'Pas de données pour ce CLLI
MsgBox "Le CLLI [" & no & "] n'a pas de données.",
vbInformation, "CLLI"
DB_CLLI.Close
DB.Close
Exit Sub
End If
DB_CLLI.MoveLast
DB_CLLI.MoveFirst
Range("A2:M2").ClearContents
DB_CLLI.MoveNext 'Affiche les données suivantes pour le même
clli
Next x
DB_CLLI.Close
DB.Close
Exit Sub
ErrPtnr_OnError:
Select Case ErrPtnr.OnError("frmMain", "Command1")
Case 0: Resume
Case 1: Resume Next
Case 2: Exit Sub
Case 3: End
End Select
End Sub
J'essais de faire une recherche dans Access à partir de Excel, pour un
critère indiqué dans une boîte de dialogue(inputbox), et affiche le résutat de cette recherche dans une autre feuille excel. À la ligne Set DB_CLLI = DB.OpenRecordset("chercheCLLI", dbOpenDynaset) j'obtiens l'erreur.
Voici mon code:
Sub DB_CLLI1()
'A METTRE EN DEBUT DE CHAQUE PROCEDURE On Error GoTo ErrPtnr_OnError
Dim session As Workspace Dim DB As Database Dim DB_CLLI As Recordset Dim Requete As QueryDef
Set session = DBEngine.Workspaces(0) Set DB = session.OpenDatabase(ThisWorkbook.Path & "cellular.mdb") ' Set Requete = DB.CreateQueryDef("chercheCLLI") ' la requète doit être créée avant la première utilisation ' pour simplifier la procédure cette création est manuelle
Set Requete = DB.QueryDefs("chercheCLLI") no = InputBox("Le CLLI S.V.P.") If Len(no) <> 11 Then 'Clli doit être composé de 11 caractères MsgBox "Le [" & no & "] n'est pas un CLLI valide.", vbInformation, "CLLI" DB.Close Exit Sub End If Requete.Sql = "SELECT * FROM cellular WHERE [POI CLLI] = " & no & ";" Set DB_CLLI = DB.OpenRecordset("chercheCLLI", dbOpenDynaset) If DB_CLLI.EOF Then 'Pas de données pour ce CLLI MsgBox "Le CLLI [" & no & "] n'a pas de données.", vbInformation, "CLLI" DB_CLLI.Close DB.Close Exit Sub End If DB_CLLI.MoveLast DB_CLLI.MoveFirst Range("A2:M2").ClearContents
DB_CLLI.MoveNext 'Affiche les données suivantes pour le même clli Next x DB_CLLI.Close DB.Close Exit Sub ErrPtnr_OnError: Select Case ErrPtnr.OnError("frmMain", "Command1") Case 0: Resume Case 1: Resume Next Case 2: Exit Sub Case 3: End End Select End Sub