Afficher mois en cours

[mohamed1]

j’ai un calendrier excel mensuel a anglet (jan. févr.ect), je veus qui’il m’afffiche directement le mois en cours.

[taz067]

BONJOUR !
Avec un fichier et une petite formule de politesse, (parce qu’on n’est pas des bêtes) ça ira mieux.
Merci !

[mohamed1]

Bonjour
Ca ne me traverse meme pas l’esprit le manque de politesse parce que je suis éduqué sur les valeurs de respect, de considération et du service qu’on fourni à l’autrui. Seulement comme c’est ma première experience, j’ai appuyé accidentelement sur l’envoi avant que je termine et j’ai pas su y revenir pour terminer avec ce que vous appeler manque de politesse.
Quoi qu’il en soit MERCI tout de meme

[taz067]

Sinon et le fichier ?
qu’au moins, on sache sur quoi se baser !

[Cow18]

bonjour,
vous pouvez copier& coller cette macro dans le module de « Thisworkbook »

Private Sub Workbook_Open()
     Dim sh    As Worksheet
     s = Evaluate("text(today(),""[$-fr-fr]mmm"")")     'abbrev. du mois actuel
     On Error Resume Next
     Set sh = Sheets(s)
     On Error GoTo 0
     If sh Is Nothing Then
          MsgBox "sorry"
     Else
          Application.Goto sh.Range("D1")    'mettez-vous dans cette cellule du mois actuel
     End If
End Sub