Exporter en pdf plusieurs feuilles générées via une liste déroulante

[FFO]

Chez moi c est nickel avec

chemin = ThisWorkbook.Path & «\»

Même cette option ne marche pas donc

Si c est le cas le code étant correct (fonctionne très bien chez moi) c est ton excel qui défaille pas d autre option

Je ne peux t aider en conséquence

Si quelqu’un à une idée

[Mimimathy]

Re,
ThisWorkbook.Path= « D:\Bulletin », pas la peine de le remettre

chemin = ThisWorkbook.Path & "\Bulletin 1\"

[Mimimathy]

Re,

Teste ceci

Sub Image3_Cliquer()
  Dim Liste As String, A As Range
    With Sheets("Bulletin")
      Liste = .Range("I1").Validation.Formula1
      Liste = Right(Liste, Len(Liste) - 1)
      For Each A In Range(Liste)
        .[I1] = A.Value
       
        chemin = ThisWorkbook.Path & "\Bulletin 1\"
        nom = ActiveSheet.Name & " " & .Range("C1").Value & " " & .Range("F1").Value & ".Pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
        .PrintPreview
      Next A
    End With
End Sub