Imprimer des fichiers PDF, listés dans des liens hypertexte

bonjour à tous,

je coince sur une macro que je voudrai utiliser pour imprimer des fichiers pdf, directionnés par des liens hypertexte contenus dans la colonne A de mon tableau (j'ai défini juste les ligne 3 à 5 pour faire un essai, mais j'ai environ 850 lignes à traiter au final):

Option Explicit

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
Const SW_SHOWNORMAL = 1

Sub ImpressionPDF2()
Dim EDD_SYSMOM_CU_B4 As Worksheet
Set EDD_SYSMOM_CU_B4 = Worksheets(1)
Dim i As Long, hwnd As Long
Dim col As Range, Adr As String

    For i = 3 To 5
        Set col = ShFichiers.Range("A" & i)
        Adr = col.Hyperlinks(1).Address
        ShellExecute hwnd, "print", Adr, "", "", SW_SHOWNORMAL
    Next i
End Sub

lors de l'exécution, je reçois en retour "erreur de compilation - variable non définie" à la ligne 'Set col = ShFichiers.Range("A" & i)'

je ne saisi pas où se situe le problème, car mes variables me semblent bien définies (i, col).

Est-ce que quelqu'un aurait une idée sur ce sujet...

Merci d'avance.

Bonjour,

je peux me tromper, mais "ShFichiers" fait référence à une feuille de ce nom avec le Range("A" & i).

il faudrait le remplacer par ActiveSheets ou le nom de votre feuille non?

Merci skybloo pour ta réponse, mais cela ne change rien...

"ShFichiers est le CodeName de la feuille recevant les données"

Une autre idée?

Merci encore...

Petite précision:

je crois comprendre qu'il me manque une définition en en tête, du genre Private Declare Function

j'ai déjà mis :

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

mais il doit très probablement me manquer quelque-chose pour définir "ShFichiers.Range"

Quelqu'un aurait-il une aide à m'apporter?

Merci

bonjour à tous...

Personne n'a d'idée?