nemo89
XLDnaute Nouveau
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 :
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
et que j'au appelé dans chaque feuille
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
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 :
Code:
chemin = ActiveWorkbook.Pathmais 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
Code:
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
Code:
Private Sub Worksheet_Open()
Call BaseMaroc
End Sub
End Submais ça ne fait pas exactement ce à quoi je m'attendais
j'espère avoir donné suffisamment de détails
Merci de me lire !!
Cordialement