Impression d'onglets spécifiques de +ieurs classeurs

[jerome91]

Bonsoir,

Je cherche un moyen d'imprimer plusieurs fichiers excel d'un même dossier et qui ont tous plusieurs onglets, mais les onglets qui "m'intéressent" s'appellent COB et MENSUEL, tous les fichiers excel les ont.

J'ai trouvé la macro ci-dessous :

Sub Imprimer()
Dim i As Integer
Dim fl As Worksheet
With Application.FileSearch.LookIn = ThisWorkbook.Path
If .Execute > 1 Then
For i = 1 To .FoundFiles.Count
If .Filename <> ThisWorkbook.Name Then
Workbooks.Open .FoundFiles(i)
For Each fl In ActiveWorkbook.Worksheets
fl.PrintOut Copies = 1, Collate:=True
Next fl
ActiveWorkbook.Close
End If
Next i
Else
MsgBox "Aucun fichier trouvé"
End If
End With
End Sub

Mais je ne sais pas quelle ligne modifiée et comment pour stipuler juste l'impression des onglets COB et MENSUEL.

Je pense que ça se situe au niveau du fl.PrintOut

Merci.

Jérôme

 

[Jacou]

Re : Impression d'onglets spécifiques de +ieurs classeurs

Bonsoir jerome91,
essaie comme ci-dessous :

Sub Imprimer()
Dim i As Integer
Dim fl As Worksheet
With Application.FileSearch.LookIn = ThisWorkbook.Path
If .Execute > 1 Then
For i = 1 To .FoundFiles.Count
If .Filename <> ThisWorkbook.Name Then
Workbooks.Open .FoundFiles(i)
For Each fl In ActiveWorkbook.Worksheets
If fl.name = "COB" Or fl.name = "MENSUEL" then
fl.PrintOut Copies = 1, Collate:=True
End If
Next fl
ActiveWorkbook.Close
End If
Next i
Else
MsgBox "Aucun fichier trouvé"
End If
End With
End Sub

bonne nuit