[VBA-E] Conversion CSV en XLS

Version imprimable

bonjour

j ai développez une macro d un peu plus de 1000 pour la Société Générale

j'ai besoin d'une aide sur le probleme suvant

j'ai ma macro (mise en page.xls) qui lorsqu elle a tournée génère le fichier inventaire1.xls

cette macro effectue des calculs grace aux fichiers AI.csv et AI2.csv
pour cela g mis du code qui converti ces 2 fichiers en xls afin d afficher les resultats dans inventaire1.

Maintenant j ai 2 autres fichiers:
Gamme_PF.csv et Gamme_PF_v.csv

je dois copier dans ces 2 fichiers les données allant de H1 à N5 et aller les coller à partir de la cellule AB26 du fichier INVENTAIRE1.XLS
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 'Workbooks.Open Filename:=chemin & "\Gamme_PF" 'Workbooks(Gamme_PF).Sheets("Gamme_PF").Activate Windows("Gamme_PF.csv").Activate Range("H1:N5").Select Selection.Copy ' Workbooks(inventaire1).Sheets("valo").Activate Windows("inventaire1.xls").Activate Range("AB26").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Workbooks.Open Filename = chemin & "\Gamme_PF_v" ' Windows("Gamme_PF_v.csv").Activate 'Workbooks(Gamme_PF_v).Sheets("Gamme_PF_v").Activate Range("H1:N5").Select Selection.Copy Windows("inventaire1.xls").Activate 'Workbooks(inventaire1).Sheets("valo").Activate Range("AB35").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
mais il me dit que l indice n appartient pas a la selection
dois je utiliser Workbooks(inventaire1).Sheets("valo").Activate

ou alors dois je d abord ouvrir les deux fichiers .csv, les convertir en xls et les enregistrer APRES modifications en .xls

au quel cas savez vous comment faire ?

merci de votre aide

21/03/2007, 16h20
ouskel'n'or

Sur quelle ligne ton erreur ?
Et comment ouvres-tu ton fichier ?

J'obtiens plutôt : "erreur définie par l'application" aux lignes range(...).select.

Ajoute activesheet. avant range(....).select. Ça a réglé le problème pour moi.

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
  Windows("Gamme_PF.csv").Activate
    Range("H1:N5").Select
    Selection.Copy
 
 
 
' Workbooks(inventaire1).Sheets("valo").Activate
    Windows("inventaire1.xls").Activate
    Activesheet.Range("AB26").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'Workbooks.Open Filename = chemin & "\Gamme_PF_v"
 
'
    Windows("Gamme_PF_v.csv").Activate
'Workbooks(Gamme_PF_v).Sheets("Gamme_PF_v").Activate
    Activesheet.Range("H1:N5").Select
    Selection.Copy
 
    Windows("inventaire1.xls").Activate
'Workbooks(inventaire1).Sheets("valo").Activate
    Range("AB35").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

j ai remanié le code
celui ci marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim chemin As String
chemin = "C:\Documents and Settings\Bruno C\Mes documents\test"
 
Dim inventaire1 As String
inventaire1 = "inventaire1.xls" 
 
Dim Gamme_PF As String
Gamme_PF = "Gamme_PF.xls"
 
Workbooks.Open Filename:=chemin & "\Gamme_PF.xls"
 
 
Workbooks(Gamme_PF).Sheets("Gamme_PF").Activate
Range("A1", Range("D1").End(xlDown)).Select
Selection.Copy
 
Workbooks(inventaire1).Sheets("Feuil1").Activate
Range("A1").Select
ActiveSheet.Paste
Workbooks(Gamme_PF).Close

mais ce code copie/colle parfaitement mais pr 2 fichiers .xls

or Gamme_PF est un .csv

il faudrait donc :

1) ouvrir le fichier CSV
2) le trier par colonne
3)le sauvegarder en .XLS

mais la je seche

g des bouts de code mais ca marche pas

exemple:
1) définir fichier

Code:

1
2
3
4
Dim Gamme_PF As String
Gamme_PF = "Gamme_PF.csv"
 
Workbooks.Open Filename:=chemin & "\Gamme_PF.csv"

2) trier

Code:

1
2
3
4
5
6
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True

3) renommer en Gamme_PF.xls

Code:

1
2
3
4
 ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Bruno C\Mes documents\test\Gamme_PF.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

mais ca marche pas :(

des idees ? pourtant je suis pas loin d enfin la finir cette macroi de dingue

22/03/2007, 10h18
tangjuncn

normalement, t'as pas besoin de mettre writepassword pr sauvegarder ton fichier.
Sinon, l'instruction est tt à fait correct.
As-tu suffisamment d'espace dans ton espace local?