Bonjour à tous,
Je viens de débuter dans les macros VBA et je cherche à automatiser un copier-coller pour constituer un tableau récap dans lequel pourraient naviguer facilement mes collègues.
Je cherche à créer une macro qui effectuera la tache suivante:
A partir d'un dossier qui regroupera plusieurs fichiers nommés "MissMond1.xls", "MissMond2", 3 (etc...), il faudrait que ma macro recopie la ligne 2 (ou la plage "A2 : D2" ) de l'onglet "feuil2" de chacun des fichiers du répertoire et qu'il les aligne dans l'onglet "feuil1" d'un fichier "recap"
La ligne2 de l'onglet feuil2 de MissMond1 devra se retrouver dans le fichier Récap, en ligne 2
La ligne2 de l'onglet feuil2 de MissMond2 devra se retrouver dans le fichier Récap, en ligne 3
La ligne2 de l'onglet feuil2 de MissMond3 devra se retrouver dans le fichier Récap, en ligne 4
La ligne2 de l'onglet feuil2 de MissMond4 devra se retrouver dans le fichier Récap, en ligne 5
et ainsi de suite...
J'ai réussi à obtenir le résultat que je voulais avec la macro ci-dessous, mais le seul pbme, c'est qu'elle ne copie qu'une seule ligne (celle du premier fichier)!!
Il faut sûrement que j'utilise une boucle mais je n'arrive pas à savoir laquelle..."FOR"? "NEXT FOR"?
Voilà ma macro:
Code :
- Sub Test1()
- Dim Wb As Workbook
- Workbooks.Open "C:\Macro_test\DdeMissMond1.xls"
- Workbooks("DdeMissMond1.xls" ).Activate
- Worksheets("feuil2" ).Activate
- ActiveWindow.WindowState = xlNormal
- Range("A2:D2" ).Select
- Selection.Copy
- Windows("Recap.xlsm" ).Activate
- Range("A2" ).Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Workbooks("DdeMissMond1.xls" ).Close
- End Sub
|
Pouvez-vous me dire ce que vous en pensez et me donner des pistes pour avancer rapidement svp?
Dsl du derangement...j'espère que vous pourrez m'aider, je devrais avoir abouti d'ici mercredi... 
(j'ai une réunion jeudi)
Bien cdlt
