Bonjour à tous,

Je sollicite votre aide car le fichier s'enregistre bien et la conversion en .pdf se fait correctement mais le nom du fichier n'est pas le même que le .xls. Je n'ai pas le choix de convertir avec CutePDF Writer.

Si vous avez une piste ou une solution...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub XlsF1()
Dim Chemin As String, Extension As String
Application.ScreenUpdating = False
Extension = ".xls"
Chemin = Worksheets(12).Range("K18")
Worksheets(1).Copy
ActiveWorkbook.SaveCopyAs Chemin & Range("C1") & " " & Range("d1") & Extension
Application.ScreenUpdating = True
Call Module6.ConversionPdfFeuille1
End Sub
Le code du Call Module6.ConversionPdfFeuille1 est:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub ConversionPdfFeuille1()
Worksheets(1).Select
Application.ActivePrinter = "CutePDF Writer sur CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer sur CPW2:", Collate:=True
End Sub