[XL-2007] Dispatcher des onglets vers des feuilles.xlsx [Résolu]

[anthooooony]

Bonjour à tous!

J'ai un fichier avec 78 onglets que j'aimerais dispatcher vers des feuilles choisie.
Lorsque j'ai beaucoup d'onglet j'ai beaucoup de fichier dans beaucoup de dossier, pour tous les regrouper c'est assez long...

Est-il possible de lui dire comme dans l'exemple ci dessous.Que l'onglet agence 1a, agence 1b, agence 1c s'enregistre dans un fichier spécifique exemple agence1.xlsx? en créant les relations au préalable dans les lignes de code.

Merci d'avance à tous !

Onglet généré Fichier vers lequel il pourrait pointer
Agence1a Agence1
Agence1b Agence1
Agence1c Agence1
Agence2a region est
Agence2b region est
Agence2c region est
Agence3a region ouest
Agence3b region ouest
Agence3c region ouest
Agence4a region sud
Agence4b region sud
Agence4c region sud
Agence5a region idft
Agence5b region idft
Agence5c region idft

etc etc

[Daniel.C]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim Fichiers, Sh As Worksheet, NomFich As String
Fichiers = Array("Agence1", "region est", "region ouest", "region sud", "region idft")
For Each Sh In Worksheets
    If Left(Sh.Name, 6) = "Agence" And IsNumeric(CInt(Mid(Sh.Name, 7, 1))) And Right(Sh.Name, 1) <= "c" And _
        Right(Sh.Name, 1) >= "a" Then
        If CInt(Mid(Sh.Name, 7, 1)) > 0 And CInt(Mid(Sh.Name, 7, 1)) < 6 Then
            NomFich = Application.Index(Fichiers, CInt(Mid(Sh.Name, 7, 1)))
           Sh.Copy Before:=Workbooks(NomFich & ".xls").Sheets(1)
        End If
    End If
Next Sh

PS. Les 5 classeurs cible doivent être ouverts.

[anthooooony]

Merci!
Sympa comme d'habitude !