Sub Imprimer()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "*xls*") '1er fichier du dossier
Application.ScreenUpdating = False
While fichier <> ""
If fichier <> ThisWorkbook.Name Then
With Workbooks.Open(chemin & fichier)
.Sheets("résultats").PrintOut
.Sheets("synthèse").PrintOut
.Close False
End With
End If
fichier = Dir
Wend
End Sub
Sub PDF()
Dim chemin$, fichier$, F As Worksheet, deb As Range
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "*xls*") '1er fichier du dossier
Application.ScreenUpdating = False
Set F = Workbooks.Add.Sheets(1) 'document vierge auxiliaire
Set deb = F.[A1]
While fichier <> ""
If fichier <> ThisWorkbook.Name Then
With Workbooks.Open(chemin & fichier)
.Sheets("résultats").UsedRange.Copy deb
Set deb = deb.Offset(.Sheets("résultats").UsedRange.Rows.Count + 1) 'saut d'une ligne
.Sheets("synthèse").UsedRange.Copy deb
Set deb = deb.Offset(.Sheets("synthèse").UsedRange.Rows.Count + 2) 'saut de 2 lignes
.Close False
End With
End If
fichier = Dir
Wend
F.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Compile.pdf", Quality:=xlQualityStandard
F.Parent.Close False 'fermeture du document auxiliaire
End Sub