Bonjour Hach,
A partir d'un fichier commande, placés le même répertoire que les fichiers à imprimer, tu peux utiliser la macro suivante :
Sub ouvrirFichiers()
Dim i As Integer
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)
ActiveSheet.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
End If
Next i
Else
MsgBox 'Aucun fichier trouvé'
End If
End With
End Sub
Biensûr, cela suppose qu'ils seront ouverts, imprimés et refermés. Sinon je ne sais pas faire.
Cordialement
Bernard