Discussion :

[Mourne]

BOnjour à tous !!

J'ai un souci incompréhensible.
J'ai un code (macro Excel) qui s'exécute parfaitement sur Excel97.

Par contre sur Excel2003, la macro ne semble PAS prendre en charge une partie du code. Il s'agit de l'ouverture d'un fichier csv. En effet, il ne reconnait pas les ";" => Je retrouve alors chaq ligne de mon fichier d'origine confiné ds la 1ère colonne au lieu de les retrouver ds un tableau (sur plusieurs colonnes).

Merci d'avance pr votre aide.

[marsupilami34]

Bonjour,
peut-on voir une partie de ton code ?

[Mourne]

oui, evidemment :-P

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
F = Dir("C:\" & Command & "M\*.csv")
ChDir "C:\" & Command & "M"
 
Do Until F = ""
 
'1ère version qui n'a pas marché...
   ' Workbooks.OpenText Filename:="C:\" & Command & "M\" & F, Origin:=xlMSDOS, _
    '    StartRow:=4, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
     '   ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
      '  , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 2), _
       ' Array(3, 2), Array(4, 2), Array(5, 1))
 
 
'2ème version qui n'a pas marché...
     'Workbooks.OpenText Filename:="C:\" & Command & "M\" & F, Origin:=xlMSDOS, _
      '  StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
       ' ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        ', Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 2), _
        'Array(3, 2), Array(4, 2), Array(5, 1)), TrailingMinusNumbers:=True
 
 
'3ème version ... qui n'a pas marché...
 Workbooks.Open Filename:="C:\" & Command & "M\" & F, Origin:=xlWindows
 
 
    Rows("1:3").Select
    Selection.Delete Shift:=xlUp
 
    Cells.Select
    'Cells.EntireColumn.AutoFit
    Columns("A:A").ColumnWidth = 8
    'Columns("B:D").Select
    Columns("B:D").EntireColumn.AutoFit
 
    ActiveWindow.WindowState = xlNormal
    ActiveSheet.Select
    ActiveSheet.Copy After:=Workbooks(NomFich).Sheets(1)
    Windows(F).Activate
    Windows(F).Close
 
    Windows(NomFich).Activate
 
    Rows("4:4").RowHeight = 30
 
    Rows("4:4").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True

...et les 3 versions marchent sur Excel 97...

[marsupilami34]

Que veux tu dire par la ?

En effet, il ne reconnait pas les ";" => Je retrouve alors chaq ligne de mon fichier d'origine confiné ds la 1ère colonne au lieu de les retrouver ds un tableau (sur plusieurs colonnes).

[Mourne]

Je peux te definir un fichier csv comme un fichier texte qui permet d'exporter un tableau de données depuis un logiciel vers un autre. Il sépare les colonnes du tableau par un ;

Ainsi, un tableau peut s'ecrire sous cette forme :

A ; Bonjour ; Hello ;
B ; Ca va ; How are.. ;
C ; Au revoir ; Bye ;

Et donc excel (normalement), en tt cas ac la version 97, reconnait les ";" et reclasse les données ds son tableau.

Moi, cellule A1 = A ; Bonjour ; Hello ;
A2 = B ; Ca va ; How are.. ;

...
J'espère qu j'aurai été clair.

[Mourne]

Personne n'a une solution pr moi ? snif ..

Mais merci qd meme de votre aide !!

PS. : Si vous avez besoin de précisions, n'hésitez pas à m'en faire part.

[mortalino]

Salut,

pourquoi ne pas t'enregistrer avec l'enregistreur de macro afin de voir le code ?

Moi j'obtiens ce code :

Code :

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

1
2
3
4
5
6
7
 
    Workbooks.OpenText Filename:= _
        "C:\Chemin\Nouveau Feuille de calcul Microsoft Excel.csv" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

Tu verras, tu auras plusieurs options qui te seront proposées (types de séparateurs, etc..)

@++

[SfJ5Rpw8]

oui excel est un peu capricieux avec les fichiers .csv avec un ; comme séparateur... essai de renommer ton fichier avec une autre extension .. .txt par exemple puis ta méthode 1...ou 2...

[Mourne]

Salut,

pourquoi ne pas t'enregistrer avec l'enregistreur de macro afin de voir le code ?

Moi j'obtiens ce code :

Code :

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

1
2
3
4
5
6
7
 
    Workbooks.OpenText Filename:= _
        "C:\Chemin\Nouveau Feuille de calcul Microsoft Excel.csv" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

Tu verras, tu auras plusieurs options qui te seront proposées (types de séparateurs, etc..)

@++

oui, j'ai fait la même chose. La seule différence c que mon chemin d'accès, je l'entre par une inputbox. Le résultat reste dc le même, Excel 2003 ne remet pas en ordre les colonnes du tableau...