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
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
A voir également:
- Impression automatique Journalière ds excel
- Spouleur d'impression - Guide
- Message automatique thunderbird - Guide
- Réponse automatique outlook - Guide
- Sommaire automatique word - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
21 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
17 janv. 2008 à 23:26
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
Pas testée pour cette fonction car c'est contraignant pour créer tout cela.
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
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
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
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
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...
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
18 janv. 2008 à 14:58
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.
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
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
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
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
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
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
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
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
18 janv. 2008 à 15:31
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.
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
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
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
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
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
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
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
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
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
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
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
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...
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
18 janv. 2008 à 17:43
18 janv. 2008 à 17:43
bonjour
il y a tout de même un peu de cohérence à avoir : sub ....... End Sub
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
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
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
erreur d'execution "91"
variable d'objet ou de bloc With non définie
que dois je faire
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
19 janv. 2008 à 22:42
19 janv. 2008 à 22:42
bonjour
Dans ton code tu as mis un chemin qui n'est pas un classeur Excel !!!
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.
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
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
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
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
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...
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
20 janv. 2008 à 14:13
20 janv. 2008 à 14:13
bonjour
possible de désigner une autre imprimant
il faut mettre le paramètre sur cette ligne
moyen pour que le fichier se ferme automatiquement.
tu rajoutes ceci avant end sub
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
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
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...
ç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
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
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
est ce que celui la il y a moyen qu'il el ferme automatiquement ou pas