Msgbox ponctuel

Résolu/Fermé

arthur11 - 9 juin 2016 à 14:35
arthur11 - 9 juin 2016 à 16:57

Bonjour,
Je souhaiterais afficher un msgbox à l'ouverture d'un fichier Excel tous les lundis et aucun autre jour.

Comment est-ce possible ?

Merci par avance =)

A voir également:

Msgbox ponctuel
Php msgbox ✓ - Forum PHP
Vba msgbox bouton personnalisé - Forum VB / VBA
Supplément ponctuel orange ✓ - Forum Réseaux sociaux
Msgbox range ✓ - Forum Excel
Msgbox java ✓ - Forum Java

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 9/06/2016 à 15:03

Bonjour,

A mettre dans ThisWorkbook :

Option Explicit
Private Sub Workbook_Open()
Dim madate As Date
Dim jour As Integer
jour = Weekday(madate, vbMonday)
MsgBox jour
If jour = 6 Then 'a adapter le jour pour le lundi
MsgBox "Jeudi"
End If
End Sub

pour en savoir plus:

http://boisgontierjacques.free.fr/pages_site/FonctionsDates.htm

@+ Le Pivert

arthur11
9 juin 2016 à 16:57

merci pour l'aide,

Au final j'ai trouvé un moyen via la macro
Sub Auto_Open
et j'ai intégré ma macro dedans...

Discussions similaires

services ponctuels ou occasionnels orange

arnaque chez orange probleme de facture

désactiver le service ponctuels free

Msgbox dans un .bat

[VB]MsgBox avec variable

Discussions similaires

Newsletters