Dans mon appli Access, je crée un objet Excel pour remplir ce fichier Excel
avec des données venant d'Access.
J'ai le code suivant :
Dim xls As Excel.Application
...
Set xls = Excel.Application
xls.Visible = False
...
Traitement
...
xls.Application.Quit
Set xls = Nothing
Tout fonctionne bien, seul problème à la fin du traitement, le processus
Excel est toujours là et donc si on clique sur un fichier Excel pour l'ouvrir
cela ne marche pas.
Il faut aller killer le processus qui tourne.
Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus ne
tourne plus ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
essaie cette formule: Dim xL_App As New Excel.Application xlApp.Visible = False With xlApp ' Code pour automatiser Excel ici. End With xlApp.Quit Set xlApp = Nothing
ça devrait faire. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les premiers inscrits ! http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"Isa" a écrit dans le message de news:
| Bonjour, | | Dans mon appli Access, je crée un objet Excel pour remplir ce fichier Excel | avec des données venant d'Access. | J'ai le code suivant : | | Dim xls As Excel.Application | ... | | Set xls = Excel.Application | xls.Visible = False | ... | Traitement | ... | xls.Application.Quit | Set xls = Nothing | | Tout fonctionne bien, seul problème à la fin du traitement, le processus | Excel est toujours là et donc si on clique sur un fichier Excel pour l'ouvrir | cela ne marche pas. | Il faut aller killer le processus qui tourne. | | Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus ne | tourne plus ? | | D'avance merci de vos réponses.
Bonsoir.
essaie cette formule:
Dim xL_App As New Excel.Application
xlApp.Visible = False
With xlApp
' Code pour automatiser Excel ici.
End With
xlApp.Quit
Set xlApp = Nothing
ça devrait faire.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"Isa" <Isa@discussions.microsoft.com> a écrit dans le message de news:
792B6789-88F8-495A-9728-A982CBCF7ADB@microsoft.com...
| Bonjour,
|
| Dans mon appli Access, je crée un objet Excel pour remplir ce fichier
Excel
| avec des données venant d'Access.
| J'ai le code suivant :
|
| Dim xls As Excel.Application
| ...
|
| Set xls = Excel.Application
| xls.Visible = False
| ...
| Traitement
| ...
| xls.Application.Quit
| Set xls = Nothing
|
| Tout fonctionne bien, seul problème à la fin du traitement, le processus
| Excel est toujours là et donc si on clique sur un fichier Excel pour
l'ouvrir
| cela ne marche pas.
| Il faut aller killer le processus qui tourne.
|
| Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus
ne
| tourne plus ?
|
| D'avance merci de vos réponses.
essaie cette formule: Dim xL_App As New Excel.Application xlApp.Visible = False With xlApp ' Code pour automatiser Excel ici. End With xlApp.Quit Set xlApp = Nothing
ça devrait faire. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les premiers inscrits ! http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"Isa" a écrit dans le message de news:
| Bonjour, | | Dans mon appli Access, je crée un objet Excel pour remplir ce fichier Excel | avec des données venant d'Access. | J'ai le code suivant : | | Dim xls As Excel.Application | ... | | Set xls = Excel.Application | xls.Visible = False | ... | Traitement | ... | xls.Application.Quit | Set xls = Nothing | | Tout fonctionne bien, seul problème à la fin du traitement, le processus | Excel est toujours là et donc si on clique sur un fichier Excel pour l'ouvrir | cela ne marche pas. | Il faut aller killer le processus qui tourne. | | Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus ne | tourne plus ? | | D'avance merci de vos réponses.
Isa
Merci beaucoup Raymond, tu m'enlèves une belle épine du pied et j'ai bien compris mon erreur.
Isa.
Bonsoir.
essaie cette formule: Dim xL_App As New Excel.Application xlApp.Visible = False With xlApp ' Code pour automatiser Excel ici. End With xlApp.Quit Set xlApp = Nothing
ça devrait faire. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les premiers inscrits ! http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"Isa" a écrit dans le message de news:
| Bonjour, | | Dans mon appli Access, je crée un objet Excel pour remplir ce fichier Excel | avec des données venant d'Access. | J'ai le code suivant : | | Dim xls As Excel.Application | ... | | Set xls = Excel.Application | xls.Visible = False | ... | Traitement | ... | xls.Application.Quit | Set xls = Nothing | | Tout fonctionne bien, seul problème à la fin du traitement, le processus | Excel est toujours là et donc si on clique sur un fichier Excel pour l'ouvrir | cela ne marche pas. | Il faut aller killer le processus qui tourne. | | Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus ne | tourne plus ? | | D'avance merci de vos réponses.
Merci beaucoup Raymond, tu m'enlèves une belle épine du pied et j'ai bien
compris mon erreur.
Isa.
Bonsoir.
essaie cette formule:
Dim xL_App As New Excel.Application
xlApp.Visible = False
With xlApp
' Code pour automatiser Excel ici.
End With
xlApp.Quit
Set xlApp = Nothing
ça devrait faire.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"Isa" <Isa@discussions.microsoft.com> a écrit dans le message de news:
792B6789-88F8-495A-9728-A982CBCF7ADB@microsoft.com...
| Bonjour,
|
| Dans mon appli Access, je crée un objet Excel pour remplir ce fichier
Excel
| avec des données venant d'Access.
| J'ai le code suivant :
|
| Dim xls As Excel.Application
| ...
|
| Set xls = Excel.Application
| xls.Visible = False
| ...
| Traitement
| ...
| xls.Application.Quit
| Set xls = Nothing
|
| Tout fonctionne bien, seul problème à la fin du traitement, le processus
| Excel est toujours là et donc si on clique sur un fichier Excel pour
l'ouvrir
| cela ne marche pas.
| Il faut aller killer le processus qui tourne.
|
| Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus
ne
| tourne plus ?
|
| D'avance merci de vos réponses.
Merci beaucoup Raymond, tu m'enlèves une belle épine du pied et j'ai bien compris mon erreur.
Isa.
Bonsoir.
essaie cette formule: Dim xL_App As New Excel.Application xlApp.Visible = False With xlApp ' Code pour automatiser Excel ici. End With xlApp.Quit Set xlApp = Nothing
ça devrait faire. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les premiers inscrits ! http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"Isa" a écrit dans le message de news:
| Bonjour, | | Dans mon appli Access, je crée un objet Excel pour remplir ce fichier Excel | avec des données venant d'Access. | J'ai le code suivant : | | Dim xls As Excel.Application | ... | | Set xls = Excel.Application | xls.Visible = False | ... | Traitement | ... | xls.Application.Quit | Set xls = Nothing | | Tout fonctionne bien, seul problème à la fin du traitement, le processus | Excel est toujours là et donc si on clique sur un fichier Excel pour l'ouvrir | cela ne marche pas. | Il faut aller killer le processus qui tourne. | | Auriez-vous une idée de ce que j'ai oublié de faire pour que le processus ne | tourne plus ? | | D'avance merci de vos réponses.