Impression automatique onglets

[Lololiline]

Bonjour,

N'y connaissant pas grand chose aux macros, je viens solliciter votre aide. En effet je cherche à imprimer certains onglets (je connais le nom, dans exemple onglet "mode opératoire") de plusieurs classeurs tous stockés dans un répertoire avec le chemin à définir.
Pour résumer avec les PJ: je cherche à imprimer seulement les onglets "mode opératoire" des fichiers MOP1 et MOP2 avec une macro à laquelle je lierais un bouton.

Nota: j'ai une centaine de fichier et ceci de façon répétitive c'est pour cela que je cherche une macro.

Merci d'avance pour votre aide.

 

[bond]

Re : Impression automatique onglets

Une boucle en Preview pour 100 fichiers... à adapter

Dim NumFichier As Long
For NumFichier = 1 To 100 Step 1
    Windows("MOP" & NumFichier & ".xls").Activate: Sheets("Mode opératoire").Select: ActiveWindow.SelectedSheets.PrintPreview
Next NumFichier