Please Aide macro !

[ju_fra]

Bonjour,

Voila la situation :

J'ai d'un coté 50 workbooks differents ( nommés 1 ; 2 ; 3 ; 4 ...)
Chaque workbook contenant differents worsheet identiques ( nommés a ; b ; c ...)

Je voudrai creer une macro qui importe une zone de de chaque worksheet a , pour chaque workbook, dan un seul et unique worbook (nommé master) avec differents Worksheet ( nommés 1 ; 2 ;3 ...) faisant reference aux 50 premiers Workbooks.

Je sais pas si je suis clair 🙂


Merci pour votre aide, qui me permettrai de ne pas me coltiner 250 Copier collé tous les matin !

 

[ju_fra]

Re : Please Aide macro !

Voila ce que je viens de creer :

Workbooks.Open Filename:= _
"C:\######1.xlsx"
Sheets("a").Select
Range("D9:CO37").Select
Selection.Copy
Windows("master.xls").Activate
Sheets("1").Select
Range("D9").Select
ActiveSheet.Paste
Windows("1.xlsx").Activate
ActiveWindow.Close

Maintenant je dois copier ce texte 50 fois de suite, en changeant 1 par 2 puis par 3 ...

Cela fait une grosse macro.

En plus, j'ai un message lors de la fermeture de la fenetre qui me demande systematiquement si je veux sauvegarder le Clipboard : Peut on eviter cela ?

Y a til plus simple SVP ? Je veux pas faire une betise, et j'ai pas de formation VBA !

MErci

 

[kiki29]

Re : Please Aide macro !

Salut, cela devrait te convenir moyennant une adaptation à ton contexte

dans module sDatas

Const NomFeuille As String = "Test"
Const PlageALire As String = "A5:L20"

Un échantillon de fichier à importer serait utile

Un titre plus explicite à ton post aiderait pour une recherche future

 

[kiki29]

Re : Please Aide macro !

Re, une autre version via ADO qui répond à ta demande ( ce qui n'est pas tout à fait le cas de la précédente puisque tout était regroupé dans une seule feuille )