Bonjour, j'ai besoin de vos connaissances de Excel...

J'ai plusieurs fichiers en .spe (excel les ouvre comme les fichiers textes) contenant tous de l'information présentée de la même manière, soit une colonne A identique pour chaque fichier, et une colonne B avec des valeurs différentes dans chaque fichier...
J'aimerai créer un fichier excel, pouvant importer la colonne A et faire la somme de toutes les lignes de la colonne B contenue dans tous les fichiers. Donc je veux par exemple que dans mon fichier excel j'ai en A1 une valeur X, et en B1 la somme de toutes les valeurs retrouvées dans la cellule B1 de tous mes fichiers sources...

J'espère que c'est clair comme information..

Quelqu'un peux t'il m'expliquer comment faire pour y arriver ???

Nicolas

_________________

PIV 1.5 Ghz
MSI-6523
2*256 Mo + 2*64 Mo RDRAM Samsung 800
ASUS AGP-V3800M Riva TNT2
Windows 2000 SP4

Photographes : Canon Eos 20D+poignée / Sandisk Ultra II 1go *2 / Eos 3 + Eos 500 / 17-40 f4L / 70-200 f2.8LIS / 300 f4LIS / 35-105 f4,5-5,6 / 550ex / Gitzo G1340 / Singh-Ray filters

Bon voici ce que j'ai fait pour le moment... la macro me copie les deux premières colonnes de mes fichiers en commençant par la ligne 39.

Comment faire pour que la macro ne copie que la deuxième colonne ?

------------------------------

Sub Consolidate()
With Application.FileSearch
.NewSearch
.LookIn = "C:\xxxxxxx" 'Change this to your directory
.SearchSubFolders = False
.Filename = "*.spe"
If .Execute() > 0 Then
Set Basebook = Workbooks.Add
For i = 1 To 10 '.FoundFiles.Count
Workbooks.OpenText Filename:=.FoundFiles(i), Origin:= _
xlWindows, StartRow:=39, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Range("A1").CurrentRegion.Copy _
Basebook.Worksheets(1).Range("IV2").End(xlToLeft).Offset(0, 1)

Basebook.Worksheets(1).Range("1:1").SpecialCells(xlCellTypeBlanks).Value = ActiveWorkbook.Name
ActiveWorkbook.Close False
Next i
Basebook.Worksheets(1).Range("A:A").Delete
Basebook.SaveAs Application.GetSaveAsFilename("Consolidatedfile.xls ")
End If
End With
End Sub

_________________

PIV 1.5 Ghz
MSI-6523
2*256 Mo + 2*64 Mo RDRAM Samsung 800
ASUS AGP-V3800M Riva TNT2
Windows 2000 SP4

Photographes : Canon Eos 20D+poignée / Sandisk Ultra II 1go *2 / Eos 3 + Eos 500 / 17-40 f4L / 70-200 f2.8LIS / 300 f4LIS / 35-105 f4,5-5,6 / 550ex / Gitzo G1340 / Singh-Ray filters