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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'
'
'  Developpe par Gamal le Celte avril 2006
'
'    Fonction qui contourne le bug du Pack Office 97 et suivant
'    qui transforme une date de la norme française à la norme
'    US utilisée dans un source VBA.
'
'    Cette fonction reçoit une variable au format As Date et
'    retourne le numéro de série de cette date.
'
'    Cette fonction peut être optimisée, elle est faite ainsi 
'    pour que tous puisse comprendre
'
'   ----------------------------------------------------------------------
'
'    créez un nouveau module et copier y cette fonction pour l'utiliser.
'
'    exemple : Cells(16, 11).Value = CorrecDateEcxel(TexDatSai.Value)
'                                      ici utilisation d'un objet TextBox
'
'    où : Cells(16, 11).Value est la cellule à incrémenter
'         CorrecDateExcel(.....) L'appel de la fonction
'         TexDatSai.Value le controle contenant la date source,
'                 peut être remplacée par une variable
'
'
Function CorrecDateExcel(madate)
 
    Dim lemois As Integer
    Dim lejour As Integer
    Dim lannee As Integer
    Dim datetxt As String
    Dim bondate As Date
 
    lannee = Year(madate)
    lemois = Month(madate)
    lejour = Day(madate)
 
    datetxt = Str(lejour) + "/" + Str(lemois) + "/" + Str(lannee)
    bondate = DateValue(datetxt)
 
    CorrecDateEcxel = bondate
 
End Function