Discussion :

[oliver75]

bonjour,

je charge des données dans un tableau excel via une macro. lors de larecupération des données , j'ai un message d'erreur dans la cellule du type : nombre stocké sous format texte .

comment faire pour convertir lors de l'import ces données sous format numérique.

merci de votre aide.

olivier

[ouskel'n'or]

Je n'ai pas bien compris mais tu peux toujours essayer

Code :

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

LaVal = Val(LaDonnée)

Mais tout dépend de la valeur qu'a ta donnée.
Si tu pouvais être plus précis

[oliver75]

J'importe via un macro des cours d'une base de données

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
 
Function chargement_cours_j_moins1correlationindice(codeprodui) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
'cette fonction sert à récupérer les informations pour enrichir l'onglet correlation indice
    cours = 0
 
 Set ptr = CreateObject("ADODB.Recordset")
 
 
    ptr.Open "SELECT _COURSCLOSE FROM omega.com.prixhist WHERE _codeprodui = '" & codeprodui & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
 
        cours = ptr("_COURSCLOSE")
        Exit Do
    Loop
    chargement_cours_j_moins1correlationindice = cours
 
End Function

je récupère bien dans mon tableau excel les cours souhaités. Le problème est que ces cours sont importé sous format texte .

comment faire pour que l'intégration de ces cours se fasse sous format numérique.

merci de votre réponse

Olivier

[ouskel'n'or]

Code :

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

1
2
3
        cours = Val(ptr("_COURSCLOSE"))
'ou
        cours = cdbl(ptr("_COURSCLOSE"))

Teste les deux
A+

[oliver75]

je vais la manip pour importer les données dans deux onglets différents.
dans un cas ca marche pas pas dans l'autre

[ouskel'n'or]

Tu peux être plus précis ? (tu ne devrais pas avoir de mal... parce que là )
A+