Convertir une feuille excel en pdf

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

Hello,

essaye plutôt cela

Code:

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