Salut le forum
Ca manque d'information, mais un début de macro
Sub OuvrirFichier()
Dim Filenames As Variant
Dim Counter As Byte
' Définit le tableau d'après une variable
' et True pour une sélection multiple
Filenames = Application.GetOpenFilename(, , , , True)
Counter = 1
' Ubound détermine le nombre d'éléments du tableau
While Counter <= UBound(Filenames)
' Ouverture des fichiers sélectionnés
Workbooks.Open Filenames(Counter)
' Impression et fermeture du fichier
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
' Incrémentation du compteur
Counter = Counter + 1
Wend
End Sub
Mytå