macro passage Excel 2000 à 2003

Version imprimable

Bonjour,

J'utilise une marcro sous Excel 2000 qui fonctionne très bien. Celle-ci me crée un fichier Excel rempli d'informations issues d'un fichier .csv.

Je rencontre un problème en exécutant cette macro sur un autre pc qui utilise la version 2003 d'Excel. La macro tourne bien mais le résultat final est mauvais : dans mon fichier Excel, j'ai toujours la même ligne de données qui se répéte dans tout mon tableau et ces données ne sont pas correctement implantées de le tableau => elles se suivent toutes séparées par un "point-virgule" et ne sont pas dispatchées correctement dans les cases de mon tableau.

Ce problème est-il à votre avis lié au passage à Excel 2003 ou bien à un paramétrage de Excel sur le nouveau pc ?

Ci-dessous le code : (les chemins ne sont pas indiqués pour une meilleure lisibilité).

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
53
54
55
56
57
58
59
60
61
62
63
64
Application.ScreenUpdating = False
 
    nom = Range("E10")
 
    If nom = "xxx" Then
        ChDir "T:\"
    Workbooks.Open Filename:="\\chemin\edenvg.csv"
    Range("J6").Select
    End If
 
    ActiveCell.FormulaR1C1 = "=+TRIM(RC[-9])"
    Range("J6").Select
    Selection.AutoFill Destination:=Range("J6:S6"), Type:=xlFillDefault
    Range("J6:S6").Select
    Range("S6").Select
    Selection.ClearContents
    Range("J6:R6").Select
    Selection.AutoFill Destination:=Range("J6:R7401"), Type:=xlFillDefault
    Range("J6:R7401").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.LargeScroll Down:=-18
    ActiveWindow.ScrollRow = 1
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Columns("J:BF").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("I:I").Select
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Selection.NumberFormat = "0"
    Columns("A:A").Select
    Selection.Replace What:="-", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Selection.NumberFormat = "dd/mm/yy"
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Columns("D:D").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A6:I4995").Select
    Selection.Copy
    ChDir "X:\ etc"
    Workbooks.Open Filename:= _
        "\\chemin\fichier.xls"
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.ScrollRow = 2140
    ActiveWindow.ScrollRow = 1
     Columns("C:C").Select
    Selection.Replace What:="2004", Replacement:="04", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Windows("edenvg.csv").Activate
    ActiveWindow.Close
End Sub

Merci d'avance pour vos réponses.

