Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

Sub test()
MonNOm = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="Nfa"
Workbooks.Open (MonNOm)
Workbooks("Nfa.xls").Close
End Sub

Sub test()
   
   ' Créer un nouveau classeur
    Dim wkDeTravail As Workbook
    Set wkDeTravail = Workbooks.Add(xlWBATWorksheet)
    
    ' Sélection de la feuille à copier
    Dim wsACopier As Worksheet
    Set wsACopier = ThisWorkbook.Worksheets("Documents")
    Dim sPath As String
    sPath = Workbooks(ThisWorkbook.Name).Path
    
    ' Copier / Coller la feuille
    wsACopier.Copy After:=wkDeTravail.Sheets(wkDeTravail.Sheets.Count)
    
    ' Sélection de la feuille du fichier créé
    Dim wsDeTravail As Worksheet
    Set wsDeTravail = wkDeTravail.Worksheets("Documents")
   
    ' Chemin du fichier copier
    Sta = sPath & "\Test1_" & Format(Now, "ss") & ".pdf"
    Nfa = sPath & "\Test2_" & Format(Now, "ss") & ".pdf"
        
    ' Enregistrer le nouveau classeur
    wsDeTravail.SaveAs Filename:=Nfa

    ' Test
    If IsEmpty(wsDeTravail.UsedRange) Then Exit Sub
   
        Set pdfjob = New PDFCreator.clsPDFCreator
        With pdfjob
            If .cStart("/NoProcessingAtStartup") = False Then
                MsgBox "Can't initialize PDFCreator.", vbCritical + _
                        vbOKOnly, "PrtPDFCreator"
   
                Exit Sub
            End If
 
            .cOption("UseAutosave") = 1
            .cOption("UseAutosaveDirectory") = 1
            .cOption("AutosaveDirectory") = Cra
            .cOption("AutosaveFilename") = Nfa 'sPDFName
            .cOption("AutosaveFormat") = 0 ' 0 = PDF
            .cClearCache
        End With
 
    'Imprime le document en PDF
    wsDeTravail.PrintOut copies:=1, ActivePrinter:="PDFCreator"
    'Attend que le document soit entré dans la file d'impression
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False
    
    'Attend que l'impression du document soit terminée
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing
            
    MsgBox "la feuille en Pdf à ètè copièe dans :" & vbCrLf & " le fichier documents de l'affaire:" & vbCrLf & Sta
    wkDeTravail.Close
' A partir de ThisWorKbook.Close le programme plante
   
     
   'Windows(Che & "\" & Fic).Activate
   'Windows("2012_02_05 documents(pdf).xls").Activate
   'Sheets("Documents").Select
   'ActiveWindow.SmallScroll Down:=-35

End Sub

   ' Créer un nouveau classeur
    Dim wkDeTravail As Workbook
    Set wkDeTravail = Workbooks.Add(xlWBATWorksheet)
   
    ' Sélection de la feuille à copier
    Dim wsACopier As Worksheet
    Set wsACopier = ThisWorkbook.Worksheets("Documents")
    Dim sPath As String
    sPath = Workbooks(ThisWorkbook.Name).Path
   
    ' Copier / Coller la feuille
    wsACopier.Copy After:=wkDeTravail.Sheets(wkDeTravail.Sheets.Count)
   
    ' Sélection de la feuille du fichier créé
    Dim wsDeTravail As Worksheet
    Set wsDeTravail = wkDeTravail.Worksheets("Documents")