Macro impression pdf a partir d'une liste

Version imprimable

23/01/2020, 15h45
wouairness

Macro impression pdf a partir d'une liste

Bonjour a tous;

Je souhaiterais un macro (exécutable via un bouton) permettant d'imprimer des documents PDF via son nom qui ce trouve dans une plage de cellule.

Description:

-Chaque pdf a pour nom un code "SDIS" du type : 12345-00001,12345-00002,etc
-il existe un dossier pour chaque commune (7 dossiers) qui ne comporte pas les même pdf
- le nom de la commune ce trouve en "E5" sur la feuille "FD"
- La plage de cellule ce trouve de "D28 a D37"
- l'adresse du dossier qui comporte les communes qui elle méme comporte les fichier pdf est :D:\Système Hydro\RESET\Sauvegarde Générale (pendant cette année)\Rapport- Devis\Fiche ID\Fiche ID "nom de la commune en E5" 2019\"titre du fichier de D28 a D37".pdf

Problématique:

Je souhaiterais que quand j'effectue le macro il détecte le nom des fichier PDF présent dans la plage de cellules et les imprimes.

Merci pour la transmission de votre savoir :mouarf:

1 pièce(s) jointe(s)

Bonjour,

Bien que je n'aie pas tout à fait bien compris votre demande, voici toujours une piste pour imprimer une série de fichiers pdf.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
            ByVal hwnd As Long, _
            ByVal lpOperation As String, _
            ByVal lpFile As String, _
            ByVal lpParameters As String, _
            ByVal lpDirectory As String, _
            ByVal nShowCmd As Long) _
            As Long
 
Public Sub PrintPDF()
    Dim kRow As Long, sDoss As String, sPdf As String
    sDoss = "D:\Système Hydro\RESET\Sauvegarde Générale (pendant cette année)\Rapport- Devis\Fiche ID\Fiche ID NomCommune 2019\NomFichier.pdf"
    With Sheets("FD")
        For kRow = 28 To 37
            If .Range("D" & kRow) <> "" Then
                sPdf = Replace(sDoss, "NomCommune", .Range("E5"))
                sPdf = Replace(sPdf, "NomFichier", .Range("D" & kRow))
                If Dir(sPdf) = "" Then
                    MsgBox "Fichier manquant:" & vbCrLf & sPdf, , "Anomalie"
                Else
                    Call apiShellExecute(Application.hwnd, "print", sPdf, vbNullString, vbNullString, 0)
                End If
            End If
        Next kRow
    End With
End Sub

Bonne continuation.

05/02/2020, 15h11
wouairness

Merci pour ton aide mais ton code ne fonctionne pas avec ma version 64 bits

Bonjour,

Essayer avec ceci (en remplacement de la partie Declare):

Code:

1
2
3
4
5
6
7
8
9
#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Un lien utile: Développer avec Office 64 bits

Cordialement.

07/02/2020, 08h13
wouairness

1 pièce(s) jointe(s)

Bonjour je suis désolé mais ton code déclare encore une erreur, étant un débutant dans le VBA je te fournie un screen de la situation.
Pièce jointe 536566

Bonjour,

Il est normal que la partie entre le #Else et #End If soit en rouge.
Sur votre machine 64bits c'est la partie qui suit l'instruction #If VBA7 Then qui est employée.
Le même fichier sur une machine 32bits utilisera ce qui suit l'instruction #Else.

Maintenant, il y a quand même une faute d'inattention: dans la déclaration il faut nommer la fonction apiShellExecute (et non ShellExecute) pour qu'il y ait concordance avec l'instruction Call apiShellExecute ... appelée dans la procédure PrintPdf().
Code:

1 2 3 4 5 6 7 8 9 #If VBA7 Then Private Declare PtrSafe Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #Else Private Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #End If
Bonne continuation.