Re : Créer lien relatif ACCESS--> Excel
Voici la macro que j'ai faite en mode enregistrement:
Sub Import()
'
' Import Macro
' Macro enregistrée le 08/01/2009 par ebbz877
'
'
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=D:\documents and Settings\ebbz877\Desktop\Nouveau dossier\bd1.mdb;DefaultDir=D:\documents and Settin" _
), Array( _
"gs\ebbz877\Desktop\Nouveau dossier;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Requête1.RC, Requête1.`Ref Logistique`, Requête1.`Market application`, Requête1.Range, Requête1.Brand, Requête1.`Product name`, Requête1.`Technical platform`, Requête1.`Toggle colour`, Requête1" _
, _
".`Handle colour`, Requête1.`Color of case`, Requête1.`Local indicator`, Requête1.Status, Requête1.Version, Requête1.`DUG DCA`, Requête1.NbPoles, Requête1.Calibre, Requête1.Tension, Requête1.`Width (mm" _
, _
")`, Requête1.`Date suppression`, Requête1.FA" & Chr(13) & "" & Chr(10) & "FROM `D:\documents and Settings\ebbz877\Desktop\Nouveau dossier\bd1`.Requête1 Requête1" _
)
.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 = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Si kkun peut m'aider pour me dire ce que je doit changer pour que le lien soit en relatif, je débute et j'ai bcp de mal... Merci encore pour tout