Discussion :

[DJ FA]

Bonjour j'aimerais recevoir à l'ouverture de mon fichier excel et qu'à compter du 25 de chaque mois être averti d'une action à effectuer, merci à vous.

[casefayere]

Bonjour,
code dans thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
If Day(Now) = 25 Then MsgBox "on est le 25"
End Sub

[DJ FA]

J'ai récupérer et modifier cette macro d'un autre forum elle me convient très bien, mais j'ai un petit soucis, mon msgbox ne fonctionne plus, merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_Open()
If Day(Now) = 25 Then MsgBox "Attention le 25 du mois !"
 
 
Dim folio As Worksheet
Dim Mois As Variant
 
' Création du tableau des mois
' Il faut modifier ce tableau en cas de modification des noms de feuilles
Mois = Array(" ", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
' Remise à blanc du format des onglets
For Each folio In Worksheets
  folio.Tab.Color = xlColorIndexNone
Next folio
On Error Resume Next ' poursuit le programme si la feuille n'existe pas
' Mise en surbrillance et activation de la feuille du mois en cours
Sheets(Mois(Month(Date))).Tab.ColorIndex = 3
Sheets(Mois(Month(Date))).Activate
End Sub

[SfJ5Rpw8]

Quel message box ?

[DJ FA]

A la ligne 2.

[SfJ5Rpw8]

Ben on n'est pas le 25

[DJ FA]

J'ai changé la date sur mon pc.

[AlainTech]

Bonjour j'aimerais recevoir à l'ouverture de mon fichier excel et qu'à compter du 25 de chaque mois être averti d'une action à effectuer, merci à vous.

Bonjour,

A l'ouverture de ton fichier, il n'est pas question de feuille ni de mois.
Tout ce qu'on peut savoir c'est si on est un jour >= à 25 ou pas.

Si tu essayais de mettre un peu d'ordre dans ta tête et nous dire exactement ce que tu veux?

[DJ FA]

Je pose un fichier dans la semaine.

[SfJ5Rpw8]

Je pose un fichier dans la semaine.

bonsoir, ce n'est pas d'un fichier que l'on as besoin .. mais que tu pose ton problème plus clairement ... !