Discussion :

[fretydidier]

Bonjour à tous,

J'ai développé un code avec du sql pour récupérer des données sur un fichier .csv.
Je l'ai testé sur mon poste, ça marche, j'ai un 2ème poste avec une install standard de l'entreprise... ça marche aussi.
J'ai des utilisateurs en test...ça marche toujours.
Aujourd'hui même fichier excel, même source .csv.
Un utilisateur signale "erreur Générale ODBC"
J'ai vérifié les références sur son poste, pas de "manquant"

Auriez vous une idée???
Peut être les driver utilisés?
J'ai déjà dû modifier le code car auparavant j'avais cette erreur car le driver était celui d'access et les utilisateurs n'ont pas forcément access d'installé.
Aurais-je manqué quelque chose à propos du TEXT DRIVER?

OS COURS !!!!!

Note: Le SQL utilise des variables, mais dans tous les autres tests cela fonctionne

voici un extrait du code:

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
23
24
    With Sheets("TOT CIQ").QueryTables
         .Add(Connection:="ODBC;DBQ=" & chemin & ";DefaultDir=" & chemin & ";Driver={Microsoft Text driver(*.txt;.csv)};DriverId=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;", Destination:=Sheets("TOT CIQ").Range("A1"))
 
   .CommandText = "SELECT  `" & nom_fichier_ciq & "`.`Order Code`, `" & nom_fichier_ciq & "`.`Invoice Number`, `" & nom_fichier_ciq & "`.`Debit/Credit`, `" & nom_fichier_ciq & "`.Status, `" & nom_fichier_ciq & "`.Consignor, `" & nom_fichier_ciq & "`.`CC Number`, `" & nom_fichier_ciq & "`.`Invoicee Party Name-1`, " _
        & "`" & nom_fichier_ciq & "`.`Number of Packages`, `" & nom_fichier_ciq & "`.`Net Total Amount`, `" & nom_fichier_ciq & "`.`Total Gross Weight`, `" & nom_fichier_ciq & "`.`Total Loading Meters`, `" & nom_fichier_ciq & "`.`Total Volume`," _
        & " `" & nom_fichier_ciq & "`.`Payable Weight`, `" & nom_fichier_ciq & "`.`Consignor Party Name-1`,`" & nom_fichier_ciq & "`.`Consignor Country`, `" & nom_fichier_ciq & "`.`Consignor Postcode`, `" & nom_fichier_ciq & "`.`Consignor Locality`," _
        & " `" & nom_fichier_ciq & "`.`Consignor Reference CUS`, `" & nom_fichier_ciq & "`.`Consignee Party Name-1`, `" & nom_fichier_ciq & "`.`Consignee Country`, `" & nom_fichier_ciq & "`.`Consignee Postcode`, `" & nom_fichier_ciq & "`.`Consignee Locality`, `" & nom_fichier_ciq & "`.`Transport Terms Set Code`" _
        & Chr(13) & "" & Chr(10) & "FROM `" & nom_fichier_ciq & ".csv` `" & nom_fichier_ciq & "`" & Chr(13) & "" & Chr(10) & "WHERE " & SQL_select_comptes
 
        .Name = "Lancer la requête à partir de CS"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .Refresh BackgroundQuery:=False
 
    End With

[Gebus]

Bonjour,

Je me trouve dans le même cas que vous.

Un script qui tourne sur un poste en 2007 SP3 et qui lance un "Erreur générale ODB" sur une autre...

Cela fait un an à présent mais avez-vous réussi à débrouiller ce "problème" ?

Cdt