Bonjour les amis j'ai un probleme au niveau de l'execution d'un macro.
voici exactement ce que je veux:
je veux concevoir un petit programme macro ou .exe ou autre qui m'aidera à automatiser l'extraction de certaine données de mes fichiers excel dont je lui précise leur chemin d'acces exp "c:\bureau\donnée...."
 
depuis le fichier cell.csv extraire les colonnes "cellInstance" "CellGlobalIdentity"
depuis Adjacency.csv extraire les colonnes "AdjacencyInstanceIdentifier"
depuis ExternalOmcCell.csv "ExternalOmcCellInstanceId" CellGlobalIdt" et "UserLabel"
**depuis le fichier kef+kef2.dat le convertir en excel pour faciliter l'extraction de ses données qui doivent étre bien repartit en colonnes
 
ces colonnes je veux les rassembler dans un fichier excel qui s'appelle "Global" ensuite je le placerai dans une base de donné (2ème etape)
Pour le moment je m'interesse à la 1ère étape.
Merci de bien vouloir m'aider je suis vraiment coincé et presque désesperé.
 
Voici un extrait du programme VB:
 
Sub rassemblement()
'
' rassemblement Macro
' Macro enregistrée le 01/09/2008 par Ben Hammoud
'
 
'
Windows("Cell.csv" ).Activate
Range("A1:G1" ).Select
Selection.Copy
Windows("global.xls" ).Activate
Range("A1:E1" ).Select
ActiveSheet.Paste
Range("A2" ).Select
Windows("Cell.csv" ).Activate
Range("B2:B1200" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("global.xls" ).Activate
ActiveSheet.Paste
Columns("A:A" ).ColumnWidth = 21.29
Columns("A:A" ).ColumnWidth = 40.57
Columns("A:A" ).ColumnWidth = 45
Range("B2" ).Select
Windows("Cell.csv" ).Activate
ActiveWindow.ScrollRow = 1159
ActiveWindow.ScrollRow = 1134
ActiveWindow.ScrollRow = 1126
ActiveWindow.ScrollRow = 1112
.......
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
......
Columns("EV:EV" ).ColumnWidth = 22
Range("EU2:EV1200" ).Select
Range("EV2" ).Activate
ActiveWindow.SmallScroll Down:=-30
ActiveWindow.ScrollRow = 1143
ActiveWindow.ScrollRow = 1141
ActiveWindow.ScrollRow = 1138
.......
Columns("EU:EU" ).ColumnWidth = 17.71
Range("EV2:EV1200" ).Select
ActiveWindow.ScrollColumn = 143
ActiveWindow.ScrollColumn = 144
ActiveWindow.ScrollColumn = 145
ActiveWindow.ScrollColumn = 146
Application.CutCopyMode = False
Selection.Copy
Windows("global.xls" ).Activate
ActiveSheet.Paste
Columns("B:B" ).ColumnWidth = 39.86
Windows("Cell.csv" ).Activate
ActiveWindow.ScrollRow = 1196
ActiveWindow.ScrollRow = 1193
ActiveWindow.ScrollRow = 1191
.......
Windows("Adjacency.csv" ).Activate
Columns("B:B" ).ColumnWidth = 23.57
Columns("B:B" ).ColumnWidth = 32.57
Columns("B:B" ).ColumnWidth = 48
Columns("B:B" ).ColumnWidth = 56.86
Columns("B:B" ).ColumnWidth = 67.57
Columns("B:B" ).ColumnWidth = 83.43
Columns("B:B" ).ColumnWidth = 90
Range("B2:B20000" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("global.xls" ).Activate
Range("D2" ).Select
ActiveSheet.Paste
Columns("D:D" ).ColumnWidth = 41.29
ActiveWindow.ScrollColumn = 2
Columns("D:D" ).ColumnWidth = 66.14
Columns("D:D" ).ColumnWidth = 48.57
Columns("E:E" ).Select
Columns("D:D" ).ColumnWidth = 77.43
ActiveWindow.ScrollColumn = 3
Columns("D:D" ).ColumnWidth = 106.86
Columns("D:D" ).ColumnWidth = 98
Windows("ExternalOmcCell.csv" ).Activate
Columns("B:B" ).ColumnWidth = 22.86
Columns("B:B" ).ColumnWidth = 32.57
Columns("B:B" ).ColumnWidth = 37.71
Columns("B:B" ).ColumnWidth = 43
Columns("B:B" ).ColumnWidth = 48.43
Range("B2:B12000" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("global.xls" ).Activate
Range("E2" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Columns("E:E" ).ColumnWidth = 44.71
Windows("ExternalOmcCell.csv" ).Activate
ActiveWindow.ScrollRow = 11976
ActiveWindow.ScrollRow = 11954
ActiveWindow.ScrollRow = 11909
.......
Columns("R:R" ).ColumnWidth = 30.43
Range("R2:R12000" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("global.xls" ).Activate
Range("F2" ).Select
ActiveSheet.Paste
Columns("F:F" ).ColumnWidth = 40.86
Windows("ExternalOmcCell.csv" ).Activate
ActiveWindow.ScrollRow = 11977
ActiveWindow.ScrollRow = 11955
......
Range("AH2:AH12000" ).Select
Application.CutCopyMode = False
Selection.Copy
Windows("global.xls" ).Activate
Range("G2" ).Select
ActiveSheet.Paste
Columns("G:G" ).ColumnWidth = 25.14
Columns("G:G" ).ColumnWidth = 26.86
End Sub
 
********************************************************
Quand je l'execute il m'affiche:
erreur d'execution '9'
l'indice n'appartient pas à la selection
 
le debogueur s'arrete à cette ligne
 
Windows("Cell.csv" ).Activate
 
***********************************************************
voici le lien de mes fichiers
http://www.cijoint.fr/cjlink.php?f [...] oz7jTs.zip