Sub CreationEchéancePDF() 'écrite par JJ il y a quelques jours
Dim CheminEtNom$
Application.ScreenUpdating = False
ActiveWorkbook.Save
' Créationdossierssurordinateurs()
On Error Resume Next
MkDir "C:\Envoi quittances loyer par mail H.H. P.A.\"
MkDir "C:\Envoi quittances loyer par mail H.H. P.A.\" & Replace([b5], ":", "") & "\"
CheminEtNom = "C:\Envoi quittances loyer par mail H.H. P.A.\" & Replace([b5], ":", "")
If [e18] <> "" Then
MkDir CheminEtNom & "\Envoi par mail\"
MkDir CheminEtNom & "\Envoi par mail\" & [d23].Text
CheminEtNom = CheminEtNom & "\Envoi par mail\" & [d23].Text & "\" & [f7] & " Echéance du mois de " & [d23].Text
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminEtNom
Else
With ActiveSheet
.Shapes("Image 14").Visible = False: .Shapes("Groupe 6").Visible = False: .Shapes("Groupe 9").Visible = False
MkDir CheminEtNom & "\Envoi papier\"
MkDir CheminEtNom & "\Envoi papier\" & [d23].Text
CheminEtNom = CheminEtNom & "\Envoi papier\" & [d23].Text & "\" & [f7] & " Echéance du mois de " & [d23].Text
.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs CheminEtNom, FileFormat:=xlExcel8
ActiveWorkbook.Close False
Application.DisplayAlerts = True
.Shapes("Image 14").Visible = True: .Shapes("Groupe 6").Visible = True: .Shapes("Groupe 9").Visible = True
End With
End If
MsgBox "Création de la quittance du mois effectuée.", , "Information"
End Sub