Impression automatique Journalière ds excel

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.

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

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...

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.

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

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

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

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.

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

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

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

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...

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

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

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.

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

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...

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

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...

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