Ouvrir un fichier excel depuis access

Bonjour,
Je suis sous la fenètre de générateur de script de Access et je souhaiterais, que lorsque ce code s'execute (sur un clique), un fichier excel qui existe déjà s'ouvre! Pour cela j'ai tapé ce code :

Code:

---

workbooks.Open Filename:="\\Neptune\*******\******\OLGA\Visualisation.xls"

---

Seulement voilà, il me met une erreure :furax:! Est ce que quelqu'un peut me dire pourquoi?
Merci! :bebe:

Salut,

Citation:

---

Envoyé par ptitegrenouille

Seulement voilà, il me met une erreure :furax:! Est ce que quelqu'un peut me dire pourquoi?
Merci! :bebe:

---

Oui, on pourrait te dire pourquoi si au moins on avait l'erreur qui est affichée :wink:

@+

Désolée l'erreur est :
Erreur d'execution '424':
objet requis

Voilà si ca peut aider!

Et ca plante sur la ligne ?

Code:

---

1 2	workbooks.Open filename:="\\Neptune\*******\******\OLGA\Visualisation.xls"

---

Si tu pouvais mettre un peu plus de code (avec les balises :wink: ), ca aiderait aussi.

Tu n'as pas oublié d'ajouter dans Access les références à Microsoft Excel ... ?

Ben en faite j'ai que ca comme code! :oops:
Puis pour ce qui est de rajouter Access dans les références à Excel, c'est fait car mon fichier excel contient un tableau croisé dynamique basé sur une requête appelant des données Access. :)

Salut,

Citation:

---

Envoyé par ptitegrenouille

Puis pour ce qui est de rajouter Access dans les références à Excel ...

---

Ce ne serait pas l'inverse ?
Tu travailles à partir d'Access donc il te faut rajouter les références à Excel dans ton module, non ?

@+

Alors, j'ai rajouté Microsoft Excel dans les références, mais maintenant il ne me fait plus rien! Au secours, j'en ai marre! :furax:

Citation:

---

Envoyé par ptitegrenouille

Alors, j'ai rajouté Microsoft Excel dans les références, mais maintenant il ne me fait plus rien! Au secours, j'en ai marre! :furax:

---

Plus de message d'erreur, c'est plutot bon signe, non :D ?

Voici un exemple de code qui ouvre Excel et ouvre un classeur.
Sur une des feuilles du classeur, il affiche le contenu d'une cellule dans la fenetre execution.

Tu insères le code dans un nouveau module de ta BDD Access.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Test()   Dim Xl As Excel.Application Dim Classeur As Excel.Workbook Dim Feuille As Excel.Worksheet   'Ouvre Excel et le Set Xl = New Excel.Application Xl.Visible = True Set Classeur = Xl.Workbooks.Open("P:\**\**\**\Divers\Macros_Excel.xls") Set Feuille = Classeur.Worksheets("Feuil3")   Debug.Print Feuille.Range("C1")   Classeur.Close False Xl.Quit     End Sub

---

Merci beaucoup! :merci: Encore une question aprés promis je dit plus rien! Le :

Citation:

---

Dim Xl As Excel.Application

---

Il sert à quoi? Je comprend pas ce que c'est! :oops:
C'est à moi de le définir? non? :?
Merci pour votre patience!

Je suppose que ca marche alors.

Dim Xl As Excel.Application déclare une variable (Xl) de type objet Application qui représente l'application Microsoft Excel.

Tu n'as pas besoin de le définir

Code:

---

1 2 3

Set Xl = New Excel.Application Xl.Visible = True

---

=> crée un nouvel objet (Xl) Excel et le rend visible. Ca te permet d'ouvrir Excel.

Code:

---

1 2	Set Classeur = Xl.Workbooks.Open("P:\**\**\**\Divers\Macros_Excel.xls")

---

=> te permet de charger dans Excel (que tu viens d'ouvrir) le classeur Macros_Excel.xls

J'espère que c'est un peu plus clair.

@+

Oui merci c'est plus clair! Mais en faite je pensais qu'il fallait le définir car c'est ce qu'il me dit : "Type défini par l'utilisateur non défini" 8O
lol tant pis laissez tomber je vais trouver une autre solution ca commence à me gonfler!

Il te dit "Type défini par l'utilisateur non défini" sur la ligne Dim Xl as Excel.Application parce qu'il manque une référence dans ton module a Excel (Microsoft Excel ....).

C'est tout.