Sub ImprimerTout()
Dim NbFeuilleAsInteger, mois$
annee = Year(Now)
mois = StrConv(MonthName(Month(Date)), vbProperCase)
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Sheets.Count
If Sheets(i).Visible = -1 Then
NbFeuille = NbFeuille + 1
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Philippe Compta\Fac FL\" & Sheets(i).Name & " " & Application.Proper(mois) & " " & Right(annee, 2) & ".pdf"
End If
Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Les " & NbFeuille & " documents PDF viennent d'être créés et sont disponnibles dans le répertoire C:\Philippe Compta\Fac FL ")
ImprimeDetail 'à supprimer le cas échéant pour imprimer seulement les PDF...
End Sub
Sub ImprimerDetails()
Dim i%, k As Byte, kk%, Ws$
For k = 1 To 2
kk = IIf(k = 1, 418, 23)
Ws = IIf(k = 1, [Feuil1].Name, [Feuil2].Name)
With Worksheets(Ws)
Application.ScreenUpdating = False
For i = 5 To kk
If Application.CountA(.Rows(i).Cells) = 0 Then .Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
.PrintOut
Application.ScreenUpdating = False
.Rows.Hidden = False
Application.ScreenUpdating = True
End With
Next
End Sub