Bonjour à tous;

Je dois importer un tableau d'un fichier.csv ci-dessous en un fichier.xls,

---------------------------Fichier.CSV

Journee Taux 1 Taux 2 Taux 3 Taux 4
01/06/2009 56,00% 83,00% 12,00% 43,00%

------------ Apres le macro j'obtiens ce qui suit ( en bas)------------

-----------------------------Fichier.XLS

Journee Taux 1 Taux 2 Taux 3 Taux 4
01/06/2009 (ok) 56 (sans %) (vide) (vide) (vide)
----------------------------------------
la date est bon; Taux1 n'a pas le signe % et Taux 2,3,4 sont vides

Voici le macro

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
Sub importTauxTri()
exportTauxsys = Range("exportTaux") ' fichier.csv
 importTauxsys = Range("importtaux") ' fichier.xls
 
Workbooks.Open Filename:=dossier & "\" & exportTauxsys
Columns("A:A").Select
Application.DisplayAlerts = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2))
 
Application.DisplayAlerts = True
 
  'activation du classeur et de la feuille de destination
 
Windows(Classeur).Activate
Sheets(importTauxsys).Activate ''''
Sheets(importTauxsys).Visible = True
Sheets(importTauxsys).Select
 
 'collage des données à leur destination
 
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Question: Pouvez vous m'aider à faire afficher le signe (%) du Taux 1 et les autres Taux où les cellules sont vides.

Merci d'avance;