Discussion :

[puledro]

Bonjour,

Je récupère depuis un formulaire un nom de fichier contenant une table. Il est stocké dans une TextBox nommée CheminFichier1. Dans ce même formulaire je renseigne 4 champs qui doivent me permettre de faire une requête depuis cette table. Il s'agit de la version, de l'année, du trimestre et du mois.

Ne sachant pas du tout comment coder tout celà, j'ai crée une macro en enregistrant une requête. L'idée étant ensuite d'y incorporer les variables de mon formulaire pour lancer la requête selon mon besoin.

Voilà ce que j'obtiens en ouvrant la macro que j'ai enregistrée :

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
25
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=Excel Files;DBQ=CheminFichier1;DefaultDir=D:\mgm\boyer\Mes docu" _
        ), Array( _
        "ments\user\GRTO;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT `GRTO#accdb`.DATA_VERSION, `GRTO#accdb`.Customer, `GRTO#accdb`.Description, `GRTO#accdb`.`Revenue (pondéré)`, `GRTO#accdb`.COGS, `GRTO#accdb`.`Opportunity number`, `GRTO#accdb`.`LN Number (OV L" _
        , _
        "N)`, `GRTO#accdb`.`Invoice/RR FY`, `GRTO#accdb`.`Invoice/RR Quarter`, `GRTO#accdb`.`Invoice/RR Month`, `GRTO#accdb`.Origin" & Chr(13) & "" & Chr(10) & "FROM `GRTO#accdb` `GRTO#accdb`" & Chr(13) & "" & Chr(10) & "WHERE (`GRTO#accdb`.DATA_VERSION='FORECAST')" _
        , " AND (`GRTO#accdb`.`Invoice/RR FY`='FY13')")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "Tableau1"
        .Refresh BackgroundQuery:=False
    End With

Ce n'est pas très exploitable et de plus j'obtiens une erreur :

"Erreur d'éxécution 1004"
"Erreur générale ODBC"

Merci pour votre aide.

[Daniel.C]

Bonjour,

Tu as vraiment enregistré ce qui suit ou c'est une erreur de retranscription ?

Code :

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

1
2
3
"ODBC;DSN=Excel Files;DBQ=CheminFichier1;DefaultDir=D:\mgm\boyer\Mes docu" _
), Array( _
"ments\user\GRTO;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _

Je pense que "Mes Documents" devrait être d'u seul tenant.

[puledro]

Bonjour,

J'ai vraiment enregistré celà et la synthaxe est bonne. Pas très beau mais ça marche. En fait, il ne reconnaît pas le nom du fichier : "CheminFichier1" dans le code. Quand j'écris le fichier en dur (D:\users\etc....), c'est bon.

CheminFichier1 correspond à la textbox de mon formulaire.