VBA pour impression BeforeClose
Résolu
helma91
Messages postés
51
Date d'inscription
Statut
Membre
Dernière intervention
-
helma91 Messages postés 51 Date d'inscription Statut Membre Dernière intervention -
helma91 Messages postés 51 Date d'inscription Statut Membre Dernière intervention -
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!
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 livret a5 - Guide
- Impression ecran samsung - Guide
- Problème impression pdf texte manquant - Forum PDF
- Impression miroir ✓ - Forum MacOS
1 réponse
Bonjour helma91,
Je te propose d'essayer ce code VBA :
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. 😊
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. 😊
Très gentil de ta part albkan!
A+