VBA ACCESS ouverture d'un fichier excel
Fermé
glaya
Messages postés
2
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
16 septembre 2003
-
16 sept. 2003 à 11:37
VBA Beginner XX - 17 juin 2016 à 16:47
VBA Beginner XX - 17 juin 2016 à 16:47
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
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
A voir également:
- Vba ouvrir un fichier excel
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier 7z - Guide
7 réponses
michelh
Messages postés
16
Date d'inscription
mardi 9 septembre 2003
Statut
Membre
Dernière intervention
12 mars 2005
25
20 oct. 2003 à 18:09
20 oct. 2003 à 18:09
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
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
glaya
Messages postés
2
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
16 septembre 2003
2
16 sept. 2003 à 16:19
16 sept. 2003 à 16:19
Merci pour ton aide
ta réponse me sera bien utile
ta réponse me sera bien utile
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...
si qqn a une idée ?
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 ?
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
24 août 2011 à 18:51
24 août 2011 à 18:51
Bonjour,
Voilà une méthode qui peut être utilisée :
Ne pas oublier de référencer : Microsoft Excel xx.x Object Library dans Outils > Références ...
;o)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michelh
Messages postés
16
Date d'inscription
mardi 9 septembre 2003
Statut
Membre
Dernière intervention
12 mars 2005
25
16 sept. 2003 à 16:15
16 sept. 2003 à 16:15
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
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
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.
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.