[VBA-E] Pb passage Excel97 => Excel2003

Version imprimable

11/01/2007, 16h41
Mourne

[VBA-E] Pb passage Excel97 => Excel2003

BOnjour à tous !!

J'ai un souci incompréhensible. 8O
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.
11/01/2007, 16h47
marsupilami34

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

oui, evidemment :-P

Code:

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...

11/01/2007, 17h12
marsupilami34

Que veux tu dire par la ?

Citation:

Envoyé par Mourne

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).
11/01/2007, 17h24
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.
12/01/2007, 17h24
Mourne

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

Mais merci qd meme de votre aide !!

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

Salut,

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

Moi j'obtiens ce code :
Code:

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..)

@++

12/01/2007, 19h33
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...

Citation:
Envoyé par mortalino
Salut,

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

Moi j'obtiens ce code :
Code:

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...

15/01/2007, 08h45
Mourne

Citation:

Envoyé par bbil

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...

Effectivement, ca marche... mais ca ne m'arrange pas vraiment : J'utilise cette macro dans une boucle qui me permet ainsi d'appliquer la fameuse macro sur tous les fichiers d'un même répertoire
=> cela voudrait dire q je devrais renommer tous ces fichiers (je les télécharge par FTP à l'aide d'un fichier BATCH)... et y'en a un certain nombre...(cinquantaine) Comment faire ??!??...

Y a t il vraiment aucune solution par Excel lui même ? Est-il vraiment impossible d'appliquer une macro sur un fichier CSV ac Excel2003 ??

Merci pr l'aide.
15/01/2007, 08h47
SfJ5Rpw8

ben tu peu les renommer "temporairement" par excel... ( voir Name..) ... où tu modifie ton batch ... de téléchargement FTP pour qu'il les renomme
15/01/2007, 09h18
Mourne

Citation:

Envoyé par bbil

ben tu peu les renommer "temporairement" par excel... ( voir Name..) ... où tu modifie ton batch ... de téléchargement FTP pour qu'il les renomme

En effet oui, par le batch c t très facile !!! :lol:
Comment le faire faire par la macro STP ?