Bonjour à tous,
voici mon problème :
dans ma base de donnée j'aimerai ouvrir un fichier execl à partie d'un bouton
quel est le code qui me permet de faire cela
Merci de votre aide
Glaya
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
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
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.