impression automatique Journalière ds excel Résolu

Question

Bonjour,

j'ai une page excel qui sert tous les jours et qui se trouve sur un réseau, j'aurai aimé touvé une fonction qui permettrai sans devoir ouvrir le programme que tous le jour à heure fixe (7h30 par exemple) la page excel s'imprime (pour autant biensur que le pc soit allumé)

je ne sais pas si c'est possible ou non mais si quelqu'un pouvait me renseigné se serais super sympa...


un tout grand merci 

Jérôme

gbinforme · Accepted Answer

bonjour

Je pense que c'est possible en lançant une tache de fond dans windows avec une heure déterminée.

Cette tache est Excel avec un petit fichier et une macro à l'open qui lance l'impression
Sub imprime()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("Chemin_Fichier")
Set Sheet = Book.Sheets("ma_feuille")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub

Pas testée pour cette fonction car c'est contraignant pour créer tout cela.

c135078 · Answer

si j'ai bien compris je dois doitr crée un fichier ms dos avec la fonction que tu as renseigné et je lance une tache planifiée tous le jours de ce fichier msdos...

c135078 · Answer

ou bien est que la macro doit être ajouté dans excel et que je dois lancé une tache planifiée pour mon fichier excel tous le jours

gbinforme · Answer

bonjour

Ce que je voulais dire, c'était de créer un classeur excel sans données 
avec seulement cette macro en "Private Sub Workbook_Open()".

Comme tu quittes l'application en fin de macro il n'y aura pas d'ouverture et tu auras lancé ton édition.

Dans ta tache, tu lances excel avec ce fichier et cette macro.

c135078 · Answer

sans vouloir avoir l'air plus con que je ne suis...pourais je avoir un complément d'information... je dois mettre quoi ou et avec quoi

c135078 · Answer

j'ai peut etre plus ou moins compris mais quand je lance la macro il plante et me propose de faire un débogage

quand je lance le débogage il me met la ligne suivant en jaune :   App.DisplayAlerts = False

encore autre chose comment faire pour qu'il lance la macro automatiquement à l'ouverture du fichier et qu'il referme le fichier automatiquement après

c135078 · Answer

dans le code renseigner plus haut est ce que je dois modifier des choses ou est que je peux le coller tel quel

gbinforme · Answer

bonjour

je dois mettre quoi ou et avec quoi

Tu mets la fonction ci-dessus dans thisworkbook dans "Private Sub Workbook_Open()".  dans un classeur vierge que tu enregistres.
Bien sûr tu adaptes la fonction à ton cas car je n'ai pas mis le nom de ta feuille et le chemin du classeur !

Dans tes taches planifiées tu lances Excel avec ce fichier :
"C:\.......\excel.exe "ton fichier"" avec les guillemets pour résoudre le problème des espaces dans les noms.

c135078 · Answer

il me met y maintenant variable d'objet ou variable de bloc non définie

et est ce que mon code doit bien ressemble à ça ou pas

Private Sub Workbook_Open()
Sub imprime()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("T:\Transit/opelab")
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub

c135078 · Answer

ou est ce qu'il doit être comme ça

Private Sub Workbook_Open()

End Sub

Sub imprime()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("T:\Transit/opelab")
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub

c135078 · Answer

quand je lance avec la deuxième version il me met un message renseignet 

variable d'objet ou de bloc With non définie

que dois je faire...

je sens que je m'approche du but et je vous remercie déjà enormément de toute votre aide

c135078 · Answer

et quand je lance le fichier avec la première possibilité (message 9) il met mes comme message qu'il attend un end sub après cete fonction et il met met la première ligne en jaune...

gbinforme · Answer

bonjour

Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("T:\Transit/opelab")
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub

il y a tout de même un peu de cohérence à avoir : sub ....... End Sub

c135078 · Answer

avec ce code il me renseigne la meme erreur
 
erreur d'execution "91"
variable d'objet ou de bloc With non définie 

que dois je faire

gbinforme · Answer

bonjour

Dans ton code tu as mis un chemin qui n'est pas un classeur Excel !!!
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("T:\Transit/opelab") ' ceci n'est pas un nom de fichier Excel
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
sans vouloir avoir l'air plus .. que je ne suis...pourais je avoir un complément d'information... disais-tu

J'ai tout de même l'impression que tu me prends pour ce que tu ne voulais pas avoir l'air.

J'ai testé le code il est fonctionnel lorsque l'on met les paramètres corrects.

c135078 · Answer

parfais ça marche c génial... est ce qu'il ya un moyen pour que le fichier se ferme automatiquement

c135078 · Answer

je me trouve sur un réseau est qu'il est possible de désigner une autre imprimant que celle par défaut de mon pc et en sélectionner une sur le réseau...

gbinforme · Answer

bonjour

possible de désigner une autre imprimant 

il faut mettre le paramètre sur cette ligne
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False ActivePrinter=   'Argument de type Variant facultatif. Définit le nom de l'imprimante active.
moyen pour que le fichier se ferme automatiquement.

tu rajoutes ceci avant end sub
app.Close

c135078 · Answer

un tout grand merci

ça commence à devenir terrible...

mais le APP.close il ne veut... 
il me lance un débogage... et il le met en jaune

est ce que je doit laisser l'app.quit en plus et est ce qu'il doit être avant ou après...

c135078 · Answer

je crois que je me suis mal exprimé, il ferme bien le fichier a imprimer mais ce qu'il ne ferme pas c'est le noueau fichier vierge qu'il a ouvert...
est ce que celui la il y a moyen qu'il el ferme automatiquement ou pas

c135078 · Answer

quel serait les changement à réaliser si je voulais a partir d'excel imprimer un fichier word

Impression automatique Journalière ds excel - Page 2

Discussions similaires

Newsletters