Impression datée
ZeoSleem
-
titeufdu89 Messages postés 387 Statut Membre -
titeufdu89 Messages postés 387 Statut Membre -
Bonjour,
J'ai un fichier excel (version 2013) de 4 pages utilisé pour la traçabilité mensuelle en production. Je souhaite l'imprimer avec la date:
Exp: le fichier X, sera imprimé fin Avril pour le mois de Mai, donc 31 copies: ses copies devront petre datées du 1er au 31 Mai dans une cellule donnée.
Est-ce possible?
J'ai un fichier excel (version 2013) de 4 pages utilisé pour la traçabilité mensuelle en production. Je souhaite l'imprimer avec la date:
Exp: le fichier X, sera imprimé fin Avril pour le mois de Mai, donc 31 copies: ses copies devront petre datées du 1er au 31 Mai dans une cellule donnée.
Est-ce possible?
A voir également:
- Impression datée
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Impression ecran samsung - Guide
- Problème impression pdf texte manquant - Forum PDF
- Impression miroir word - Guide
1 réponse
Bonjour,
Voici une proposition à votre problème d'impression automatique. Testée sur 2013, elle fonctionne. Copiez-collez le code suivant dans un module de votre document, insérez un bouton de contrôle appelant la macro "Imprimer" et ça devrait jouer en théorie.
NB : pensez bien à remplacer les "B3" par les coordonnées de la cellule contenant la date dans votre document !
Bonne journée, bon week-end
Jc
Voici une proposition à votre problème d'impression automatique. Testée sur 2013, elle fonctionne. Copiez-collez le code suivant dans un module de votre document, insérez un bouton de contrôle appelant la macro "Imprimer" et ça devrait jouer en théorie.
NB : pensez bien à remplacer les "B3" par les coordonnées de la cellule contenant la date dans votre document !
Bonne journée, bon week-end
Jc
Function NombreDeJoursDansMois(MaDate As Date)
' Cette fonction permet de calculer le nombre de jour dans une mois (soit le nombre d'impression à réaliser)
NombreDeJoursDansMois = Day(DateSerial(Year(DateAdd("m", 1, MaDate)), Month(DateAdd("m", 1, MaDate)), 1) - 1)
End Function
Sub Imprimer()
Dim MaDate As Date
Dim x As Integer
Application.ScreenUpdating = False
'Remplacer les B3 par les coordonnées de la cellule contenant la date dans le document
'Par defaut mettre le 1er jour du mois en question dans la cellule ex : 1/5/17
MaDate = Range("B3")
x = NombreDeJoursDansMois(MaDate)
'impression du document en date du 1er du mois
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
'boucle qui incrémente la date de 1 et lance l'impression
For i = 1 To x - 1
'Remplacer les B3 par les coordonnées de la cellule contenant la date
Range("B3") = Range("B3") + 1
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next
End Sub
