Sub ImprimerPDF()
Dim J As Integer
Application.ScreenUpdating = False
On Error Resume Next
'MkDir "C:\Impression FL\"
MkDir "C:\Documents and Settings\Moi\Bureau\Impression FL"
'A ne mettre que si l'on veut créer un répertoire
On Error GoTo 0
For i = 1 To Sheets.Count
If Sheets(i).Visible = -1 Then
J = J + 1
Sheets(i).Select
Range("a1:g30").Select
Selection.Copy
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
Cells.Select
Sheets(Worksheets.Count).Select
Application.CutCopyMode = False
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Impression FL\montest" & i & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF\ " & Application.Proper(Sheets(i).[E2].Value) & " " & Sheets(i).Name & " Edition du " & Application.WorksheetFunction.Proper(Format(Date, "dd mmmm yy")) & " .pdf"
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
Next i
Sheets(1).Select
Application.ScreenUpdating = True
Select Case MsgBox("Votre(vos) document(s) PDF vient(viennent) d'être créé(s) et est(sont) disponnible(s) dans le répertoire C:\Documents and Settings\Moi\Bureau\Impression Facture - Avoir en PDF ", vbInformation, "Information Importante !!")
End Select
End Sub