Discussion :

[romrai]

Salut à tous,

j ai un problème qui perdure déjà depuis un moment.

en fait je fais une importation d'une feuille excel sous access pour divers traitements (gestion des données). jusque là, tout va bien. mais lorsque l'exécution de mon application est terminée, il y a toujours le message suivant qui s'affiche "Fichier désormais disponible. Le fichier kujhgfsig.xls est à present disponible pour modification. Ouvrer le fichier en lecture-ecriture"; et ce malgré touts les systèmes de sauvegarde et de libération de la mémoire que j'ai faite.

je ne sais pas si l'un de vous a déjà rencontré ce type de problème?

Merci

[LedZeppII]

Bonsoir,

J'ai déjà vu quelque chose de similaire.
Dans le gestionnaire de tâches, est-ce qu'il n'y a pas plusieurs EXCEL.EXE ?
Quelques fois des objets Excel.Application créés en VBA restent en mémoire.

A+

[romrai]

Salut,

je te remercie pour ta réponse, mais j'ai pas trouvé les points excel.exe. jne sais vraiment pas comment gerer ce problème.

si quelqu'un a une autre idée?

Merci d'avance

[LedZeppII]

Bonjour,

Peux-tu montrer la partie de ton code qui ouvre Excel et celle qui le ferme ?
Ce genre de message apparait quand un classeur est ouvert par plusieurs instances d'Excel (ou par plusieurs personnes).
Tu peux aussi essayer de l'ouvrir en lecture seule.

A+

[romrai]

merci encore pour ton aide:

ok! je t'apporte plus de descriptif. donc:

1/ j'importe mon fichier excel sous access, voici le bout de code:

Code :

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

1
2
3
4
Set Xlapp = CreateObject("Excel.Application")
Set XlBook = Xlapp.Workbooks.Open(Chemin_E) 'chemin_E est le chemin du fichier
Set XlSheet = XlBook.Worksheets(1)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Tab_Etat, Chemin_E, True

2/ je le traite: j'extrait un certains nombre de données par les des requêtes

3/le resultat de ma requête est ensuite exporter vers excel pour être exploité:

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ZINSTALNF", Chemin_Etat & Val_I & ".xls", False

4/je ferme mon application:

Code :

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

1
2
3
4
5
6
7
8
9
10
Set DB_Etat = Nothing
Xlapp.ActiveWorkbook.Save
Xlapp.ActiveWorkbook.Close True
 
'Désallocation de la mémoire
Xlapp.Quit
Set XlSheet = Nothing
Set XlBook = Nothing
Set Xlapp = Nothing
End Sub

donc voilà en gros la procédure que je suis

[LedZeppII]

Bonsoir,

J'ai testé ton code, et sur mon PC (XP+Office2000) l'objet Excel.Application reste en mémoire.
Si je l'exécute sans les DoCmd.TransferSpreadSheet, pas de problème.

A priori, je pense que tu n'as pas besoin de créer les objets Excel.Application, Excel.WorkBook et Excel.WorkSheet.
Les DoCmd.TransferSpreadSheet doivent suffire.
A moins que tu ne les utilises dans une autre partie du code.

Pour résumer :
- Si tu ne les utilises pas ailleur, n'utilise pas les objets Excel.
- Si tu les utilises ailleurs.
Essaie de faire le DoCmd.TransferSpreadSheet qui importe avant de créer Xlapp. Comme ça pas d'interférence.
Pour le DoCmd.TransferSpreadSheet qui exporte, je le ferai après la fermeture de Xlapp et la libération des objets.

Je n'ai pas d'explications, mais je crois qu'il y a plus ou moins un bug dans la fermeture d'objets comme Excel.Application et Word.Application.

J'espère que tu pourra t'en sortir.
A+

[romrai]

Salut,

Merci encore pour ton aide!

j'ai trouvé un moyen d'avoir accès aux données excels sans ouvrir le fichier, et pour l'instant ça a l'air de marcher. voici la syntaxe:

Code :

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

1
2
3
4
Dim Fs                         As FileSystemObject
Dim F                          As File
Set Fs = CreateObject("Scripting.fileSystemObject")
Set F = Fs.GetFile(Chemin_E)

sinon je vais également essayer ta méthode.
Merci encore