Rechercher : dans
Par :

VBA ACCESS ouverture d'un fichier excel

Dernière réponse le 20 oct 2003 à 18:09:20 glaya, le 16 sep 2003 à 11:37:57 
 Signaler ce message aux modérateurs

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

1

michelh, le 16 sep 2003 à 16:15:10

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

Répondre à michelh

3

fred, le 20 oct 2003 à 14:25:54
  • +1

Oui ta démarche est bonne pour ouvrir un classeur excel mais comment faire pour ouvrir un fichier spécifique genre toto.xls à partir d'Access ?

Merci d'avance

fred

Répondre à fred

2

glaya, le 16 sep 2003 à 16:19:36

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

Répondre à glaya

4

 michelh, le 20 oct 2003 à 18:09:20
  • +2

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

Répondre à michelh
Collection CommentÇaMarche.net