Microsoft 365 Impression et transfert de donné.

[manga419]

Bonjour,
Je vous demande a nouveau votre aide.
Après une petit tours sur le forum j'ai trouvé une partie de mon problème .
Il me reste un a résoudre.
mon fichier génère bien mes fiche avec la numérotation automatique, mais quand j'utilise le With Worksheets pour le transfert de donné dans l'onglet stock il me copie que la dernière feuille imprimé.
Si cela est possible, j'aimerai que toute les feuilles imprime apparaisse dans l'onglet stock.
Exemple, si j'imprime 10 feuille, les 10 page créer sont copier dans l'onglé stock
Fichier joint.
Je vous remercie d'avance pour votre aide.
Cordialement.

 

[Webperegrino]

Bonjour Le Forum,
Bonjour manga419,
Voici une version de votre fichier, en espérant que cela vous convienne.
En [N5] un choix possible avant impression (voir dans la macro).
Cordialement,
Webperegrino

 

[Webperegrino]

... et, en [A12], Données + Validation de données... le choix de votre article.

=DECALER(ListingLant!$A$1;;;NB.SI(ListingLant!$A:$A;"><"""))

Webperegrino

 

[manga419]

Merci beaucoup c'est exactement ce que je cherché.
Merci pour les améliorations.
Encore une question.
Quelle est le code a rajouté pour imprimer chaque page en double.
Merci d avance.

 

[Webperegrino]

Le Forum,
Bonsoir Maga419,
Pour spécifier le nombre de copies (2), c'est tout simple :

ActiveWorkbook.PrintOut Copies:=2, Collate:=True

Webperegrino

 

[manga419]

merci beaucoup