Ouvrir un fichier Excel à partir de Access

La commande Shell peut faire ça:

X = Shell ( "CheminDeLExécutable Chemin du fichierAOuvrir")

salut,

tu peux aussi essayer en créant une instance Excel avec le code ci-dessous (il faut que Excel soit référencé dans Access, mais comme je n'ai plus Access sur mon poste, je ne vais pas pouvoir te dire exactement comment faire. Regarde dans le menu Outils/Référence de l'éditeur VBA)

Sub LiaisonEXCEL()
Dim XL As Excel.Application
Dim WB As Excel.Workbook

On Error GoTo Err_test

' utilisation d'une instance EXCEL existante
Set XL = GetObject(, "Excel.Application")
XL.Workbooks.Add

Set WB = XL.ActiveWorkbook

' mets ici ton code

Set XL = Nothing: Set WB = Nothing
Exit Sub

Err_test:
If Err = 429 Then
' création d'une instance EXCEL
Set XL = GetObject("", "Excel.Application")
Resume Next
Else
MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical, ActiveDocument.Name
Resume
End If
Set XL = Nothing: Set WB = Nothing
End Sub

A+,
Kobaya.

Je dois préciser que ce code est issu de Word.
Donc remplace :

MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical, ActiveDocument.Name

par

MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical

A+,
Kobaya.