Fermeture d'un fichier Excel cible imprimé

bonjour a tous

a partir de mon serveur, j'ai besoin d'imprimer un fichier excel

a partir d'un tache planifiée, j'arrive bien a imprimer ce fichier, mais pas a fermer le fichier cible, qui lui reste donc en sous-marin.

chaque lancement du script laisse excel cible ouvert sur le serveur et ce donc en sous-marin

si quelqu'un aurait une idée , elle serait la bienvenue et je vous en remercie d'avance

je vous mon script pour information

Private Sub Workbook_Open()

Dim fichier As String

Dim app As Object

Dim book As Workbook

Dim sheet As Worksheet

Set app = CreateObject("excel.Application")

app.DisplayAlerts = False

Set book = app.Workbooks.Open("C:\GESTION\HORIZON\Rapports\96\prevision_gregoire.xlsx")

Set sheet = book.Sheets("famille")

sheet.PrintOut copies:=1, preview:=False, collate:=False

Application.Quit

Set book = Nothing

Set sheet = Nothing

Application.Quit

ActiveWorkbook.Close

End Sub

Bonjour,

Plusieurs remarques

• pourquoi une nouvelle instance d'Excel ?
• le classeur n'est pas fermé

A tester :

Private Sub Workbook_Open()

    Dim fichier As String
    Dim book As Workbook
    Dim sheet As Worksheet

    Application.DisplayAlerts = False
    Set book = Workbooks.Open("C:\GESTION\HORIZON\Rapports\96\prevision_gregoire.xlsx")
    Application.DisplayAlerts = True
    Set sheet = book.Sheets("famille")
    sheet.PrintOut copies:=1, preview:=False, collate:=False
    book.Close False

    Set book = Nothing
    Set sheet = Nothing

    ActiveWorkbook.Close

End Sub

Bonne soirée

Bouben

bonsoir

je vous remercie de votre réponse aussi prompt

je reviens de l'élevage

je testerai demain et vous informerai

cordialement