Bonjour, j'ai enregistré une macro qui permet d'importer des données à partir d'un autre fichier excel. Mais par contre j'ai un problème avec la récupération du chemin du fichier excel. J'utilise "ActiveWorkbook.Path" mais cela ne fonctionne pas (surement un problème de syntaxe); voici le code
Et si vous avez une macro plus simple je suis preneur
Merci d'avance
Code:
Sub Import()
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=& ActiveWorkbook.Path & ""\Fichier test - A PLACER ICI\rubri" _
, _
"ques.xls;Mode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:" _
, _
"Database Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Gl" _
, _
"obal Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=Fa" _
, _
"lse;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("B2"))
.CommandType = xlCmdTable
.CommandText = Array("Sheet1$")
.Name = "rubr"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End SubEt si vous avez une macro plus simple je suis preneur
Merci d'avance