ouverture d'une feuille Excel

Version imprimable

Bonjour,

J'ouvre une feuille Excel à partir d'Access
Code:

1 2 3 4 5 6 7 8 9 Dim vApplicationExcel As Excel.Application Dim vClasseurExcel As New Workbook Set vApplicationExcel = CreateObject("Excel.application") Set vClasseurExcel = vApplicationExcel.Workbooks.Open(CurrentProject.Path & "\Synthese.xls") vClasseurExcel.Application.Visible = True Set vClasseurExcel = Nothing Set vApplicationExcel = Nothing
Cependant lorsque j' essaye de fermer la feuille Excel, elle se ferme (la fenetre uniquement) mais je vois dans le gestionnaire des taches que Excel continu de tourner ce qui m'empêche par exemple de pouvoir réouvrir la feuille en mode écriture.

Ai-je oublié quelque chose dans mon code ?

Cordialement.
Sébastien

23/06/2006, 10h00
polo(31)

essai de rajouter un "close" ou "quitt" avant ton "nothing"
23/06/2006, 10h01
stéphane_ais2
Bonjour,

Je pense qu'il faut quitter l'application :
Code:

1 2 vApplicationExcel.Quit
...

SE
23/06/2006, 10h03
polo(31)

faut il obligatoirement

Code:

Set vApplicationExcel = Nothing

apré un quit ou close?
23/06/2006, 10h04
stéphane_ais2

Citation:

Envoyé par polo(31)

faut il obligatoirement

Code:

Set vApplicationExcel = Nothing

apré un quit ou close?

Non mais c'est mieux avec...;)

SE
23/06/2006, 10h05
polo(31)

merci. (il me semblait bien l'avoir lue dans un livre)
23/06/2006, 10h19
polo(31)

penser au TAG RESOLU
(je sais je suis chiant mais c'est pratique pour ceux qui essai de répondre au question)
23/06/2006, 10h23
Sebastien_INR59

Donc j'ai bien rajouté :

vApplicationExcel.Quit

Cependant MS Access ouvre et ferme directement ma fenêtre :cry:
23/06/2006, 10h30
polo(31)

peu tu afficher le code complet (open a close) stp!

oK ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
' Ouverture du fichier Excel : Synthese
Dim vApplicationExcel As Excel.Application
Dim vClasseurExcel As New Workbook
Set vApplicationExcel = CreateObject("Excel.application")
Set vClasseurExcel = vApplicationExcel.Workbooks.Open(CurrentProject.Path & "\Synthese.xls")
 
' ici j'envoi des contenus de variables d'Access dans des cellules de Excel
'... 
 
vClasseurExcel.Application.Visible = True
vApplicationExcel.Quit
Set vClasseurExcel = Nothing
Set vApplicationExcel = Nothing

23/06/2006, 10h35
polo(31)

dans se post il y a peut-etre la solution a ton probléme
http://www.developpez.net/forums/sho...d.php?t=168184
23/06/2006, 10h46
Sebastien_INR59

Ca ne correspond pas (merci quand même ;) ) car dans ce post, on exporte des données Excel vers Access sans ouvrir le fichier Excel.

Or je souhaite ouvrir le fichier Excel afin d'y récupérer des données d'Access. Jusque là tout va bien mais lorsque je ferme ce fichier excel (avec la croix en haut à droite d'Excel) Excel n'est plus visible mais tourne quand même.
23/06/2006, 11h34
polo(31)

essai peut-étre de rajouté une tempo aprés avoir récupéré tes données (ça ne va pas résoudre ton probléme mais peut -étre aidé a le localisé?)