Copie de feuille excel dans un new classeur

Bonjour calenthea,

Pourrait tu être plus précis(e)?

Le nom de tes fichiers se trouve dans une feuille?
Ou tu fait une recherche via l'explorateur?

Necro27

Oui en fait ma macro initial découpe un fichier en différents onglet se nommant feuil1; feuil2 .....
Ensuite je coupe ses différents onglets pour aller les copier dans un nouveau classeur.
J'ai écris ma macro en lui disant tu coupes feuil1 puis tu coupes feuil2. Je souhaitais savoir si je pouvais lui dire tu coupes toutes les feuilles commençant par feuil.

d'accord, arrète moi si je me trompe

en faite si la feuille 1 commence par 'feuil', tu coupe 'feui1' de classeur 1
tu colle 'feuil1' dans classeur 2

C'est ce raisonnement ? j'ai besoin d'être éclairé^^

n'hésite pas a donner des détails

Necro27

Voila un début di moi ce que tu en pense et si tu le comprend

Sub test()

Dim var As String, var2 As String
Dim n As Integer

n = 1
For i = 1 To Sheets.Count

Sheets.Item(n).Activate
n = n + 1
var = ActiveSheet.Name
var2 = Mid(var, 1, 5)

If var2 = "feuil" Then
[...]
End If

Next i

End Sub

Necro27

Yes c'est ça. tu prends la feuille 1 qui doit etre copier dans le classeur 1
tu prends la feuille 2 qui doit etre copier dans le classeur 2

En fait pour tous mes onglets j'ai écrit
Sub Copfichier()

Dim nom As String
nom = ActiveWorkbook.Name

Windows(nom).Activate
Sheets("feuil1").copy
Windows(nom).Activate
Sheets("feuil2").copy

End sub

En fait j'aimerais faire un raccourci en disant tu copies toutes les feuilles qui commence par feuil.

as-tu essayer d'adapter mon code? qui permet en faite de voir les 5 première lettres de chaque feuille existante, et ensuite dans le if tu met ton traitement

je vais tester et te tiens au courant.

Merci de ton aide

Bonjour,

Je viens de tester et d'adapter ta macro. ça marche :)

Merci beaucoup

Bonjour,

Ok coul ^^

Pense à mettre ton statut en résolu si la solution te convient.

Bonne journée à toi

Necro27