Le code en fin de message est sencé:
- balayer la zone B3:B100 de la feuille "validation",
- coller chaque valeur trouvée sur la cellule C8 de "Impression",
- imprimer le formulaire "Impression" autant de fois que nécessaire. (entre
1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages environ à
imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le formulaire, et
en particulier, en cellule I8, le nb de pages à imprimer
Au début, ce code fonctionne correctement, mais après environ 150 pages
imprimées, les pages imprimées sortent mélangées.
(Obligé de trier à la main, cependant le nombre d'exemplaires est exact)
Il semblerait que la macro envoie trop vite les fichiers à mon l'imprimante
réseau (?), et que celle-ci ne reconnaisse plus ses petits...
Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ?
Dois-je effectuer des tests pour scinder ce traitement en morceaux, ou
trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'****************************************************
Option Explicit
Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100")
If c.Value = "" Then End
c.Copy
Sheets("Impression").Activate
Sheets("Impression").Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Calculate
i = Sheets("Impression").Range("I8").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=i
Next c
End
Sheets("Validation").Select
Application.ScreenUpdating = True
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonsoir Patrick,
Essaie d'insérer un wait pour temporiser selon un timevalue de la durée d'impression de 1 page
Cordialement
Steph "Patrick BASTARD" a écrit dans le message de news: %
Bonsoir à toutes et tous.
Le code en fin de message est sencé: - balayer la zone B3:B100 de la feuille "validation", - coller chaque valeur trouvée sur la cellule C8 de "Impression", - imprimer le formulaire "Impression" autant de fois que nécessaire. (entre 1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages environ à imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le formulaire, et en particulier, en cellule I8, le nb de pages à imprimer Au début, ce code fonctionne correctement, mais après environ 150 pages imprimées, les pages imprimées sortent mélangées. (Obligé de trier à la main, cependant le nombre d'exemplaires est exact)
Il semblerait que la macro envoie trop vite les fichiers à mon l'imprimante réseau (?), et que celle-ci ne reconnaisse plus ses petits...
Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ? Dois-je effectuer des tests pour scinder ce traitement en morceaux, ou trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'**************************************************** Option Explicit Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100") If c.Value = "" Then End c.Copy Sheets("Impression").Activate Sheets("Impression").Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Calculate i = Sheets("Impression").Range("I8").Value ActiveWindow.SelectedSheets.PrintOut Copies:=i Next c End Sheets("Validation").Select Application.ScreenUpdating = True End Sub
-- Bien amicordialement, P. Bastard
Bonsoir Patrick,
Essaie d'insérer un wait pour temporiser selon un timevalue de la durée
d'impression de 1 page
Cordialement
Steph
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: %233tfgyunGHA.4240@TK2MSFTNGP02.phx.gbl...
Bonsoir à toutes et tous.
Le code en fin de message est sencé:
- balayer la zone B3:B100 de la feuille "validation",
- coller chaque valeur trouvée sur la cellule C8 de "Impression",
- imprimer le formulaire "Impression" autant de fois que nécessaire.
(entre 1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages
environ à imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le formulaire,
et en particulier, en cellule I8, le nb de pages à imprimer
Au début, ce code fonctionne correctement, mais après environ 150 pages
imprimées, les pages imprimées sortent mélangées.
(Obligé de trier à la main, cependant le nombre d'exemplaires est exact)
Il semblerait que la macro envoie trop vite les fichiers à mon
l'imprimante réseau (?), et que celle-ci ne reconnaisse plus ses petits...
Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ?
Dois-je effectuer des tests pour scinder ce traitement en morceaux, ou
trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'****************************************************
Option Explicit
Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100")
If c.Value = "" Then End
c.Copy
Sheets("Impression").Activate
Sheets("Impression").Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Calculate
i = Sheets("Impression").Range("I8").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=i
Next c
End
Sheets("Validation").Select
Application.ScreenUpdating = True
End Sub
Essaie d'insérer un wait pour temporiser selon un timevalue de la durée d'impression de 1 page
Cordialement
Steph "Patrick BASTARD" a écrit dans le message de news: %
Bonsoir à toutes et tous.
Le code en fin de message est sencé: - balayer la zone B3:B100 de la feuille "validation", - coller chaque valeur trouvée sur la cellule C8 de "Impression", - imprimer le formulaire "Impression" autant de fois que nécessaire. (entre 1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages environ à imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le formulaire, et en particulier, en cellule I8, le nb de pages à imprimer Au début, ce code fonctionne correctement, mais après environ 150 pages imprimées, les pages imprimées sortent mélangées. (Obligé de trier à la main, cependant le nombre d'exemplaires est exact)
Il semblerait que la macro envoie trop vite les fichiers à mon l'imprimante réseau (?), et que celle-ci ne reconnaisse plus ses petits...
Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ? Dois-je effectuer des tests pour scinder ce traitement en morceaux, ou trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'**************************************************** Option Explicit Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100") If c.Value = "" Then End c.Copy Sheets("Impression").Activate Sheets("Impression").Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Calculate i = Sheets("Impression").Range("I8").Value ActiveWindow.SelectedSheets.PrintOut Copies:=i Next c End Sheets("Validation").Select Application.ScreenUpdating = True End Sub
-- Bien amicordialement, P. Bastard
jps
t'es rûs, patrick? jps
"Patrick BASTARD" a écrit dans le message de news: %
Le code en fin de message est sencé:
t'es rûs, patrick?
jps
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: %233tfgyunGHA.4240@TK2MSFTNGP02.phx.gbl...
"Patrick BASTARD" a écrit dans le message de news: %
Le code en fin de message est sencé:
Patrick BASTARD
Bonsoir, *lSteph*
Et merci.
Sans autre piste, c'est ce que je vais tester. Dommage...
-- Bien amicordialement, P. Bastard
Bonsoir Patrick,
Essaie d'insérer un wait pour temporiser selon un timevalue de la durée d'impression de 1 page
Cordialement
Steph "Patrick BASTARD" a écrit dans le message de news: %
Bonsoir à toutes et tous.
Le code en fin de message est sencé: - balayer la zone B3:B100 de la feuille "validation", - coller chaque valeur trouvée sur la cellule C8 de "Impression", - imprimer le formulaire "Impression" autant de fois que nécessaire. (entre 1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages environ à imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le formulaire, et en particulier, en cellule I8, le nb de pages à imprimer Au début, ce code fonctionne correctement, mais après environ 150 pages imprimées, les pages imprimées sortent mélangées. (Obligé de trier à la main, cependant le nombre d'exemplaires est exact) Il semblerait que la macro envoie trop vite les fichiers à mon l'imprimante réseau (?), et que celle-ci ne reconnaisse plus ses petits... Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ? Dois-je effectuer des tests pour scinder ce traitement en morceaux, ou trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'**************************************************** Option Explicit Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100") If c.Value = "" Then End c.Copy Sheets("Impression").Activate Sheets("Impression").Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Calculate i = Sheets("Impression").Range("I8").Value ActiveWindow.SelectedSheets.PrintOut Copies:=i Next c End Sheets("Validation").Select Application.ScreenUpdating = True End Sub
-- Bien amicordialement, P. Bastard
Bonsoir, *lSteph*
Et merci.
Sans autre piste, c'est ce que je vais tester.
Dommage...
--
Bien amicordialement,
P. Bastard
Bonsoir Patrick,
Essaie d'insérer un wait pour temporiser selon un timevalue de la
durée d'impression de 1 page
Cordialement
Steph
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: %233tfgyunGHA.4240@TK2MSFTNGP02.phx.gbl...
Bonsoir à toutes et tous.
Le code en fin de message est sencé:
- balayer la zone B3:B100 de la feuille "validation",
- coller chaque valeur trouvée sur la cellule C8 de "Impression",
- imprimer le formulaire "Impression" autant de fois que nécessaire.
(entre 1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages
environ à imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le
formulaire, et en particulier, en cellule I8, le nb de pages à
imprimer Au début, ce code fonctionne correctement, mais après environ
150
pages imprimées, les pages imprimées sortent mélangées.
(Obligé de trier à la main, cependant le nombre d'exemplaires est
exact) Il semblerait que la macro envoie trop vite les fichiers à mon
l'imprimante réseau (?), et que celle-ci ne reconnaisse plus ses
petits... Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ?
Dois-je effectuer des tests pour scinder ce traitement en morceaux,
ou trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'****************************************************
Option Explicit
Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100")
If c.Value = "" Then End
c.Copy
Sheets("Impression").Activate
Sheets("Impression").Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Calculate
i = Sheets("Impression").Range("I8").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=i
Next c
End
Sheets("Validation").Select
Application.ScreenUpdating = True
End Sub
Sans autre piste, c'est ce que je vais tester. Dommage...
-- Bien amicordialement, P. Bastard
Bonsoir Patrick,
Essaie d'insérer un wait pour temporiser selon un timevalue de la durée d'impression de 1 page
Cordialement
Steph "Patrick BASTARD" a écrit dans le message de news: %
Bonsoir à toutes et tous.
Le code en fin de message est sencé: - balayer la zone B3:B100 de la feuille "validation", - coller chaque valeur trouvée sur la cellule C8 de "Impression", - imprimer le formulaire "Impression" autant de fois que nécessaire. (entre 1 et 8 exemplaires pour chaque valeur copiée, soit 200 pages environ à imprimer et tout)
La valeur copiée en C8 permet (Index-equiv) de renseigner le formulaire, et en particulier, en cellule I8, le nb de pages à imprimer Au début, ce code fonctionne correctement, mais après environ 150 pages imprimées, les pages imprimées sortent mélangées. (Obligé de trier à la main, cependant le nombre d'exemplaires est exact) Il semblerait que la macro envoie trop vite les fichiers à mon l'imprimante réseau (?), et que celle-ci ne reconnaisse plus ses petits... Avez-vous déjà rencontré ce problème, et l'avez-vous résolu ? Dois-je effectuer des tests pour scinder ce traitement en morceaux, ou trouver une solution pour ralentir la macro ?
D'avance, merci de vos lumières.
'**************************************************** Option Explicit Sub imprime()
For Each c In Sheets("Validation").Range("B3:B100") If c.Value = "" Then End c.Copy Sheets("Impression").Activate Sheets("Impression").Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Calculate i = Sheets("Impression").Range("I8").Value ActiveWindow.SelectedSheets.PrintOut Copies:=i Next c End Sheets("Validation").Select Application.ScreenUpdating = True End Sub
-- Bien amicordialement, P. Bastard
Patrick BASTARD
Bonsoir, *Jean-Paul*
t'es rûs, patrick?
Non, Français, de pure souche, Môssieur. Comme Patrick McK... Mais ça n'empêche pas qu'on s'lave (le triste minimum, comme disait une de mes voisines) ROFL ROFL
Et je suis sûr de ce que j'avance.
-- Bien amicordialement, P. Bastard
Bonsoir, *Jean-Paul*
t'es rûs, patrick?
Non, Français, de pure souche, Môssieur.
Comme Patrick McK...
Mais ça n'empêche pas qu'on s'lave (le triste minimum, comme disait une de
mes voisines)
ROFL ROFL
Non, Français, de pure souche, Môssieur. Comme Patrick McK... Mais ça n'empêche pas qu'on s'lave (le triste minimum, comme disait une de mes voisines) ROFL ROFL
