Effectuer une macro pour imprimer un onglet d'un fichier excel

dbosquet Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. dbosquet Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
     
    Oui le pc reste allumé
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      0
      1. dbosquet Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        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.
        0
      2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > dbosquet Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
         
        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()
        !!!!
        0
  3. dbosquet Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
     
    C'est pour pouvoir lancer une impression automatique du fichier tous les matins à 06h45 via le planificateur de tâche
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

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