Bonjour,
Tu devras faire quelques opérations supplémentaires dans ta macro, en appliquant les 2 transformations ci-dessus à une variable string "Format(Date, "mmm")"...
Dim TaChaine As String
TaChaine = Format(Date, "mmm")
1. Supprimer les accents :
Function SupprimerAccents(ByVal sChaine As String) As String
Dim sTmp As String, i As Long, p As Long
Const sCarAccent As String = "ÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"
Const sCarSansAccent As String = "AAAAACEEEEIIIINOOOOOUUUUYaaaaaaceeeeiiiinooooouuuuyy"
sTmp = sChaine
For i = 1 To Len(sTmp)
p = InStr(sCarAccent, Mid(sTmp, i, 1))
If p > 0 Then Mid$(sTmp, i, 1) = Mid$(sCarSansAccent, p, 1)
Next i
SupprimerAccents = sTmp
End Function
Pour l'utiliser :
SupprimerAccents(TaChaine)
2. Passer une chaîne de caractères en majuscule :
Ucase("TaChaine")