Liaison excel access

[nemo89]

Bonjour,

j'ai un petit souci concernant l'importation de données Access vers Excel.
Au début j'avais utilisé "data/import external Data" et ça marchait bien. Puis je me suis rendue compte que ça ne pouvait pas marcher dans un autre poste, j'ai donc eu l'idée d'enregistrer une macro, puis de changer les chemins absolue par des chemins relatifs, ça non plus ne marchait pas, j'ai donc essayer de definir une variable chemin :

chemin = ActiveWorkbook.Path

mais la aussi même problème
pourriez-vous m'aider svp à importer de la requête
qry_employesALGERIE vers la feuille NPO_Algerie
et qry_employesTUNISIE vers la feuille NPO_Tunisie
et qry_employesMaroc vers la feuille NPO_Maroc

voila la macro utilisée

Sub BaseMaroc()
chemin = ActiveWorkbook.Path

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=" & chemin & "\Gestion Absence.mdb;DefaultDir=" & chemin & "\Projet NSN;D" _
        ), Array("riverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
        Destination:=Range("A6"))
        .CommandText = Array( _
        "SELECT qry_employesMAROC.Service, qry_employesMAROC.DR, qry_employesMAROC.Nom, qry_employesMAROC.Prenom" & Chr(13) & "" & Chr(10) & "FROM `" & chemin & "\Gestion Absence`.qry_employesMAROC qry_employ" _
        , "esMAROC")
        .Name = "Query from MS Access Database_1"
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = True
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

et que j'au appelé dans chaque feuille

Private Sub Worksheet_Open()
Call BaseMaroc
End Sub
End Sub

mais ça ne fait pas exactement ce à quoi je m'attendais
j'espère avoir donné suffisamment de détails
Merci de me lire !!
Cordialement