Hello
Tu as de la chance que ton code ait fonctionné un jour sur Excel 2000 :(
J'ai commencé à corriger ce qui ne me semblait, au départ, n'être que des "lourdeurs" dans le code. Il y a plus. Tu sembles n'avoir pas compris certaines lignes.
Voici déjà quelques corrections. En remarque le code corrigé et en clair la correction

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
    'ChDir "T:\" 'si le fichier se trouve sur un autre volume, 
    'cette ligne est inopérante -> utiliser chdrive pour changer de volume,
    'ou/et chdir pour changer de répertoire
    'Ici, cette ligne suffit
    If nom = "xxx" Then Workbooks.Open Filename:="\\chemin\edenvg.csv"
 
    'ActiveCell.FormulaR1C1 = "=+TRIM(RC[-9])" 'ActiveCell est ici dangereux : 
    'Si nom <> "xxx" Activecell peut être n'importe quoi !
    Range("J6").FormulaR1C1 = "=+TRIM(RC[-9])" 'suffit ici...
 
    '... quoique j'ai un doute sur l'utilisation de Supprespace().
    'Supprespace donne un texte. Que veux-tu récupérer un texte ou une valeur
    'Si c 'est une valeur, je verrais plutôt CNUM
    'Range("J6").Formula = "=CNUM(A6)" 'C'est toi qui vois
 
    'Range("J6").Select 'inutile de sélectionner la cellule
    'Selection.AutoFill Destination:=Range("J6:S6"), Type:=xlFillDefault
    'Evite la sélection : Remplace par une simple copie. L'incrémentation est automatique 
    Range("J6").Copy Range("J6:S6")
 
 
    'Range("J6:S6").Select 'Totalement inutile
    'Range("S6").Select ' sélection inutile
    'Selection.ClearContents '... A remplacer par la ligne suivante
    Range("S6").ClearContents
 
    'Range("J6:R6").Select 'inutile
    'Selection.AutoFill Destination:=Range("J6:R7401"), Type:=xlFillDefault
    Range("J6:R6").Copy Range("J6:R7401")
 
    'Range("J6:R7401").Select
    'Selection.Copy
    Range("J6:R7401").Copy
    'Macro enregistrée en faisant : Utilisation de la barre de défilement vertical (!)
    'ActiveWindow.ScrollColumn = 1
    'ActiveWindow.LargeScroll Down:=-18
    'ActiveWindow.ScrollRow = 1
 
    Range("A6").PasteSpecial Paste:=xlValues 'paramètres par défaut inutiles
    Columns("J:BF").Delete Shift:=xlToLeft
'etc.

Je te conseille de continuer le nettoyage, une fois réalisé, si tu as toujours un pb, tu demandes.
Bonne journée et bon courage

Merci pour ton aide.
J'ai réalisé les modifications mais je rencontre toujours le même problème.

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
Range("J6").FormulaR1C1 = "=+TRIM(RC[-9])"
    Range("J6").Copy Range("J6:S6")
    Range("S6").ClearContents
    Range("J6:R6").Copy Range("J6:R7401")
    Range("J6:R7401").Copy
    Range("A6").PasteSpecial Paste:=xlValues
    Columns("J:BF").Delete Shift:=xlToLeft
    Columns("I:I").Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Columns("I:I").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    NumberFormat = "0"
    Columns("A:A").Replace What:="-", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    NumberFormat = "dd/mm/yy"
    Columns("B:B").Insert Shift:=xlToRight
    Columns("D:D").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Columns("D:D").Select
    Application.CutCopyMode = False
    Columns("D:D").Delete Shift:=xlToLeft
    Range("A6:I4995").Copy
    ChDir "V:\chemin\fichier.xls"
    Range("A4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.ScrollRow = 2140
    ActiveWindow.ScrollRow = 1
     Columns("C:C").Replace What:="2004", Replacement:="04", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Windows("fichier.csv").Activate
    ActiveWindow.Close
End Sub

20/01/2009, 09h31
ouskel'n'or

En lisant ton code, j'avais perdu l'essentiel : En fait, ce que tu cherches à faire est l'ouverture d'un csv avec ";" comme séparateur de données et "." comme séparateur décimal.
De mon côté, je ne persisterai pas avec ton code qui coupe/colle/delette dans tous les sens. Il est impossible de comprendre ce que tu veux.
Un exemple : Le collage spécial des seules valeurs s'utilise pour remplacer les formules par leur valeur dans les cellules.
Un fichier csv ne contenant pas de formule, c'est inutile. En outre, si le séparateur décimal n'est pas le bon, c'est bon pour donner n'importe quoi.
Bref, pour ouvrir un csv, selon la version d'Excel utilisée, il y a des différences.
Pour 2007, je crois que ça ne pose plus de pb (à confirmer)
Je te conseille de lire attentivement cette discussion.
La dernière proposition semble correspondre à ton fichier.
Teste ça et si tu as un autre problème (disposition des données à modifier par exemple) on traitera ça séparément.
A+
20/01/2009, 11h35
zeugzeug

Merci beaucoup, cette technique marche effectivement.
Par contre une fois que la macro a tourné mon fichier.csv devient un.txt, et quand je relance la macro une seconde fois...il ne trouve plus de .csv.
20/01/2009, 12h05
ouskel'n'or

Name AncienNom as NouveauNom fonctionne dans les deux sens.
(tu aurais pu y songer tout seul, non ? ;) )
Ceci dit, tu n'es pas obligé de renommer le csv pour l'ouvrir en tant que txt
Par exemple, tu peux parfaitement mettre

Citation:

Workbooks.OpenText Filename:="D:\xls\Fichier.csv", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Semicolon:=True

La formule n'était là que pour expliquer le principe : Pour Excel, un txt ne s'ouvre pas comme un csv.
Bonne journée
20/01/2009, 13h07
zeugzeug

C'est deuxième solution ne fonctionne pas chez moi. J'ai le même problème qu'au début.
20/01/2009, 13h08
ouskel'n'or

Montre le code de cette deuxième solution et dis-nous ce qui ne fonctionne pas.

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
application.ScreenUpdating = False
 
    nom = Range("E11")
 
        If nom = "cccc" Then
        ChDir "T:\"
    Workbooks.OpenText Filename:="\\chemin\fichier.csv", Origin:=xlWindows, _
    StartRow:=1, DataType:=xlDelimited, Semicolon:=True
    Range("J6").Select
   End if
 
    Range("J6").FormulaR1C1 = "=+TRIM(RC[-9])"
    Range("J6").Copy Range("J6:S6")
    Range("S6").ClearContents
    Range("J6:R6").Copy Range("J6:R7401")
    Range("J6:R7401").Copy
    Range("A6").PasteSpecial Paste:=xlValues
    Columns("J:BF").Delete Shift:=xlToLeft
    Columns("I:I").Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Columns("I:I").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    NumberFormat = "0"
    Columns("A:A").Replace What:="-", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    NumberFormat = "dd/mm/yy"
    Columns("B:B").Insert Shift:=xlToRight
    Columns("D:D").Select
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
    Columns("D:D").Select
    Application.CutCopyMode = False
    Columns("D:D").Delete Shift:=xlToLeft
    Range("A6:I4995").Copy
    ChDir "G:\chemin"
    Workbooks.Open Filename:= _
        "\\chemin\fichier.xls"
    Range("A4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveWindow.ScrollRow = 2140
    ActiveWindow.ScrollRow = 1
     Columns("C:C").Replace What:="2004", Replacement:="04", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Windows("fichier.csv").Activate
    ActiveWindow.Close
 
End Sub

Le problème que je rencontre est le fichier final qui n'est pas correctement rempli => j'ai des ";"

C'est ce qu'il me semblait, tu n'as pas lu la dernière proposition du thread que je t'ai indiqué.
Citation:
Le code suivant ouvre un fichier texte (.txt), avec le point (".") comme séparateur décimal et le point-virgule (";") comme séparateur de données.
Code:

1 2 3 Workbooks.OpenText Filename:="D:\xls\Classeur1.csv", StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _ :=True, Semicolon:=True, DecimalSeparator:="."

20/01/2009, 13h49
zeugzeug
Quand je parlais de la deuxième solution c'était à propos du code ci-dessous :
Code:

1 2 Workbooks.OpenText Filename:="D:\xls\Fichier.csv", Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, Semicolon:=True
J'utilise la version 2003, d'excel, quel code utiliser pour ne pas à avoir à rennomer mon fichier ?
20/01/2009, 13h57
ouskel'n'or

As-tu lu ma dernière réponse ?

Citation:

Le code suivant ouvre un fichier texte (.txt), avec le point (".") comme séparateur décimal et le point-virgule (";") comme séparateur de données.

Que veux-tu que je te dise de plus ? As-tu examiné le code ? Tu n'as même pas à renommer le fichier.