Impression automatique Journalière ds excel
Résolu
c135078
Messages postés
48
Date d'inscription
Statut
Membre
Dernière intervention
-
c135078 Messages postés 48 Date d'inscription Statut Membre Dernière intervention -
c135078 Messages postés 48 Date d'inscription Statut Membre Dernière intervention -
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
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
- Réponse automatique thunderbird - Guide
- Impression livret a5 - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
21 réponses
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.
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.
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
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
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.
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
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
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
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
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
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
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.
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
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
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...