Effectuer une macro pour imprimer un onglet d'un fichier excel [Fermé]

Signaler
Messages postés
10
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
20 janvier 2017
-
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
-
Bonjour à tous,
Chaque matin (sauf le samedi et le dimanche), à 06h45, j'effectue des impressions de fichier EXCEL sur la même imprimante et avec les mêmes paramètres d'impression. J'ai essayé d'enregistrer une macro depuis un fichier lambda et voici ce que cela donne :
Sub impressionauto1()
'
' impressionauto1 Macro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Cela fonctionne manuellement. J'aurai voulu l'automatiser pour que chaque matin, quand j'arrive à 7h, je puisse récupérer les feuilles auprès de l'imprimante. Est-ce possible ?
Merci pour votre aide

3 réponses

Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Bonjour,

j'arrive à 7h, je puisse récupérer les feuilles auprès de l'imprimante
Cela suppose que le PC ne soit jamais éteint
Messages postés
10
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
20 janvier 2017

Oui le pc reste allumé
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Re,

une facon de faire en utilisant le planificateur de tache
https://www.excel-downloads.com/threads/ouvrir-un-fichier-excel-via-le-planificateur-de-taches.184773/
En fonction de votre Windows, peut-etre quelques differences

Votre ficher excel devra excuter le code a l'ouverture (ThisWorkbook) et se fermer en fin d'execution

Y a d'autres planificateurs, mais pas d'origine sur les PC
Messages postés
10
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
20 janvier 2017
>
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021

J'ai rédigé une macro dans un fichier excel intitulé J:\xx\yy.xlsm qui est la suivante :
Sub impressionautofichierpilote()
'
' impressionautofichierpilote Macro
'
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("J:\zz\ww.xlsm")
Set Sheet = Book.Sheets("Feuil15")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
'
End Sub

Je voudrai savoir comment je dois paramétrer le planificateur de tâche sous Windows car je n'y arrive pas. Le fichier s'ouvre mais la macro ne se lance pas.

Merci pour ton aide.
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481 >
Messages postés
10
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
20 janvier 2017

Bonjour,
Ben, deja, pouqruoi creer une deuxieme appli excel pour ouvrir le fichier a imprimer?
Ensuite y a deux sub et deux end sub, faut choisir soit le code est dans
Private Sub Workbook_Open()
, soit vous appelez la procedure
Sub impressionautofichierpilote() 
dans
Workbook_Open()
!!!!
Messages postés
10
Date d'inscription
jeudi 5 janvier 2017
Statut
Membre
Dernière intervention
20 janvier 2017

C'est pour pouvoir lancer une impression automatique du fichier tous les matins à 06h45 via le planificateur de tâche
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Re,

Tout a fait Thierry, mais repondez deja a ce que j'ai ecrit precedemment