Recherche V

[Aladin]

Bonjour le forum

Peux t on faire une recherchev à partir d' excel
vers une table Access, et si oui comment le faire

Aladin

 

[Davidc57]

Bonsoir Aladin,

Je n'ai jamais lu ou entendu que l'on peut attaquer Access de cette manière. Tu dois redescendre l'information d'une autre manière. Par exemple avec une requête SQL.

Enfin, je pense que c'est le plus facile à mettre en place. Voilà une fonction toute faite, que j'utilise fréquemment.

Function Executer_Requete(requete)

On Error GoTo Err_Executer_Requete

'Variables
Dim SGBD As Database, QdfTemp As QueryDef, RstTemp As Recordset
Dim BDDName As String
'Répertoire de l'application
RepApp = Mid(ThisWorkbook.FullName, 1, InStr(1, ThisWorkbook.FullName, ThisWorkbook.Name, 1) - 1)
NomFichier = UCase(Application.ActiveWorkbook.Name)
BDDName = 'base.mdb'

Sheets('Reception').Select
Cells.Select
Selection.Delete

Set SGBD = Workspaces(0).OpenDatabase(RepApp & BDDName)
Set QdfTemp = SGBD.CreateQueryDef('', requete)
Set RstTemp = QdfTemp.OpenRecordset(dbOpenSnapshot)
        
ndl = Workbooks(NomFichier).Worksheets('Reception').Cells(2, 1).CopyFromRecordset(RstTemp)
nbchamps = QdfTemp.Fields.Count
compteur = 0
For compteur = 0 To (nbchamps - 1)
    Workbooks(NomFichier).Worksheets('Reception').Cells(1, 1 + compteur) = QdfTemp.Fields(compteur).Name
Next compteur
        
QdfTemp.Close
RstTemp.Close
SGBD.Close

Exit Function

'Gestion des erreurs
Err_Executer_Requete:
MsgBox 'Impossible' & Chr(13) & Error$(Err)
Exit Function

Quand tu appelles cette fonction, tu dois lui donner en entrée une chaîne de caractère qui sera en fait la requête SQL que Excel va faire exécuter dans Access en le pilotant.



Entraîne toi, et essaye d'adapter à tes besoins. Si tu as besoins de plus d'aide, met à disposition un exemple dans un fichier.

A bientôt,

David

 

[Aladin]

Bonjour David et le forum

Je te remercie pour ton conseil et le code et essayerai de le mettre en pratique.

Aladin