Bonjour à tous,
Dans le cadre de mon boulot, j'ai mis en place un fichier qui d'après une liste dans la première feuille, me permet de générer un publipostage dans la 2ième.
Ensuite cette même macro me génère la quantité d'étiquette renseigné dans la feuille 1.
Il s'agit du imprimante pour étiquettes autocollantes.
Cela fonctionne, mais je voudrais l'améliorer et la je tourne en rond
Voilà mon code
'Impression
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
For impression = 1 To ExpRng.Cells(l, 3).Value
'Worksheets("Impression").Activate
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
'IgnorePrintAreas:=False
Worksheets("Impression").Range("A1:A4").PrintOut
Worksheets("Liste").Activate
Next impression
End If
End If
End If
Next l
Qui lui me permet bien d'avoir ma boite de dialogue pour pas se tromper d'imprimante, et de générer la quantité d'étiquette demandé pour chaque articles.
Mais le souci est que si j'ai 30 étiquettes, je génère 30 impressions de 1 étiquette, du coup c'est long.
Je voudrais pouvoir générer 1 impression de 30 étiquettes pour le premier article, puis de la quantité de l'article suivant jusqu’à la fin de ma liste.
Je glisse un fichier excel avec les feuilles mais sans le code qui est trop lourd, pour comprendre mon problème.
Merci par avance.
Lionel.
Dans le cadre de mon boulot, j'ai mis en place un fichier qui d'après une liste dans la première feuille, me permet de générer un publipostage dans la 2ième.
Ensuite cette même macro me génère la quantité d'étiquette renseigné dans la feuille 1.
Il s'agit du imprimante pour étiquettes autocollantes.
Cela fonctionne, mais je voudrais l'améliorer et la je tourne en rond
Voilà mon code
'Impression
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
For impression = 1 To ExpRng.Cells(l, 3).Value
'Worksheets("Impression").Activate
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
'IgnorePrintAreas:=False
Worksheets("Impression").Range("A1:A4").PrintOut
Worksheets("Liste").Activate
Next impression
End If
End If
End If
Next l
Qui lui me permet bien d'avoir ma boite de dialogue pour pas se tromper d'imprimante, et de générer la quantité d'étiquette demandé pour chaque articles.
Mais le souci est que si j'ai 30 étiquettes, je génère 30 impressions de 1 étiquette, du coup c'est long.
Je voudrais pouvoir générer 1 impression de 30 étiquettes pour le premier article, puis de la quantité de l'article suivant jusqu’à la fin de ma liste.
Je glisse un fichier excel avec les feuilles mais sans le code qui est trop lourd, pour comprendre mon problème.
Merci par avance.
Lionel.