Fichier qui reste ouvert

1 réponse

gabrielle chabot-giroux

13/05/2006 à 04:53

Bonsoir,

J'ai un pb avec ma macro. À partir de Word, je demande à VBA d'ouvrir un
classeur Excel basé sur un modèle et de l'enregistrer sous un nom x sans
l'afficher à l'écran ni ouvrir Excel... Tout marche bien, sauf un petit
bug... un classeur nommé tableau1.xls reste "ouvert" (sans qu'on le voit ou
rien) et le seul moyen de le "fermer", c'est par le Gestionnaire de tâches
(ctrl + alt + del). Sinon, quand je ferme l'ordinateur, il me demande si je
veux enregistrer ce fichier. Vous avez une idée?

Voilà la partie concernée de ma macro:

Set xl = CreateObject("Excel.Application")
xl.Application.DefaultFilePath = "C:\"
xl.Workbooks.Add Template:="a:\tableau.xlt"
xl.Visible = False
xl.ActiveWorkbook.SaveAs FileName:=(Initiales) & " " & (DateAbonnement)
xl.ActiveWindow.Close
xl.Application.Quit
Set xl = Nothing

Merci encore, Gabrielle

1 réponse

Daniel

13/05/2006 à 07:08

Bonjour.
Peut-etre :
xl.ActiveWorkbook.close
Cordialement.
Daniel
"gabrielle chabot-giroux" a écrit
dans le message de news:

Bonsoir,

J'ai un pb avec ma macro. À partir de Word, je demande à VBA d'ouvrir un
classeur Excel basé sur un modèle et de l'enregistrer sous un nom x sans
l'afficher à l'écran ni ouvrir Excel... Tout marche bien, sauf un petit
bug... un classeur nommé tableau1.xls reste "ouvert" (sans qu'on le voit
ou rien) et le seul moyen de le "fermer", c'est par le Gestionnaire de
tâches (ctrl + alt + del). Sinon, quand je ferme l'ordinateur, il me
demande si je veux enregistrer ce fichier. Vous avez une idée?

Voilà la partie concernée de ma macro:

Set xl = CreateObject("Excel.Application")
xl.Application.DefaultFilePath = "C:"
xl.Workbooks.Add Template:="a:tableau.xlt"
xl.Visible = False
xl.ActiveWorkbook.SaveAs FileName:=(Initiales) & " " & (DateAbonnement)
xl.ActiveWindow.Close
xl.Application.Quit
Set xl = Nothing

Merci encore, Gabrielle

Fichier qui reste ouvert

1 réponse

Veuillez sélectionner un problème