recuperation de données depuis plusieurs fichiers

[hurricane]

bonjour a tous

j'ai pas trouvé dans les archives et pourtant je crois que j'ai deja vu ça

je m'explique

je voudrais recuperer une plage de valeurs 'W8:W50' dans un onglet(toto1) dans un fichier ' excel1' et le copier dans un fichier 'compil' onglet 'titi' en 'A2:a....' puis toujour dans le fichier 'excel1' dans l'onglet(toto2) copier la plage 'w1:w40' et la copier dans le fichier 'compil' onglet 'tata' en a2:a....'

puis passer au fichier 'excel2' et copier les valeurs en b2:b....

etc etc....

le nombre de fichiers est variable de toute façon je suis limité a 256 puisque un onglet c'est 256 colonnes

donc voila si quelqu'un a ca dans ses archives je suis preneur car je suis un peu planté là.

merci d'avance

 

[hurricane]

bonsoir

Pour faire suite a mon probleme et etre plus precis je suis planté
à la listbox1 en rouge dans le code je dois activer la fenetre mais je n'y arrive pas

Private Sub CommandButton1_Click()

Dim I As Integer
Dim colonnefin As Long
Dim Wb As Workbook

If ListBox1.ListIndex = -1 Then Exit Sub

Set Wb = Workbooks.Open(Filename:=Adresse & '\\' & ListBox1)
Sheets('didi').Range('T18:T46').Copy
Windows('azerty.xls').Activate
Sheets('toto').Select
colonnefin = Range('IV2').End(xlToLeft).Column
Cells(2, colonnefin + 1).Select
ActiveSheet.Paste

Windows(LISTEBOX1).Activate
Sheets('fofo').Range('T10:T42').Select
Selection.Copy
Windows('azerty.xls').Activate
Sheets('tata V').Select
colonnefin = Range('IV2').End(xlToLeft).Column
Cells(2, colonnefin + 1).Select
ActiveSheet.Paste

Wb.Close savechanges:=False
Unload Me
End Sub

je suis preneur de la solution

merci d'avance

 

[deudecos]

Bonsoir Hurricane, le forum,

Je ne voudrais pas dire de betise, mais ce que tu veux activer, c'est bien un classeur tu as donc une erreur de syntaxe...
Si cette feuille porte bien le nom de listbox1, il te faut la mettre entre parenthese et la faire suivre de l'indispensable '.xls'
si ca n'etait pas le cas, il te faut donc ouvrir et activer la feuille contenant la Listbox1...

windows('ta feuille.xls').activate

Mais peut etre que je n'ai rien compris... :unsure:

Bonne soiree

Olivier

 

[hurricane]

bonsoir deudecos

dans la premier partie pas de probleme j'ouvre un fichier selectionné depuis une listbox 'la listbox1 'je fais les ctrl-c ctrl-v .

je suis donc dans mon fichier de destination et je veux retourner dans mon fichier source mais je ne connais pas son nom puisque c'est une selection dans la listbox1

donc je pensais a un truc du genre

Windows(LISTEBOX1).Activate

mais ça ne fonctionne pas

voila merci pour ton aide

 

[deudecos]

Bonsoir Hurricane, le forum,

Serait-ce trop te demander que de joindre ton fichier ou tout au moins une partie de celui-ci afin que je comprenne la facon dont il fonctionne.
Petit rappel, moins de 50ko, zippe, et sans accent ni espace le fichier.

Bonne soiree

Olivier

 

[hurricane]

Bonjour a tous

ci joint les fichiers source(000001.xls) et cible(test.xls) il faut faire une modif dans vba car le fichier source est en I:/ chez moi adapter donc a votre systeme

j'espere que tu ou vous comprendrez mieux mon probleme

encore merci [file name=test_20050703082301.zip size=19179]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050703082301.zip[/file]

 

[hurricane]

ooops j'ai oublié le fichier source [file name=000001.zip size=18847]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/000001.zip[/file]

 

[michel_m]

Bonjour Hurricannne, Deudecos et forum

Essayes:
Windows(ListBox1.Value).Activate

A+
Michel

 

[hurricane]

bonjour michel_m

nikel chrome

s'etait devant mes yeux et ca ne m'a fait tilt

enfin encore merci a tous

bon dimanche