Fermer un fichier Excel particulier

ActiveWorkbook.Close

ActiveWorkbook.SaveAs (fichierPDF)

Sub Sauvegarde()
  'Selectionne le chemin et sauvegarde dans le dossier spécifier
    fichierA = Range("K1") & "\" & Range("K2")
    fichierPDF = fichierA.pdf"
    fichierXLS = fichierA.xls"
    ActiveWorkbook.SaveAs (fichierPDF)
  'Réouvre le fichier Excel de base
    Workbooks.Open Filename:="U:\Projet David\Qualité Perforation Servi Doryl.xls"
    Workbooks("fichierXLS").Activate
    ActiveWorkbook.Close False
  'Repositionnement de la cellule selectionné sur l'OF à remplir
    Range("B9").Select
End Sub

Sub Sauvegarde()
  'Selectionne le chemin et sauvegarde dans le dossier spécifier
    fichierXLS = Range("K1") & "\" & Range("K2")
    ActiveWorkbook.SaveAs (fichierXLS) 'mais ici un SaveAsPDF.. je ne connais pas la ligne particulière
  'Réouvre le fichier Excel de base
    Workbooks.Open Filename:="U:\Projet David\Qualité Perforation Servi Doryl.xls"
  'Repositionnement de la cellule selectionné sur l'OF à remplir
    Range("B9").Select
End Sub

Sub Sauvegarde()
    'adaptez le nom de la feuille
    With Worksheets("Feuil1")
        'Selectionne le chemin et sauvegarde dans le dossier spécifier
        fichierA = Range("K1") & "\" & Range("K2")
        'export PDF
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichierA, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        'Repositionnement de la cellule selectionné sur l'OF à remplir
        .Range("B9").Select
    End With
End Sub

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichierA, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Sub PrintToPDF_Early()
    'Author : Ken Puls ()
    'Macro Purpose: Print to PDF file using PDFCreator
    ' Designed for early bind, set reference to PDFCreator
    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String
    Dim bRestart As Boolean
    '/// Change the output file name here! ///
    sPDFName = "testPDF.pdf"
    sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
    'Check if worksheet is empty and exit if so
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
    'Activate error handling and turn off screen updates
    On Error GoTo EarlyExit
    Application.ScreenUpdating = False
    Set pdfjob = New PDFCreator.clsPDFCreator
    'Check if PDFCreator is already running and attempt to kill the process if so
    Do
        bRestart = False
        Set pdfjob = New PDFCreator.clsPDFCreator
        If pdfjob.cStart("/NoProcessingAtStartup") = False Then
            'PDF Creator is already running. Kill the existing process
            Shell "taskkill /f /im PDFCreator.exe", vbHide
            DoEvents
            Set pdfjob = Nothing
            bRestart = True
        End If
    Loop Until bRestart = False
    'Assign settings for PDF job
    With pdfjob
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0 ' 0 = PDF
        .cClearCache
    End With
    'Delete the PDF if it already exists
    If Dir(sPDFPath & sPDFName) = sPDFName Then Kill (sPDFPath & sPDFName)
    'Print the document to PDF
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False
    'Wait until the file shows up before closing PDF Creator
    Do
        DoEvents
    Loop Until Dir(sPDFPath & sPDFName) = sPDFName
Cleanup:
    'Release objects and terminate PDFCreator
    Set pdfjob = Nothing
    Shell "taskkill /f /im PDFCreator.exe", vbHide
    On Error GoTo 0
    Application.ScreenUpdating = True
    Exit Sub
EarlyExit:
    'Inform user of error, and go to cleanup section
    MsgBox "There was an error encountered. PDFCreator has" & vbCrLf & _
    "has been terminated. Please try again.", _
    vbCritical + vbOKOnly, "Error"
    Resume Cleanup
End Sub