Discussion :

[Pifton]

Bonjour,
J'ai épluché pleins de pages pour essayer de trouver la solution sans succes. Je m'en remets donc a vous:
Je souhaite copie une table depuis Microsoft Access vers Excel 2003 et je recois un message d'erreur: "Run-time Error '1004': General ODBC Error
Il s'arrete a la ligne suivante: .Refresh BackgroundQuery:=True

Et voila le 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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub GetDataTechSupport()
 
 
    Sheets("Data").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Dim SelectionSql, Orderby As String
 
    SelectionSql = "`Export Tech Support`.Week, "
    SelectionSql = SelectionSql & "`Export Tech Support`.Date_,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Hours,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Initial_,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Activity,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Costs_Incurred,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Miles,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Project_Name,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Project_Number,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Category,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Client_No,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Xcharge_Recipient,"
    SelectionSql = SelectionSql & "`Export Tech Support`.RateHours,"
    SelectionSql = SelectionSql & "`Export Tech Support`.ID_ProdClass,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Compensation_Event,"
    SelectionSql = SelectionSql & "`Export Tech Support`.Mats_Labour_Commitment"
 
    Orderby = "ORDER BY `Export Tech Support`.Project_Name, `Export Tech Support`.Date_"
 
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC; DSN=MS Access Database; DBQ=" & PathMasterDB & ";DefaultDir=" & DirMasterDB & ";DriverId=25;FIL=MS Access;Max" _
        ), Array("BufferSize=2048;PageTimeout=5;;UID=admin;")), Destination:=Range( _
        "A1"))
        .CommandText = Array( _
        "SELECT    Selection" & Chr(13) & "" & Chr(10) & "FROM `" & PathMasterDB & "`.`Export Tech Support` `Export Tech Support`" & Chr(13) & "" & Chr(10) & Orderby)
        .Name = "Query from MS Access Database"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=True
    End With
 
    Sheets("Main").Select
    Range("A1").Select
 
End Sub

Quelqu'un peut-il me donne une idée pour que je puisse avancer car là je suis bloqué...

Merci d'avance

[kiki29]

Salut, voir dans la FAQ
Pour la Table cela sera [Export Tech Support] et non `Export Tech Support`

[Pifton]

C'est tres surprenant car la fonction querytable a deja fonctionné avec des quotes mais les crochets semblent avoir retiré un probleme en tout cas car le message d'erreur a changer
------> "Incomplete datasource" j'ai verifié et la requete me semble correcte.
Je vais surement utiliser la methode par ADO a la place