Discussion :

[Invité]

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

[Invité]

Bonjour à tous,

Quelqu'un sait comment rappeler un fichier nouvellement créer et le fermer ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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

Rappeler ici pour garder le nom du fichier et convertir avec CurePDF Writer (pas le choix)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call Module6.ConversionPdfFeuille1
End Sub

Car présentement il me donne le nom de Classeur1 mais pas dans le dossier qui lui est Semaine du 4 mars au 10 mars 2013

Merci de votre aide à l'avance

[Jean-Philippe André]

Hello,

quelle est exactement la question ?

Merci d'être plus explicite

[Invité]

Bonjour Jean-Philippe,

merci de vous intéressé à mon problème.

C'est vrai que le problème n'était pas évoqué dans ma demande initiale.

En fait, ces quand j'enregistre le dossier en .PDF après l'avoir sauvegardé en .xls avec un nom de fichier semaine du 4 mars au 10 mars 2013 , il ne garde pas le même nom de fichier que le .xls et me donne plutôt comme nom fichier classeur1.pdf.

J'espère d'avoir été plus claire cette fois-ci.

merci