Discussion :

[ptitegrenouille]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[fr48545]

Salut,

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

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

@+

[ptitegrenouille]

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

Voilà si ca peut aider!

[fr48545]

Et ca plante sur la ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

[ptitegrenouille]

Ben en faite j'ai que ca comme code!
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.

[fr48545]

Salut,

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 ?

@+

[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!

[fr48545]

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!

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ptitegrenouille]

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

Dim Xl As Excel.Application

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

[fr48545]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

@+

[ptitegrenouille]

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"
lol tant pis laissez tomber je vais trouver une autre solution ca commence à me gonfler!

[fr48545]

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.