Sub pdf()
Dim myWeekday
' cette macro convertie le PPt en pdf et l'exporte dans le dossier carte.
If myWeekday = Wednesday Then
ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\sortie\carte\" & Format(Date, "dd mm yyyy") & "_" & "Situation Relais du weekend" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
Else
ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\sortie\carte\" & Format(Date, "dd mm yyyy") & "_" & "Situation Relais" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
End If
End Sub