Re,
Oui c’est possible !
Mais pas pour les 5 feuilles sauf bien sur qu’on annule la liste déroulante mais c’est pas ce que vous voulez.
je vous fait une dernière correction:
Sub Exporter_en_PDF()
Dim page As Range
Dim Emplacements As FileDialog
Dim emplcaments As String
If Range("N7") <> "" Then
Emplacement = Range("N7")
Else
On Error GoTo fin
Set Emplacements = Application.FileDialog(msoFileDialogFolderPicker)
Emplacements.Show
Emplacement = Emplacements.SelectedItems(1)
Range("N7") = Emplacement
End If
Range("N24").CurrentRegion.Name = "Liste"
Application.ScreenUpdating = False
On Error GoTo fin
For a = 2 To 8
If a <> 7 Then
Sheets(a).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Emplacement & "\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
Sheets(a).Select
For Each page In Range("Liste")
Range("E15") = page
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Emplacement & "\Présentation - " & page & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Next
End If
Next
Application.ScreenUpdating = True
Sheets(1).Activate
Exit Sub
fin:
End Sub
Fichier V1 du 14 03 2023.xlsm (103,3 Ko)
Will-Fread