Extraction de bases Hyperfile - Table Alias

Version imprimable

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 :aie:

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

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:

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

28/02/2014, 22h03
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
01/03/2014, 14h37
Marc-L

Bonjour, bonjour,

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

J'AI TROUVE LA SOLUTION. :lol:

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:

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. :P