Import de Fonction Access

[VINCE]

Est-il possible de récupérer le résultat d'une fonction Access 2000 d'un module dans Excel 2000 ???

Si oui, comment ??

 

[STéphane]

cet exemple ouvre une base access et utilise une fonction de VBA Access pour connaître la valeur minimale de la table Table1 répondant au critère champ2=2

Sub toAutomate()
Static ac As Access.Application
Set ac = New Access.Application
ac.Visible = False
ac.OpenCurrentDatabase ("c:\winnt\profiles\royers\bureau\bd1.mdb")
valeurmin = ac.DMin("[Champ1]", "Table1", "[Champ2] = 2")

ac.Quit acQuitSaveNone
Set ac = Nothing

MsgBox valeurmin
End Sub

bye
stephane