Discussion :

[domps]

Bonjour,

J'ai développé une macro VBA Excel qui va lire les donnée de la base de donnée Hyperfile (Windev) à l'aide des pilote ODBC Hyper File 7.
Je n'ai pas Windev mais j'ai réussi à installer les pilote sur mon ordinateur (WINDOWS 8.1 en 64bit - MS Office 2010 en 32 bit)

Ma macro Excel que va chercher une table de la base de données et la recopie dans l'onglet "Test".
Elle marche très bien pour la table "normale" mais pas pour les tables Alias

Si quelqu'un a une solution?? il aura mon éternelle reconnaissance.


Bonne journée


Si dessous le code:

Gestan : est le nom de la source de données utilisateur.
Chemin3 : est le chemin du fichier *.wdd - "C:\PROGRAM FILES (X86)\GESTAN\Gestan.wdd"
Chemin1: est le chemin de complet de la base - "C:\Users\.....\DATABASE"
FACTURE : est le nom de la table.
Ce code marche pour la table FACTURE mais pas pour la table AVOIR qui est aliasé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With ActiveSheet.ListObjects.Add( _
SourceType:=0, _
Source:=Array("ODBC;DSN=Gestan;ANA=" + Chemin3 + ";REP= " + Chemin1 + ";Server Name=;Server Port=;Database=;UID=;PWDXX=;Encryption="), Destination:=Range("Test!$A$1")) _
.QueryTable
.CommandText = Array("SELECT * FROM ""FACTURE""~""" + Chemin3)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = Chemin2 + "DATABASE FACTURE.odc"
.ListObject.DisplayName = "Tableau_DATABASE_FACTURE"
.Refresh BackgroundQuery:=False
End With

[domps]

Voici déjà 15 jours et malgré mes recherches je n'ai toujours pas de solution.
Personne n'aurai une idée?

Merci à AlainTech d'avoir mis mon code en page

[Marc-L]

Bonjour, bonjour,

faudrait peut-être penser à poser la question sur un forum WinDev, non ?‼

[domps]

J'AI TROUVE LA SOLUTION.

Pour commencer, il faut utiliser le provider "PCSoft.HFSQL" avec une connexion OLEDB.

Pour installer le provider: il faut télécharger l'OLEDB pour HFSQL "WX190PACKOLEDB040j.exe" ici http://www.pcsoft.fr/st/telec/module...9/wx19_40j.htm et l'installer,

En suite le code VBA EXCEL:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    With ActiveSheet.ListObjects.Add( _
    SourceType:=0, _
    Source:=Array("OLEDB;Provider=PCSoft.HFSQL;Initial Catalog=" + Chemin1 + ";User ID="""";Data Source="""";Extended Properties="""";Initial Cata" _
        , "log=" + Chemin1), Destination:=Range("Test!$A$1")) _
        .QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("""AVOIR""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = Chemin2 + "DATABASE AVOIR.odc"
        .ListObject.DisplayName = "Tableau_DATABASE_AVOIR"
        .Refresh BackgroundQuery:=False
    End With

avec Chemin1 le chemin de complet de la base - "C:\Users\.....\DATABASE"

Je ne pense pas que cela soit académique.... mais ça marche y compris avec les tables ALIAS.