VBA ACCESS ouverture d'un fichier excel

Pour répondre à Fred :
Il faut d’abord ajouter une référence à Excel pour disposer des objets d’Excel. Pour cela il faut ouvrir un module de code et ensuite utiliser le menu Outils, Références puis rechercher dans la liste : Microsoft Excel 8 (par exemple).

Ensuite, voici un exemple de code (du bouton cmdOpenExcel) :

Private Sub cmdOpenExcel_Click()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "c:\toto.xls"
xls.Visible = True
Exit Sub
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub

Merci pour ton aide
ta réponse me sera bien utile

Bonjour
Il y a moyen très simple: créer un bouton en utilisant l'assistant : c’est un bouton de la catégorie Application et l’action est Exécuter Microsoft Excel. L’assistant te créera le code pour ouvrir Excel.
Pour que l’assistant soit actif, il faut que le deuxième bouton de la barre d’outils soit enfoncé (celui après la flèche).
On peut évidemment faire beaucoup mieux en ouvrant un fichier donné ou en pilotant Excel depuis ACCESS par du code VBA. Cela s’appelle alors OLE Automation.

Bon courage
Michel

Bonjour,
Le sujet est ancien je ne sais pas si j'aurai une réponse.
Le code ci-dessus marche bien, sauf que ca m'ouvre 2 fois le fichier excel...

Private Sub Bascule65_Click()
    Dim xls As Excel.Application

On Error GoTo errHnd
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open "c:\AvisCom\Trimestriel.xls"
    xls.Workbooks("Trimestriel.xls").Sheets("Feuil2").Activate
    xls.Visible = True
    Exit Sub
errHnd:
    MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub

si qqn a une idée ?

Bonjour,

Voilà une méthode qui peut être utilisée :

Private Sub Bascule65_Click()

Dim xls As Excel.Application
    Dim wk As Excel.Workbook
    Dim ws As Excel.Worksheet

On Error GoTo errHnd
    Set xls = CreateObject("Excel.Application")
    Set wk = xls.Workbooks.Open("C:\AvisCom\Trimestriel.xls")
    Set ws = wk.Sheets("Feuil2")
    ws.Activate
    
    xls.Visible = True
    Exit Sub
errHnd:
    MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub

Ne pas oublier de référencer : Microsoft Excel xx.x Object Library dans Outils > Références ...

;o)

Ce code fonctionne tout aussi bien mais ça m'ouvre toujours 2 fois le fichier excel.

En fait le problème vient du fait que j'utilisais l'évènement sur clic du bouton bascule. En utilisant l'évènement 'Sur souris appuyé' ça ne s'ouvre qu'une seule fois.