Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

[jlp035]

Bonjour,
mon morceau de programme copie la feuille active dans un nouveau fichier et le convertit en pdf.
Mais à partir la ligne "ActiveWorkbook.Close " le programme ne semble plus repondre..
Je suis donc à la recherche d'une astuce ou solution.

Merci par avance.

Sub CopieFeuilleDocumentsPdf()
   ' déclarations des variables
   Dim Std As String  ' Liste de nom fichier Document
   Dim Crd As String
   Dim Soc As String
   Dim The As String
   Dim Fic As String
   Dim Nfd As String
   Dim Che As String
   Dim pdfjob As PDFCreator.clsPDFCreator
      ' 
   Crd = Range("AA5")  ' Chemin du repertoire Documents
   Soc = Range("O11")  ' Nom Sociètè
   The = Range("B21")  ' Thème
   Fic = Range("AA1")   ' Fichier logiciel
   Che = Range("AA2")  ' Chemin logiciel

   ' Test pour verifier que le chemin existe
 If Dir$(Crd) = "" Then
   ' Chemin du fichier copier
   Std = Crd & "\" & Soc & "  " & Format(Date, "yyyy_mm_dd") & "  " & Format(Time, "hh_mm") & "  " & The & ".pdf"
   Nfd = Soc & "  " & Format(Date, "yyyy_mm_dd") & "  " & Format(Time, "hh_mm") & "  " & The & ".pdf"
        
   ActiveWorkbook.SaveAs Filename:=Nfd
   
   If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
   Set pdfjob = New PDFCreator.clsPDFCreator
   With pdfjob
    ' Demarre Pdf creator
   If .cStart("/NoProcessingAtStartup") = False Then
   MsgBox "Can't initialize PDFCreator.", vbCritical + _
   vbOKOnly, "PrtPDFCreator"
   'Application.Wait (Now + TimeValue("0:00:05"))
   Exit Sub
  End If
    ' Parametres Pdf creator
 .cOption("UseAutosave") = 1
 .cOption("UseAutosaveDirectory") = 1
 .cOption("AutosaveDirectory") = Crd 'Chemin du fichier
 .cOption("AutosaveFilename") = Nfd 'Nom du fichier
 .cOption("AutosaveFormat") = 0 ' 0 = PDF
 .cClearCache
 End With
 'Imprime le document en PDF
 ActiveSheet.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 destinataires:" & vbCrLf & Std
   
   ActiveWorkbook.Close ' à partir de cette ligne le programme semble ne plus fonctionner   
  
     Else
   MsgBox " Le fichier" & Crd & " est introuvable ?" & vbCrLf & " Vérifier le chemin du fichier  :" & vbCrLf & "documents du destinataire."
     End If
      
   Windows(Che & "\" & Fic).Activate
   
   MsgBox "Selection de la page document "
   Sheets("Documents").Select
   ActiveWindow.SmallScroll Down:=-35
  End Sub

 

[francedemo]

Re : Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

bonjour
essaye de remplacer "ActiveWorkbook.Close" par "ThisWorkbook.Close" pour lui dire de fermer le fichier d'origine de la macro et pas celui qui est actif à ce moment là
à+

 

[jlp035]

Re : Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

Bonjour,
j'ai essayé de remplacer "ActiveWorkbook.Close" par "ThisWorkbook.Close" mais le probléme semble etre toujour le meme.

 

[jlp035]

Re : Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

Relance Fermeture avec ActiveWorkbook.SaveAs Filename
N'arrivant pas à ressouder mon problème je me permets de faire une relance..
Merci d'avance

 

[Yaloo]

Re : Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

Bonjour jlp035, le forum,

Avec un fichier exemple se serait bien

 

[jlp035]

Re : Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

Bonjour, ci joint le fichier.

Meri de votre interet.

 

[Yaloo]

Re : Fermeture d'un fichier ouvert avec ActiveWorkbook.SaveAs Filename

Re,

Juste une petite question : tu as quelle version d'Excel ?

Car à partir d'Excel 2007, tu peux enregistrer directement en PDF, tu n'es pas obliger d'utiliser un autre logiciel.

Sinon voir ici ou là

Je n'utilise pas PDFCréator, donc je ne peux d'aider davantage.

Bonne nuit

Yaloo