Msgbox ponctuel

Résolu
arthur11 -  
 arthur11 -
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 =)

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1
    1. arthur11
       
      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...
      0

Discussions similaires

désactiver le service ponctuels free
lulu -
brucine -

9 réponses
Arnaque services fournis par des tiers ....
vertholly -
vertholly -

8 réponses
Service ponctuel et occasionnel free
Dungasman -
Pierrecastor -

1 réponse
[macro openoffice] programmation d'un msgbox
Didier61 -
Didier61 -

6 réponses
services ponctuels ou occasionnels orange
nico2stflo -
exla -

1 réponse