Bonjour à tous,
En fait j'essaye de faire une macro Excel et comme j'ai un peu de mal je me suis dit que peut être quelqu'un pourrait me venir en aide.
J'explique la problématique :
J'ai 50 fichiers Excel mis à jours tous les trimestres.
Sur chaque fichier Excel j'ai un rapport de 1 à 50 lignes sur 20 colonnes
Je voudrais copier tous ces rapports sur un fichier récapitulatif.
En fait ce que je ne veux pas, c'est avoir les noms des fichiers dans la macro mais que la macro cherche tout seul dans le dossier, les fichiers Excel présent et les ouvrir et faire le copier coller sur le récapitulatif.
J’ai déjà réalisé la macro qui copie colle sur le fichier récapitulatif (mais que d'un seul fichier et j'ai pas envi de répéter la même macro 50 fois, car le jour ou un nouveau fichier apparaîtra il faudra retourner dans la macro)
Voici le code pour le "copié collé" :
A la place de :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub Recup_Auto_contenu() Workbooks.Open Filename:= _ "C:\Documents and Settings\bidule\Bureau\Classeur2.xls" Sheets("Export").Select Range("A1").Select Selection.CurrentRegion.Select Selection.Copy Windows("salut.xls").Activate Dim i As Integer For i = 2 To 200 If Range("A" & i).Value = Range("A65000").Value Then Range("A" & i).Select: ActiveSheet.Paste: Exit For Next i End Sub
J’aimerais bien lancer une autre macro qui ouvre un autre fichier une sorte de boucle qui ferais tour à tour tous les fichiers du dossier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2Workbooks.Open Filename:= _ "C:\Documents and Settings\bidule\Bureau\Classeur2.xls"
Enfin une dernière question :
Est il possible de faire dans la boucle, de rajouter une fonction qui permettrais de copier le nom du fichier ?
En fait chaque fichier est nommé d’une façon précise.
Style: 3premiere lettre du nom puis un code de 3 chiffres.
Si vous voulez savoir dans quel cadre je m’occupe de ceci, c’est dans le cadre d’un petit stage.
Dans mon école on n’a pas suivi de cours de VBA donc j’essaye de faire ce que je peux.
Merci D’avance de vôtre aide.
Bonne journée
Partager