XL 2019 Macro impression de liste PDF

Avec la possibilité de fusion en 1 seul pdf de l'ensemble des feuilles, ou de génération des feuilles sélectionnées de façon séparée, de gestion des doublons via un indice, le tout dans un dossier créé automatiquement et nommé par défaut Dossier PDFs à la racine de l'application. L'ensemble des feuilles ( visibles ou pas ) est listé via le bouton Récap.

Cliquez pour agrandir...

kiki29 à dit:

Re, à toi de poursuivre/adapter à ton contexte
ici shChauffage est le CodeName de l'onglet CHAUFFAGE

VB:

Sub CopiePDF_Repertoire()
Dim i As Long, iNb As Long
Dim FSO As Object
Dim sFichier As String, sDossierDep As String, sDossierArr As String

    Set FSO = CreateObject("Scripting.FileSystemObject")
    For i = 11 To 24
        sDossierDep = shChauffage.Cells(i, 2)
        sDossierArr = sDossierPDFs
        sFichier = shChauffage.Cells(i, 2) & ".pdf"
        If FSO.FolderExists(ThisWorkbook.Path & "\" & sDossierDep) Then
            If FSO.FileExists(ThisWorkbook.Path & "\" & sDossierDep & "\" & sFichier) Then
                FileCopy ThisWorkbook.Path & "\" & sDossierDep & "\" & sFichier, ThisWorkbook.Path & "\" & sDossierArr & "\" & sFichier
            End If
        End If
    Next i
    Set FSO = Nothing
End Sub

Cliquez pour agrandir...