Discussion :

[dogon]

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;

[AnneCa]

Pour ce qui est d'afficher les pourcentages, voilà une solution possible

Code :

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

1
2
 Columns("E:E").Select
    Selection.NumberFormat = "0.00%"

[Krovax]

Je pense que ton souci est assez simple ton code d'importation de donnée ne semble pas utiliser les bons délimiteur de colonnes (tu utilise les ; pour définir des colonnes

Code :

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

1
2
ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False,

Lance l'enregistreur de macro et lance l'importation a la main en choisissant bien des colonne délimité par des espace ou des tab en fonction de ton fichier.Donné importation de donnée externe. (cela te permettra a mon avis au passage de les mettre directement au bon endroit)
Puis utilise le code qu'il te donne. Ca devrais mieux fonctionner.

Je ne suis pas sur que cela suffise car le résultat que tu décris ne correspond pas a ce que j'aurais imaginé vu ton code. Mais bon c'est déjà une piste de recherche