Copie de feuille excel dans un new classeur
Résolu
calanthea
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
necro27 Messages postés 160 Date d'inscription Statut Membre Dernière intervention -
necro27 Messages postés 160 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un soucis. Je souhaiterais écrire une macro qui me permette de copier tous les fichiers commençant par le même nom ( ex : je veux copier tous les fichiers commençant par test) dans un nouveau classeur.
Merci de votre aide
J'ai un soucis. Je souhaiterais écrire une macro qui me permette de copier tous les fichiers commençant par le même nom ( ex : je veux copier tous les fichiers commençant par test) dans un nouveau classeur.
Merci de votre aide
A voir également:
- Copie de feuille excel dans un new classeur
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Copie cachée - Guide
- Word et excel gratuit - Guide
- Trier un tableau excel - Guide
9 réponses
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
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.
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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