Bjr
Comment fermer un fichier Excel a partir d'access?
Merci
Bjr
Comment fermer un fichier Excel a partir d'access?
Merci
' 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
La pensée n'est qu'un éclair au milieu de la nuit. Mais c'est cet éclair qui est tout.
Henri Poincaré
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
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)
La pensée n'est qu'un éclair au milieu de la nuit. Mais c'est cet éclair qui est tout.
Henri Poincaré
Qd je ferme tout et que je lance le code suivant :
J'obtiens la création d'un Classeur1 mais pas la suppresion ou la fermeture de ce fichier.
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
As-tu essayé:
:
Code : Sélectionner tout - Visualiser dans une fenêtre à part ExcelSheet.SaveAs "C:\TestExcel.xls"
La pensée n'est qu'un éclair au milieu de la nuit. Mais c'est cet éclair qui est tout.
Henri Poincaré
Oui et j'ai le meme probleme mais tu testes bien sur Access pas sur Excel?
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
La pensée n'est qu'un éclair au milieu de la nuit. Mais c'est cet éclair qui est tout.
Henri Poincaré
Oui j'ai verifie et tout est ok.
Le pb vient peut etre de cette ligne de code :
Tu sauves le fichier forcement on le retrouve a cet endroit apres.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ExcelSheet.SaveAs "C:\TestExcel.xls"
Non?
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
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 ?
La pensée n'est qu'un éclair au milieu de la nuit. Mais c'est cet éclair qui est tout.
Henri Poincaré
Supprimer??J'ai le code suivant qui fonctionne mais qui ne supprime pas mon fichier Excel
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.
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL
Blog Office Mon Site DVP
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
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.Mais si il n'y a pas de code pour le faire effectivement c'est mort.
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.
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL
Blog Office Mon Site DVP
Je connais l'action Supprimer Objet mais comment la faire fonctionner pour supprimer une feuil Excel?
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, ....
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL
Blog Office Mon Site DVP
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 ...
La pensée n'est qu'un éclair au milieu de la nuit. Mais c'est cet éclair qui est tout.
Henri Poincaré
Ok alors ce que je veux ces les supprimer.
Merci
supprimer quoi ?Envoyé par beurnoir
. fichier ?
. feuille ?
Est-ce que c'est à nous de deviner ?
Ne mettez pas "Problème" dans vos titres, par définition derrière toute question se cache un problème
12 tutoriels Access
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager