Transfert feuille de plusieurs fichier vers 1 seul fichier

[VBA_DEAD]

Bonjour à tous,


je cherche une macro qui me permette de répondre au pb suivant :

J'ai N fichiers excel actifs comportant N feuilles (chaque feuille étant nommée) et je veux réunir toutes les feuilles (les transférer sans fusion) vers un autre fichier excel pour le quel j'aurai à insérer le nom. Sur ce fichier créé, je dois retrouver les feuilles de tous mes fichiers actifs + une feuille "total" qui doit s'insérer automatiquement.

Si quelqu'un à une macro existante, je veux bien en profiter.

je vous remercie pour votre aide.

VBA DEAD

 

[CBernardT]

Bonjour VBA DEAD

Voila une macro qui va te copier toutes les feuilles de tous les classeurs ouverts sur le classeur "Base.xls", nom à adapter dans la macro si besoin est !

Sub CopyFeuilles()
Dim i As Byte
Dim j As Byte
Dim Wb As Workbook
Dim Ws As Worksheet

Application.ScreenUpdating = False
For i = 1 To Workbooks.Count
If Workbooks(i).Name <> "Base.xls" Then
For j = 1 To Workbooks(i).Worksheets.Count
Workbooks(i).Sheets(j).Copy Before:=Workbooks("Base.xls").Sheets("Feuil1")
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

CBernardT

 

[VBA_DEAD]

Bonsoir Bernard et merci pour ton aide.

Ta macro marche impeccable et je vais la rentabiliser!!

Merci et bon WE

VBA DEAD