Sub pdf()
Dim dossier As String
Dim nomNewClasseur As String
dossier = Range("A9")
nomNewClasseur = "recap" & "-" & Range("A9") & "-" & Range("B9") & "-" & Format(Range("F2"), "ddmmyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\brigitte\Dropbox\RBX\RBX-BB\recap\" & nomNewClasseur, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub