Bonjour, actuellement j'utilise cette macro, elle a pour but de copier toutes les feuilles excel situées dans un répertoire, contenant plusieurs classeurs fermés et de les ajouter dans mon classeur ouvert.:
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
22
23
24
25 Sub test1() Dim Chemin As String, Fichier As String, Ligne As Long Dim Feuilles, Sh As Worksheet, Tabl Chemin = "C:\Documents and Settings\xxxx\Bureau\base excel\" Fichier = Dir(Chemin & "*.xls") Set Sh = Sheets.Add Do While Fichier <> "" ThisWorkbook.Names.Add "Plage", _ RefersTo:="='" & Chemin & "[" & Fichier & "]DonnesU'!$A$1:$Z$100" With Sh .[A1:Z100] = "=Plage" .[A1:Z100].Copy .[A1:Z100].PasteSpecial xlPasteValues ' Tabl est un tableaureprésentant la zone A1:Z100 du classeur fermé en cours de traitement ' la première dimension représente le numéro de ligne ' et la seconde le numéro de colonne Tabl = .[A1:Z100] Cells.ClearContents Ligne = Ligne + 1 Cells(Ligne, 1) = Tabl(2, 3) ' renseigne A1 'etc. End With Fichier = Dir Loop End Sub
J'aimerais savoir si c'était possible, au lieu à chaque fois que la macro créer une nouvelle feuille dans mon classeur ouvert pour afficher les résultats copier. Ba que tout simplement elle aligne ça sur une seul feuille en ajoutant une nouvelle ligne a chaque fois.
En clair peut être : quand elle copie toutes feuil1 de mes classeur fermé dans le répertoire, elle ajouter dans mon classeur ouvert Feuil1, feuil2,feuil3..... j'aimerais juste au lien de créer plein de feuille qu'il place directement les résultats sur une seul feuille les un à la suite de l'autre. Est ce que c'est possible ?? Svp
Partager