Lancer Macro Après impression ou fermeture aperçu impression Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 33
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 14 novembre 2019, 10:58

Re Marc59300,

Il faut savoir qu'il est possible d’interagir avant l'impression avec la procédure :
Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub
En revanche, aucune procédure ou fonction de base n'existe pour le moment pour effectuer une action après l'impression.

En recherchant, il doit être pourtant possible d'identifier la fin d'une impression, vu ici, mais le lien présenté est mort...

Le problème également du code que je t'ai donné, je m'en suis aperçu après, c'est qu'il s'exécute si l'impression est lancé ou si c'est annulé. ::(


Il te reste deux solutions :
  • Détecter dans l'aperçu avant impression si l'utilisateur clique sur "Imprimer" ou s'il quitte la process et en fonction, exécuter ton code
  • Créer ton propre aperçu avant impression, avec les boutons "Imprimer" et "Quitter" pour effectuer ton code en fonction.
Cette solution passerai pas un UserForm (?)

Malheureusement, je ne sais pas si ces solutions sont réalisables et je n'ai pas les connaissances et capacités de t'aider... :oops:
Sache que si elles ne sont pas réalisable, ta demande ne doit pas être possible, ou alors il y a une méthode que je n'ai pas envisagée :scritch:

En espérant qu'une âme charitable vienne à ton secours,

Bonne journée,

Baboutz
Avatar du membre
Marc59300
Jeune membre
Jeune membre
Messages : 27
Appréciation reçue : 1
Inscrit le : 14 octobre 2019
Version de Sheets : fr

Message par Marc59300 » 14 novembre 2019, 11:39

Baboutz ,

Merci de ton aide et OUI j’espère une bonne âme pour m'aider.....
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'308
Appréciations reçues : 144
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 14 novembre 2019, 11:50

Bonjour,
Lancer une impression avec aperçu c'est :
Sub test
ActiveSheet.PrintOut Preview:=True
'Après si tu veux lancer une autre macro tu l'appelles sur la ligne suivante 
'Exemple :
MsgBox "C'est compris ?"
End Sub
A+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message