Macro Conversion Fichier excel en pdf

[/contents/446-fichier-sub Sub] Enregistrement_ESSAI()
' Enregistrement Macro
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Dim dossier1 As String

'
If Sheets("ESSAIF").Range("D4").Value = "" _
Or Sheets("ESSAIF").Range("D4").Value = " " _
Or Sheets("ESSAIF").Range("D4").Value = "  " _
Then
    MsgBox "Rentrez le numéro d'OF"
    Exit Sub
End If

'pas d'affichage de progression de l'opération pendant l'exécution
    Application.ScreenUpdating = False
        
    'rangement dans le dossier correspondant au n°OF
    dossier1 = Sheets("ESSAIF").Range("D4").Value
    'choix du chemin de sauvegarde
    chemin = "C:\Users\431061\Desktop\ALSTOM" _
    & dossier1 & "\"
    'https:\\alstomgroup.sharepoint.com\sites\LCR2020\Shared%20Documents\General\%232%20Tra%C3%A7abilit%C3%A9%20%20DLC\PV%20CND
    
    'choix du nom du fichier
    nomfichier = "ESSAI Final" & " OF N° " & Sheets("ESSAIF").Range("D4").Value & " - " & ".pdf"
Dim fdObj As Object
    
Application.ScreenUpdating = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
If Not fdObj.FolderExists("C:\Users\431061\Desktop\ATELIER\" & dossier1 & "\") Then
    fdObj.CreateFolder ("C:\Users\431061\Desktop\ATELIER\" & dossier1 & "\")
End If

Application.ScreenUpdating = True
    
        'sauvegarde du fichier
    ActiveWorkbook.SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "Le fichier PDF a bien été généré et est disponible dans le dossier " & nom_du_fichier
    Application.DisplayAlerts = True
    
End Sub