Bjr,
J'utilise la fonction de conversion de mois français-anglais dans un état, dans une entête de groupe date_delivery regroupant les opérations par mois après une sélection d'une année dans une boîte de dialogue :
la fonction utilisée dans un module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub EntêteGroupe1_Format(Cancel As Integer, FormatCount As Integer) Dim prmDate As String If IsNull(Forms!frm_dial_list!yeardelivery) Or IsNull(Forms!frm_dial_list!monthdelivery) Then Exit Sub Else prmDate = Format(Month(delivery_date), "mmmm") moisFormatAnglais (prmDate) Me!moisEnAnglais = moisFormatAnglais(prmDate) End If End Sub
une erreur 13 (incompatibilité de type) est retounée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Function moisFormatAnglais(prmDate As String) Dim result As String 'Dim prmDate As Date Dim nomMoisAnglais As Variant: nomMoisAnglais = Array("january", "february", "march", "april", "may", "june", "july", "August", "september", "october", "december") Dim nomMoisFrancais As Variant: nomMoisFrancais = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre") result = Format$(prmDate, "mmmm") result = Replace(result, nomMoisFrancais(Month(prmDate) - 1), nomMoisAnglais(Month(prmDate) - 1)) moisFormatAnglais = result End Function
Quelqu'un peut-il m'aider ?
Merci
Partager