Discussion :

[stounouslous]

Bonjour à tous,

A partir d'une application EXCEL, développée avec VBA, je dois aller rechercher des infos dans une table d'une base HyperFile.
J'ai le bon driver qui va bien, mais je n'arrive pas à écrire le code correct qui pourrait me permettre une requête SQL.

Quelqu'un a-t-il déjà eu le problème ?

[Kalvin_20]

Moi j'ai dû à executer des requetes sql en DAO si ça peut t'aider je te met mon code


Cordialement

[Jean-Pierre49]

Bonjour

Il y a quelques post qui parle d'HyperFile et d'ODBC
avec une petite recherche

Si non tu peux commencer avec l'enregistreur de macro et Query

Données-Données Externes-Créer une requête

Tu dis

Je connais un peu
Je pourrais peu être t'aider

Bon Courage

[stounouslous]

Merci pour vos réponses,

effectivement il y a des post sur le sujet, mais leur lecture fait surtout apparaitre des problèmes.
De plus c'est souvent dans le sens WINDEV vers EXCEL où là c'est assez facile.

Donc, tout petit bout de code qui me permettrait d'entrevoir la solution serait le bienvenu.
Merci par avance.

[Jean-Pierre49]

Bonjour à toi et à tout le forum,

Tu n'a pas bien lu les post je pense.

Et c'est bien ds le sens Bases vers Excel que tu veux, puisque tu veux y faire une requête ou bien j'ai rien compris

Reformule ton besoin stp

Bon courage

[Kalvin_20]

Bon jte met un bout de code en DAO et à toi de l'adapter à ce que tu veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set db = DAO.OpenDatabase("m:\Stage Yassine\Suivie de Production.mdb", False, False) ' Chemin de ta base 
strSQL = "SELECT Sum(Heure) AS [SommeDeHeure], " & _
   "Sum(Compteur]) AS [SommeDeCompteur] " & _
   "FROM MaTable ;"
   Set rs = db.OpenRecordset(strSQL, DAO.dbOpenSnapshot)
'rs.fields(0) =>pour recupérer la somme des heures
'rs.fields(1) =>pour recupérer la somme du compteur
'close recordset
rs.Close

j'espere que ça t aidera à avancer dans ton projet bonne chance

Cordialement