Impression automatique Journalière ds excel

Résolu/Fermé

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 - 17 janv. 2008 à 13:31
c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 - 20 janv. 2008 à 15:18

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

A voir également:

Impression automatique Journalière ds excel
Spouleur d'impression - Guide
Message automatique thunderbird - Guide
Réponse automatique outlook - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Sommaire automatique word - Guide

21 réponses

Réponse 1 / 21

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
17 janv. 2008 à 23:26

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.

Réponse 2 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 13:52

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

Réponse 3 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 13:51

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

Réponse 4 / 21

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
18 janv. 2008 à 14:58

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.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 15:11

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

Réponse 6 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 15:25

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

Réponse 7 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 15:26

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

Réponse 8 / 21

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
18 janv. 2008 à 15:31

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.

Réponse 9 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 15:45

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

Réponse 10 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 15:47

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

Réponse 11 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 15:51

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

Réponse 12 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
18 janv. 2008 à 16:02

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

Réponse 13 / 21

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
18 janv. 2008 à 17:43

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

Réponse 14 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
19 janv. 2008 à 15:14

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

Réponse 15 / 21

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
19 janv. 2008 à 22:42

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.

Réponse 16 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
20 janv. 2008 à 13:01

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

Réponse 17 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
20 janv. 2008 à 13:07

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

Réponse 18 / 21

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
20 janv. 2008 à 14:13

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

Réponse 19 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
20 janv. 2008 à 14:43

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

Réponse 20 / 21

c135078 Messages postés 48 Date d'inscription lundi 12 novembre 2007 Statut Membre Dernière intervention 5 mai 2009 1
20 janv. 2008 à 14:45

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

Discussions similaires

Transparence en tete et bas de page

creer sms automatique en cas d'absence

exemplaire

Discussions similaires

Newsletters