Private Sub CommandButton2_Click()
Dim cheminfichier As String
cheminfichier = ThisWorkbook.Path & "\" & "mondossierdedestination" & "\"
' Exporter au format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=cheminfichier & nomfichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
If MsgBox("Le fichier pdf a été édité avec succès dans le dossier suivant : " & ThisWorkbook.Path & "\" & "Contrôles de sécurité au transbordement" & Chr(10) & "Voulez-vous accéder à ce dossier ?", vbYesNo) = vbNo Then
Exit Sub
Else
ActiveWorkbook.FollowHyperlink cheminfichier, NewWindow:=True
End If
End Sub