Bonjour à toutes et à tous,

Je dois faire en sorte qu'à l'ouverture d'un fichier, un slogan s'affiche dans une cellule et change en fonction du mois.

J'ai une cellule (h7) sur la feuil1 nommée "demande" dont la formule est : = aujourdhui(). En (B1) j'ai =mois(h7) format mmmm

J'ai ce code sur thisworkbook :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub thisworkbook_open()
Feuil1.SloganDuMois
End Sub
Sur feuil1 j'ai essayé le code suivant : (qui ne fonctionne pas)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub SloganDuMois()
 
If [b1] = "janvier" Then [b37] = "soglan janvier"
 
 
End Sub
Je pense que c'est parceque b1 est une formule et non une valeur ?

Merci d'avance pour votre aide.