Discussion :

[spaiku]

Bonjour,

après avoir longuement erré sur les forums et fait de multiples tests, j'ai trouvé une solution au problème suivant : j'importe un fichier Excel dans Access (entre autres avec un objet Excel.Application nommé xlApp). Après les lignes :

Code :

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

1
2
xlApp.Quit
set xlApp = Nothing

un processus Excel demeurait dans la liste des gestionnaire de tâches, ce qui occasionnait des plantages plus loin dans le code.

J'ai constaté que le problème venait de la manière dont était instancié mon objet Application :le problème a été résolu en remplaçant

Code :

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

Dim xlApp As New Excel.Application

par

Code :

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

1
2
dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

Je pensais que les deux étaient équivalents. Quelqu'un saurait-il me dire pourquoi il n'en est rien ?

Merci d'avance.

[spaiku]

Au temps pour moi, grosse bêtise : les deux modes d'instanciation ne créent pas de différences sur la gestion des processus.

M'étant aperçu de cela, j'ai creusé la question, et j'ai constaté que le processus Excel restait actif à partir du moment où j'utilisais un transferSpreadSheet avant de fermer le WorkBook.

En clair, la séquence :
1) Ouverture du classeur
2) TransferSpreadSheet
3) Fermeture du classeur
4) Libération des objets
laisse un processus Excel actif.

La séquence :
1) Ouverture du classeur
2) Fermeture du classeur
3) TransferSpreadSheet
4) Libération des objets
ferme le processus.

J'espère que cette constatation permettra d'aider d'autres utilisateurs. Quant à moi, il me reste une question : pourquoi ces deux séquences aboutissent-elles à des résultats différents ?

Si quelqu'un peut éclairer ma lanterne, je lui offrirai... mon éternelle gratitude.

[cafeine]

Hello,

pourquoi ouvrir Excel pour faire un transferspreadsheet ?

[cristof56]

Salut,

Je suis d'accord avec cafeine , ça ne sert à rien d'ouvrir le classeur.

Par contre, je voudrais supprimer une feuille, quelqu'un aurait une idée?

Merci

[willcartley]

Salut,

Je suis d'accord avec cafeine , ça ne sert à rien d'ouvrir le classeur.

Par contre, je voudrais supprimer une feuille, quelqu'un aurait une idée?

Merci

Tu devrais créer un autre post je pense...
ou essayer la methode "delete"

[spaiku]

Bonjour à tous,

dans ma fonction, je commence par ouvrir le fichier Excel pour y réaliser un certain nombre de traitements : vérification et modification des informations contenues dans le fichier. Un fois le fichier vérifié, on l'importe.

On pourrait importer le fichier tel quel et faire toutes les vérifs sur la table importée, mais le but est de conserver les modifications dans le fichier Excel. Je pourrais aussi importer le fichier, faire les modifs et le réexporter ensuite.

Quoi qu'il en soit, mon problème est résolu, dans la mesure où j'arrive à fermer proprement le processus, mais j'attends un peu pour taguer le sujet de voir si quelqu'un a une idée sur cette histoire de transferspreadsheet et ses conséquences sur les processus.

Au fait, Cafeine, merci infiniment pour tes diverses contributions sur developpez.com. Je suis un fan

[Jack78960]

Salut,
Lorsque tu exécutes l'instruction

Code :

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

Dim xlApp As New Excel.Application

tu as dû au paravant créer un lien avec la bibliothèque D'Excel au VBA Access par les menus de l'interface VBA

• "Outils"
• "Références"

Se faisant tu as lié les deux "VBA" entre eux.

Lorque que tu fais l'intruction

Code :

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

1
2
dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

tu va cherche dans le registre de Windows la bibliothèque d'Excel que tu lies avec le programme que tu exécutes . Lorque tu sors de ce programme, ce lien disparait . Ce n'est pas le cas dans la première écritures ==> D'où les petites dirfférences de comportement.
La deuxiéme différence c'est que CreateObject crée une nouvelle occurence d'excel , alors que "dim New" exécute l'équivalent de la méthode GetObject qui permet d'obtenir un lien avec l'application appelé si elle est déjà chargé en mémoire; si ce n'est pas le cas "dim New" exécute l 'équivallent de CreateObject.
Quand tu exécutes directement CreateObject, tu forces l'ouverture d'une nouvelle occurence de l'objet Excel.

J'espère que mon explication te satisfera.

De toutes façons, l'utilisation de CreateObject Et Getobject, facilite grandement l'installation de son application sur un autre poste client.

[spaiku]

Ok, c'est très clair. Merci pour ces explications.