Discussion :

[oliver75]

bonjour,

j'importe une date dans un fichier excel d'une base de donnée via la macro ci-dessous.

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
 
Function chargement_date_j_moins1(code_isin) As Date
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
    Dim date1 As Date
 
 
    Dim dates1 As Date
    cours = 0
    Set ptr = CreateObject("ADODB.Recordset")
 
    ptr.Open "SELECT DISTINCT _CODEPRODUI FROM omega.com.produit WHERE _ISIN = '" & code_isin & "'", Mybd
    Do While Not ptr.EOF
        code_prod = ptr("_CODEPRODUI")
        ptr.movenext
    Loop
    ptr.Close
 
    ptr.Open "SELECT  _date FROM omega.com.prixhist WHERE _CODEPRODUI = '" & code_prod & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
              date1 = ptr("_date")
        Exit Do
    Loop
    chargement_date_j_moins1 = date1

l'import me restitue une date sous format numérique du type '39259' pour le 26/06/2007
comment faire pour transformer ce format num en format date.

merci de votre aide
olivier

[ouskel'n'or]

Avec le No de série, tu es sauvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chargement_date_j_moins1 = format(date1, "dd/mm/yyyy")

Fais un tour dans l'aide à Format
A+