Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro Excel pour imprimer fichier rattaché à un lien hypertexte

  • Initiateur de la discussion Initiateur de la discussion benadry
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

benadry

XLDnaute Occasionnel
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

Code:
=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é :
Code:
=(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 :

Code:
    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

Code:
 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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
185
Réponses
4
Affichages
355
Réponses
9
Affichages
379
Réponses
0
Affichages
377
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…