Erreur Générale ODBC sur .Refresh BackgroundQuery:=False

[mikael2235]

Bonjour,

J'utilise une macro VBA dans excel qui m'actualise une feuille en faisant une requete sql dans une base access.
J'ai constaté que si ma base de données access est ouverte au moment de l'execution de la macro, j'ai l'erreur suivante : Erreur générale ODBC, qui me renvoie à cette ligne .Refresh BackgroundQuery:=False

Voici ce que j'ai fait :
Données/Données Externe/Créer une requete/MS Access Database/Selection de la base/

Pourtant quand j'ai crée ma requete, j'ai bien coché "Read Only", mais je ne le vois pas dans mon code VBA ???
Savez vous a quoi sert la case à cocher "Exclusive"

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=W:\Engineering\ICP process PFM list.mdb;DefaultDir=W:\Services\Proce" _
        ), Array( _
        "\Engineering;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT PFM.PFM, PFM.`Mod tape`, PFM.`D wafer`, PFM.`DB Program`, PFM.`Map orientation D11/D6`, PFM.`Colle Die Attach`, PFM.`Rubber Tip`, PFM.Needle, PFM.Nozzle, PFM.`Size A  (CH)`, PFM.`DB SPC Prg`, P" _
        , _
        "FM.`Fil de cablage`, PFM.`WB Program D25µm`, PFM.`WB Program`, PFM.Capillaire, PFM.`WB Down Holder`, PFM.`Size B  (LH) D25µm`, PFM.`Average size B (LH)`, PFM.`Tolerance size B`, PFM.`WB SPC Prg D25µm`" _
        , _
        ", PFM.`WB SPC Prg`, PFM.`Encap Techno`, PFM.Resin, PFM.`Dam Program`, PFM.`Fill Program`, PFM.`Nozzle Plate`, PFM.`TI2260 Program`, PFM.`Size C  (MH)`, PFM.`D&F Drawing`, PFM.`Adhesif LAM`, PFM.`Progr" _
        , _
        "amme LAM`, PFM.`Vision LAM`, PFM.`Punch LAM`, PFM.`Plaque Press LAM`, PFM.`Temperature LAM`, PFM.`Temps LAM`, PFM.`Programme LIL`, PFM.`Punch LIL`, PFM.`Plaque Press LIL`, PFM.`Temperature LIL`, PFM.`" _
        , "Temps LIL`, PFM.`TH Punch tool`" & Chr(13) & "" & Chr(10) & "FROM PFM PFM" & Chr(13) & "" & Chr(10) & "ORDER BY PFM.PFM DESC")
        .Name = "Lancer la requête à partir de 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:=False        <---- LIGNE D'ERREUR
    End With

Merci. Mikael