Voila un exemple de code qui te transposera les données de la table1 du fichier original.mdb (fichier access) situé sur une disquette (A:\\)
With ActiveSheet.QueryTables.Add(Connection:= _
'ODBC;DSN=MS Access Database;DBQ=A:\\original.mdb';DefaultDir=A:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;' _
, Destination:=ActiveSheet.Range('A1'))
.Sql = Array( _
'SELECT table1.champ1, table1.champ2, table1.champ3' & 'FROM `A:\\original.mdb
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
remarque, ces données seront écrites sur la feuille active d'excel et situées à partir de la cellule A1, de plus les noms de champ seront également transcrits
Bon courage