Discussion :

[beurnoir]

Bjr

Comment fermer un fichier Excel a partir d'access?

Merci

[GAGNON]

' Déclare une variable objet destinée à contenir la
' référence de l'objet. Dim as Object entraîne une
' liaison à l'exécution.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' Rend Excel visible au travers de l'objet Application.
ExcelSheet.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Enregistre la feuille dans le répertoire C:\test.xls.

ExcelSheet.SaveAs "C:\ TEST.XLS"
' Ferme Excel en appliquant la méthode Quit sur l'objet Application.

ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing

[beurnoir]

J'ai lancé ton code dans une macro il me créé une Feuil Excel Test mais il ne la supprime pas ou la ferme pas.

Dsl mais je comprends pas trop???

Merci

[GAGNON]

Chez moi tout se passe bien

Fermes complètement Excel et lance ta procédure en mode pas à pas pour voir où ça bloque.
8)

[beurnoir]

Qd je ferme tout et que je lance le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Macro4()
 
'Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' Rend Excel visible au travers de l'objet Application.
ExcelSheet.Application.Visible = True
' Place du texte dans la première cellule de la feuille.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Enregistre la feuille dans le répertoire C:\test.xls.
 
ExcelSheet.SaveAs "C:\Documents and Settings\pommbe01\Bureau\Classeur1.XLS"
' Ferme Excel en appliquant la méthode Quit sur l'objet Application.
 
ExcelSheet.Application.Quit
' Supprime la variable objet.
Set ExcelSheet = Nothing
 
End Function

J'obtiens la création d'un Classeur1 mais pas la suppresion ou la fermeture de ce fichier.

[GAGNON]

As-tu essayé:

Code :

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

ExcelSheet.SaveAs "C:\TestExcel.xls"

:

[beurnoir]

Oui et j'ai le meme probleme mais tu testes bien sur Access pas sur Excel?

[GAGNON]

Argh... sur Access bien sûr !!

mais de ton côté as-tu vérifié que le fichier étati bien créé, que tu avais tous les droits sur ce repertoire ... ?

chez moi tout est ok

[beurnoir]

Oui j'ai verifie et tout est ok.

Le pb vient peut etre de cette ligne de code :

Code :

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

ExcelSheet.SaveAs "C:\TestExcel.xls"

Tu sauves le fichier forcement on le retrouve a cet endroit apres.

Non?

[beurnoir]

J'ai le code suivant qui fonctionne mais qui ne supprime pas mon fichier Excel comment faire pour qu'il le fasse??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function test()
 
Dim appXl As Excel.Application
Set appXl = CreateObject("Excel.Application")
'Pour ne pas avoir d'avertissement si le fichier est déjà créé
    appXl.DisplayAlerts = False
 
    'Affiche (True) ou pas (False) la fenêtre Excel
    appXl.Visible = False
 
    appXl.AskToUpdateLinks = False
    appXl.Workbooks.Open Filename:="C:\Documents and Settings\pommbe01\Bureau\IMP"
 
appXl.ActiveWindow.Close
 
Set appXl = Nothing
 
End Function

[GAGNON]

j'ai du mal à cerner la problématique car comme je te l'ai dit ça marche impec chez moi.

En mode pas à pas, tu n'as pas d'erreur sur cette ligne ?

A la main arrives-tu à supprimer le fichier créer ?

Un Modérateur tout puissant pourrait-il aintervenir ?

[Arkham46]

J'ai le code suivant qui fonctionne mais qui ne supprime pas mon fichier Excel

Supprimer??
Qu'est ce que tu entends par supprimer? Y pas de code de suppression.

En tout cas tu demandes fermer uniquement la fenêtre active, donc ça dépend de ce qu'est la fenêtre active à ce moment.
Normalement tu demandes la fermeture du classeur, voir de l'application.

[beurnoir]

Voila ce que je veux c'est supprimer effectivement autant pour moi.

Mais si il n'y a pas de code pour le faire effectivement c'est mort.

En fait j'ai une macro qui exporte une table dans un fichier, ensuite quelque macros sur Excel et enfin importation vers Access.

Le probleme est que si je relance ma macro il me dit que mon fichier Excel est deja présent et bloque.

J'aimerai donc trouver un système pour la mise à jours de ce fichier Excel soit faite.

Merci

[Arkham46]

Mais si il n'y a pas de code pour le faire effectivement c'est mort.

Si si y a du code pour supprimer le fichier, mais ce que je voulais dire c'est que dans le code que tu utilises tu n'a pas mis de suppression du fichier.
Pour la suppression j'ai pas la commande en tête mais il y a une instruction pour le faire.

Sinon comme je te disais comme tu demandes la fermeture de la fenêtre active et que tu as des macros dans ta feuille excel, peut-être que la fenêtre qui est active au moment ou tu demandes sa fermeture c'est la fenêtre de confirmation d'activation des macros.
A vérifier peut-être en mettant la propriété visible de appXL à vrai pour voir ce qui passe.

[beurnoir]

Je connais l'action Supprimer Objet mais comment la faire fonctionner pour supprimer une feuil Excel?

[Arkham46]

il faudrait être un peu plus clair...

une fois tu parles de suppression de fichier, une fois de suppression de classeur, une fois de fermeture de fichier, ....

[GAGNON]

Moi je t'avais envoyé du code pour fermer le fichier, mais comme le dit
Arkham46 ton souhait évolue au fur et à mesure du post ...

Sois précis et nous pourrons t'aider, sinon ...

[beurnoir]

Ok alors ce que je veux ces les supprimer.

Merci

[cafeine]

Ok alors ce que je veux ces les supprimer.

Merci

supprimer quoi ?
. fichier ?
. feuille ?

Est-ce que c'est à nous de deviner ?

[beurnoir]

Alors je reprends dsl mais comme je travaille en parallele sur des macros j'oublié parfois ce que j'ai dit avant

Ce que je veux c'est a partir de macro d'access supprimer des fichiers Excel présent sur mon bureau.

Voila l j'espere que c'est plus clair.

Merci