Discussion :

[Sebastien_INR59]

Bonjour,

J'ouvre une feuille Excel à partir d'Access

Code :

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

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

[polo(31)]

essai de rajouter un "close" ou "quitt" avant ton "nothing"

[stéphane_ais2]

Bonjour,

Je pense qu'il faut quitter l'application :

Code :

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

1
2
 
vApplicationExcel.Quit

...

SE

[polo(31)]

faut il obligatoirement

Code :

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

 Set vApplicationExcel = Nothing

apré un quit ou close?

[stéphane_ais2]

faut il obligatoirement

Code :

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

 Set vApplicationExcel = Nothing

apré un quit ou close?

Non mais c'est mieux avec...

SE

[polo(31)]

merci. (il me semblait bien l'avoir lue dans un livre)

[polo(31)]

penser au TAG RESOLU
(je sais je suis chiant mais c'est pratique pour ceux qui essai de répondre au question)

[Sebastien_INR59]

Donc j'ai bien rajouté :

vApplicationExcel.Quit

Cependant MS Access ouvre et ferme directement ma fenêtre

[polo(31)]

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

[Sebastien_INR59]

oK

Code :

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

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

[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

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

[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é?)