XL 2019 Changer nom d'export en VBA

Pierre111 à dit:

Bonjour,

J'ai un code VBA qui me permet d'extraire en PDF l'ensemble des feuilles de mon classeur (sauf la première feuille qui contient des données d'utilisation).
Le nom d'export est celui du nom de la feuille.
Or j'aimerai que le nom d'export soit la concaténation du contenu des cellules A19 (n° de facture) et H11(nom du client).

Pouvez-vous m'aider ?

Merci par avance pour votre aide.
Bonne journée,
Pierre111

VB:

Option Explicit
Sub Generer_Impression_Feuille()
 
'=============================================================================================
' Parcours l'ensemble des feuilles du classeur et genere un fichier PDF au nom de la feuille
'=============================================================================================
        Dim Nom_Fic As String
        Dim Nom_Chemin As String
        Dim Nom_Chemin_Fic As String
        Dim I As Integer
        Dim WS_Count As Integer
       
       
        'nombre de feuilles au total
         WS_Count = ActiveWorkbook.Worksheets.Count
 
 
        'Selection du dossier d'export par l'utilisateur
          With Application.FileDialog(msoFileDialogFolderPicker)
               .Title = "Sélectionnez votre dossier d'export PDF"
               .Show
       
               'Nom du dossier sélectionné
               If .SelectedItems.Count > 0 Then
                   Nom_Chemin = .SelectedItems(1)
               End If
       
           End With
   
         'Parcours de l'ensemble des feuilles
         For I = 2 To WS_Count
           
            Sheets(ActiveWorkbook.Worksheets(I).Name).Select
            Range("A1").Select
           
            'Le nom du fichier sera le nom de la feuille
            Nom_Fic = ActiveWorkbook.Worksheets(I).Name
           
            'On construit le nom global du chemin et le fichier avec l'extension .pdf
            Nom_Chemin_Fic = Nom_Chemin & "\" & Nom_Fic & ".pdf"
           
            'Export PDF de la feuille
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                 Nom_Chemin_Fic _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=False
       
         Next I
       
End Sub

Cliquez pour agrandir...