Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Please Aide macro !

  • Initiateur de la discussion Initiateur de la discussion ju_fra
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ju_fra

XLDnaute Nouveau
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 !
 
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
 
Re : Please Aide macro !

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

dans module sDatas
Code:
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
 
Dernière édition:
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 )
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
Réponses
2
Affichages
2 K
C
L
Réponses
10
Affichages
11 K
N
Réponses
5
Affichages
1 K
nsqualli
N
H
Réponses
1
Affichages
829
H
A
Réponses
1
Affichages
809
B
Réponses
2
Affichages
1 K
born2mars
B
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…