VBA pour impression BeforeClose

Résolu/Fermé

helma91 Messages postés 51 Date d'inscription dimanche 19 avril 2015 Statut Membre Dernière intervention 14 juillet 2017 - 29 juil. 2016 à 11:55
helma91 Messages postés 51 Date d'inscription dimanche 19 avril 2015 Statut Membre Dernière intervention 14 juillet 2017 - 29 juil. 2016 à 15:31

Bonjour à tous,

Je vous explique le problème. Je débute en VBA et j'ai réussi à établir un code pour une MsgBox lorsque je ferme mon document pour me demander si je souhaite imprimer avant fermeture, ce qui fonctionne bien. Cependant j'aimerais que cette action ne s'effectue seulement le vendredi (Jour ou j'oublie souvent d'imprimer ma feuille) et non à chaque fois que je ferme mon fichier. J'ai vu que c'était possible avec Weekday(Now)=6 ?
Mais je ne sais pas comment faire...

Merci d'avance à ceux qui pourront me donner un petit coup de pouce!

Voici le bout de code qui fonctionne:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Msg = "Voulez-vous imprimer avant de fermer?"
Réponse = MsgBox(Msg, vbYesNo + vbExclamation, "ATTENTION!")

If Réponse = vbYes Then Worksheets("relevé heure").PrintOut
Application.Quit

If Réponse = vbNo Then ThisWorkbook.Save
ThisWorkbook.Save
Application.Quit

End Sub

Salutations à tous!

A voir également:

VBA pour impression BeforeClose
Spouleur d'impression - Guide
Impression ecran windows - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Fatima a lancé l'impression de plusieurs documents, mais elle se rend compte qu'il n'y a presque plus d'encre dans l'imprimante. elle décide alors de n'imprimer que son cv, en un seul exemplaire. faites les opérations nécessaires dans le gestionnaire d'impression ci-dessous. ✓ - Forum Word

1 réponse

Réponse 1 / 1

Utilisateur anonyme
Modifié par albkan le 29/07/2016 à 15:32

Bonjour helma91,

Je te propose d'essayer ce code VBA :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Weekday(Now) = 6 Then
    Msg = "Voulez-vous imprimer avant de fermer ?"
    Réponse = MsgBox(Msg, 52, "ATTENTION !")
    If Réponse = vbYes Then Worksheets("relevé heure").PrintOut
  End If
  ThisWorkbook.Save: Application.Quit
End Sub

Comme on est Vendredi, ça imprimera aujourd'hui, mais pas
Samedi et Dimanche, ni Lundi à Jeudi. 😉

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement. 😊

helma91 Messages postés 51 Date d'inscription dimanche 19 avril 2015 Statut Membre Dernière intervention 14 juillet 2017 3
29 juil. 2016 à 15:31

Bon bah merci beaucoup ça marche! :-)

Très gentil de ta part albkan!

A+

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Transparence en tete et bas de page

VBA : Range avec références variables..

VBA pour Excel pour les nuls

VBA erreur 1004

Discussions similaires

Newsletters