Plusieurs onglets en plusieurs pdf

Bonjour à tous,

Voilà je cherche à modifier ce code, qui me permet d'extraire plusieurs onglets excel en fichiers pdf séparés.

La macro fonctionne très bien pour mon usage, mais je souhaiterais si possible que les fichiers pdf soient renommés en désignant une cellule (par exemple U4) parce qu'actuellement ils se nomment tous "feuille_1.pdf feuille_2.pdf , " etc... Je dois donc les renommés manuellement.

Sub Macro1()
For i = 1 To Sheets.Count
Sheets(i).Select
    ChDir "C:\Users\****\Documents\Factures"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\****\Documents\Factures\feuille_" & i & ".pdf"
Next i
End Sub

Je vous remercie par avance

Bonsoir FBidee, le forum,

A tester....

Sub exportPDF()
 Dim sh As Worksheet, nompdf As String, dossier As String

    Application.ScreenUpdating = False

         dossier = "C:\Users\****\Documents\Factures\"

      For Each sh In ThisWorkbook.Worksheets
          nompdf = sh.Range("U4")
          chemin = dossier & nompdf
       sh.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=chemin, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
      Next sh
End Sub

Cordialement,

Re,

Si tu tiens à ta boucle....

Sub Macro1()
 Dim nompdf As String, dossier As String

 Application.ScreenUpdating = False

  For i = 1 To Sheets.Count
   With Sheets(i)
    dossier = "C:\Users\****\Documents\Factures\"
    nompdf = .Range("U4").Value
    chemin = dossier & nompdf
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin
   End With
  Next i
End Sub

Bonjour,

Merci beaucoup

Alors par contre, c'est très étrange.

J'ai essayé ta macro sur un fichier excel "vierge", juste pour la tester, ça marche très bien, par contre sur mon gros fichier excel il bug à partir de

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin

.. alors que c'est exactement le même code

Je ne comprend pas la logique

Re,

J'ai été un peu bête

Le macro n'accepte pas certains caractères spéciaux, tout comme Windows quoi!

Donc il ne faut pas utiliser les \ / : * ? , etc …

Merci beaucoup xorsankukai

Sujet résolu!