Sub ImprimeFichiers()
Dim F$, chemin$, nomfich$, o As Boolean
Application.ScreenUpdating = False
On Error Resume Next
F = Range("A1") 'la cellule A1 (à adapter)de la feuille active contient le nom de la feuille à imprimer
chemin = ThisWorkbook.Path 'ou un autre chemin d'accès du répertoire contenant les fichiers
nomfich = Dir(chemin & "\*.xls") '1er fichier du dossier
While nomfich <> ""
o = False
If IsError(Workbooks(nomfich).Name) Then 'si le fichier n'est pas déjà ouvert, on l'ouvre
Workbooks.Open chemin & "\" & nomfich
o = True
End If
Windows(nomfich).Visible = True 'au cas où la fenêtre serait masquée, on l'affiche
With Workbooks(nomfich).Sheets(F)
.Visible = True 'au cas où la feuille serait masquée, on l'affiche
With .PageSetup
.CenterHeader = nomfich 'mise en forme indispensable...
.FitToPagesWide = 1 'mise en forme facultative
.FitToPagesTall = 1 'mise en forme facultative
End With
.PrintOut 'impression de la feuille
End With
If o Then ActiveWorkbook.Close False 'si le fichier a été ouvert, on le referme
nomfich = Dir 'fichier suivant du dossier
Wend
End Sub