Changer le type de données suite à un import automatique (standart to int)

**bilou_12** · 25/05/2012, 14h35

Bonjour,

Avec le code ci-dessous, j'importe un fichier .txt qui contient plein 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
22
Sub ImportData()
 
    cheminImport = "L:\COMMUN SERVICES\Data\"
    d = Date
    FormatDate = Format(Day(d), "00") & "_" & Format(Month(d), "00") & "_" & Format(Year(d), "00")
    nomFichierImport = "BondPaper_" & FormatDate & ".txt"
    nomFeuilleImport = "BondPaper_" & FormatDate
    ThisWorkbook.Sheets("GLOBAL").Cells.ClearContents
 
 
    'Ouverture dans un nouveau fichier Excel du fichier txt
    Workbooks.OpenText Filename:=cheminImport & nomFichierImport, _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Semicolon:=True
 
    'Copie de la feuille important les données du .txt dans le workbook RECUP_CURVE worksheet IMPORT_KONDOR
    Workbooks(nomFichierImport).Sheets(nomFeuilleImport).Cells.Copy ThisWorkbook.Sheets("GLOBAL").Range("A1")
 
    'Fermeture du nouveau fichier quand il a été copié
    Workbooks(nomFichierImport).Close
 
 
End Sub

Sur la colonne H, j'ai des nombres (représente des prix).
Problème: je peux pas sommer 2 prix! Ils ne sont pas reconnus comme des nombres!

Code :

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

CInt

ne fonctionne pas! Je me suis donc lancé dans une macro hasardeuse dont voila mon tets pour une des cellules:

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
    Dim Table() As Variant
    Dim nombre As Variant
 
    m = Len(Worksheets("GLOBAL").Range("H6"))
    ReDim Table(1 To m)
 
    For i = 1 To m
        Table(i) = Mid(Worksheets("GLOBAL").Range("H6"), i, 1)
    Next
 
    nombre = ""
    For i = 1 To m
        nombre = nombre & Table(j)
        Debug.Print (nombre)
    Next