Discussion :

[LAMA youcef]

j'ai pas eu de resultas pour ce code pouver vous m'aider?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub SaveTOpdf()
    On Error GoTo 1
   'Enregistrement au format PDF
    Application.DisplayAlerts = False
    MyFile = "d:\Conventions\Conv_" & Me.lst_Fiche.Column(0, ListIndex) & ".PDF"
    Sheets("Conventions").ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile, quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, from:=1, To:=1, openafterpublish:=True
 
1
End Sub

[don_pets]

Hello,

essaye plutôt cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim finput As FileDialog
Dim fichier As String
On Error Goto 1
Set finput = Application.FileDialog(msoFileDialogFolderPicker)
finput.Show
	With finput
Sheets(1).Select ' mets ici le nom de ta feuille à transformer
fichier = .SelectedItems(1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    ignorePrintAreas:=False, OpenAfterPublish:=True
1:
	End With

Hasta la vista