Discussion :

[scoubi77]

Bonjour à tous,

J'ai un soucis pour convertir une date de la forme 11/03/2015 en MERCREDI 11 MARS 2015
Sur certaines dates ça fonctionne mais sur d'autres non, j'ai une erreur d’exécution 9 l'indice n'appartient pas à la sélection


Voici ma programmation :

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 TextBox1_Change()
 
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(TextBox1)
    If Valeur = 2 Or Valeur = 5 Then
    TextBox1 = TextBox1 & "/"
 
End If
TextBox1.Text = UCase(TextBox1.Text)
 
End Sub
 
Private Sub CommandButton1_Click()
j = Array("", "LUNDI", "MARDI", "MERCREDI", "JEUDI", "VENDREDI", "SAMEDI", "DIMANCHE")
m = Array("", "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
TextBox2 = TextBox1.Value
TextBox2 = j(Day(TextBox1.Value)) & " " & Day(TextBox1.Value) & " " & m(Month(TextBox1.Value)) & " " & Year(TextBox1.Value)
 
End Sub

J'ai constitué un fichier exemple, par exemple la date 11/03/2015 ne fonctionne pas, le 01/01/2015 fonctionne !
Merci par avance pour vos aides