Macro Excel pour imprimer fichier rattaché à un lien hypertexte

[benadry]

Bonjour le forum,

Je suis à la recherche d'une petite macro me permettant d'imprimer, sous Excel, un fichier pdf, si "Oui" apparaît dans la colonne AL.

En fait, j'ai toute une macro qui imprime un fichier en pdf, à partir des données Excel, l'enregistre sous pdf et j'ai créé un lien hypertexte en colonne AK (avec la fonction LIEN_HYPERTEXTE), afin que l'utilisateur voit directement le résultat de ce qui est produit.
Exemple pour la ligne 7

=SI(ET($X7="";$AH7="Oui");"Lien hypertexte non activé";LIEN_HYPERTEXTE(CONCATENER("G:\A\B\C\D\E\";$AJ7;"-";$B7;".pdf");"Cliquer pour ouvrir"))".

En AM7, j'ai indiqué :

=(CONCATENER("G:\A\B\C\D\E\";$AJ7;"-";$B7;".pdf");"Cliquer pour ouvrir")

Je souhaiterais maintenant que si la cellule AL7 comporte "Oui", la macro imprime le résultat de la concaténation, qui se trouve en AM7.

J'ai inséré, dans la feuille de calcul la macro suivante :

    On Error Resume Next
    If Not Application.Intersect(Target, ShDonnees.Columns("AL:AL")) Is Nothing Then
         
         If UCase(Target) = "OUI" Then
  
         Ligne = Target.Row
            
         Continuer = True
         Imprimer
         
    End If
    
    End If

    End Sub

Et dans module1, celle-ci

 Sub Imprimer()
  
 Sheets("Base").[AM7].Value.PrintOut
  
  
  End Sub

Et il ne se passe rien ! Quelqu'un qui passerait aurait-il une idée ?

Merci d'avance.

Cordialement.