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
En AM7, j'ai indiqué :
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 :
Et dans module1, celle-ci
Et il ne se passe rien ! Quelqu'un qui passerait aurait-il une idée ?
Merci d'avance.
Cordialement.
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.