Bonjour toutes et tous
coucous Joco7915, 3GB
@Christopherom
1/supprimer les modules vides
2/ pour le Module11:
Option Explicit
' Feuil14 (BP)
Sub imprim()
Dim nom$
With Sheets("BP")
nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'End With
MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
End With
End Sub
3/ pour le Module9:
Option Explicit
' Feuil18 (FLUT)
Sub imprim()
Dim nom$
With Sheets("FLUT")
nom = .Cells(1, 2) & "\" & .Cells(3, 2) & " " & Format(.Cells(2, 2), "dd-mm-yyyy") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'End With
MsgBox "FLUTURAS a fost salvata sub " & nom, , "PRINT TERMINAT"
End With
End Sub
4/ @tester
5/ petite erreur aussi dans la feuille INF le mois FEVRIER et non FEVIER
crdlt,
André