Impression en ligne
Luteau281
Messages postés
1
Statut
Membre
-
Le Pingou Messages postés 12273 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12273 Date d'inscription Statut Contributeur Dernière intervention -
bonjour
j'ai besoin d'imprimer un document excel 2 fois par jour. j'ai fait en tache planifiée un fichier excel qui m'imprime mon document. le problème c'est que je n'arrive pas a fermer le fichier cible qui lui reste donc en sous-marin et qui me ralenti mon serveur. si quelqu'un peut m'aider ce serait très sympas
je vous remercie d'avance
voici le script
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
j'ai besoin d'imprimer un document excel 2 fois par jour. j'ai fait en tache planifiée un fichier excel qui m'imprime mon document. le problème c'est que je n'arrive pas a fermer le fichier cible qui lui reste donc en sous-marin et qui me ralenti mon serveur. si quelqu'un peut m'aider ce serait très sympas
je vous remercie d'avance
voici le script
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
