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 : 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
'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