Bouton export PDF avec code VBA

Je ne comprends plus. Peux-tu partager le classeur ?

Daniel

Le cellule Source contient le chemin et le nom d'un fichier CSV alors qu'on crée un fichier PDF. Que veux-tu faire au juste ?

Daniel

je veux créer un fichier pdf qui a pour nom la cellule "MB" =, ceci enregistrer dans le dossier indiquer dans la cellule "SOURCE"

Soyons clair : la cellule SOURCE contient le nom et le chemin d'un fichier csv, pas celui d'un dossier. Le dossier du fichier csv est "Gainier_2439" dont le chemin est : "Y:\2020 CAD\Base CAD V8\Clients". Est-ce dans ce dossier que tu veux enregistrer le fichier PDF ?

Daniel

Oui c'est ça

Essaie :

Sub ImprimerVpat()
  Dim x&, HPB, ligne&, i&, Lig As Long, Chemin As String
  x = 1
  With Sheets("Rapport")
      Lig = Range("F:F").Find("*", , xlValues, , xlByRows, xlPrevious).Row
        If Lig < 88 Then Lig = 88
      .PageSetup.PrintArea = "A1:L" & Lig
      For i = 1 To .HPageBreaks.Count
          ligne = .HPageBreaks(i).Location.Row
          If .Cells(ligne, "F").Text <> "" Then x = x + 1
      Next
    Chemin = Left(Range("source"), InStrRev(Range("source"), "\"))
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin & Range("MB") & ".pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
  End With
End Sub

Daniel

PARFAIT, merci beaucoup