Bonjour,
J'ai un classeur avec plusieurs feuilles.
Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les donnees (de chaque feuille) pour les coller dans un nouveau classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus complexe de le faire pour plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement :
Sub Macro1()
For Each f In Workbooks("Classeur1").Sheets
'appliquer le fitre désiré ici
Workbooks("Classeur1").Sheets(f.Name).Range("A1") _
..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Workbooks("Classeur2").Sheets(f.Name).Range("A1")
Next
End Sub
----------
Si quelqu'un veux bien m'aider.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Olivier
Bonjour,
je ne sais pas ce qui ne ne fonctionne pas corrcetement ( tu devrais nous le dire) . Moi je commencerais par remplacer Sheets(f.Name) par f f est déjà le nom d'une feuille
Olivier
"shasha" a écrit dans le message de news:
Bonjour, J'ai un classeur avec plusieurs feuilles. Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les donnees (de chaque feuille) pour les coller dans un nouveau
classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus complexe de le faire pour plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement : Sub Macro1() For Each f In Workbooks("Classeur1").Sheets 'appliquer le fitre désiré ici Workbooks("Classeur1").Sheets(f.Name).Range("A1") _ ..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Workbooks("Classeur2").Sheets(f.Name).Range("A1") Next End Sub ---------- Si quelqu'un veux bien m'aider.
Sharmila
Bonjour,
je ne sais pas ce qui ne ne fonctionne pas corrcetement ( tu devrais nous le
dire) .
Moi je commencerais par remplacer Sheets(f.Name) par f
f est déjà le nom d'une feuille
Olivier
"shasha" <shasha@discussions.microsoft.com> a écrit dans le message de news:
D9E6E761-E376-4E4A-99BB-214B76A6E182@microsoft.com...
Bonjour,
J'ai un classeur avec plusieurs feuilles.
Je dois appliquer un filtre automatique sur chaque feuilles avant de
copier les donnees (de chaque feuille) pour les coller dans un nouveau
classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus
complexe de le faire pour plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement :
Sub Macro1()
For Each f In Workbooks("Classeur1").Sheets
'appliquer le fitre désiré ici
Workbooks("Classeur1").Sheets(f.Name).Range("A1") _
..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Workbooks("Classeur2").Sheets(f.Name).Range("A1")
Next
End Sub
----------
Si quelqu'un veux bien m'aider.
je ne sais pas ce qui ne ne fonctionne pas corrcetement ( tu devrais nous le dire) . Moi je commencerais par remplacer Sheets(f.Name) par f f est déjà le nom d'une feuille
Olivier
"shasha" a écrit dans le message de news:
Bonjour, J'ai un classeur avec plusieurs feuilles. Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les donnees (de chaque feuille) pour les coller dans un nouveau
classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus complexe de le faire pour plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement : Sub Macro1() For Each f In Workbooks("Classeur1").Sheets 'appliquer le fitre désiré ici Workbooks("Classeur1").Sheets(f.Name).Range("A1") _ ..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Workbooks("Classeur2").Sheets(f.Name).Range("A1") Next End Sub ---------- Si quelqu'un veux bien m'aider.
Sharmila
Philippe.R
Bonsoir Sharmila, Sans plus de précision, il est difficile pour l'un ou l'autre contributeur de t'aider. Qu'est ce qui ne fonctionne pas bien dans ce code ? L'as tu exécuté en pas à pas ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"shasha" a écrit dans le message de news:
Bonjour, J'ai un classeur avec plusieurs feuilles. Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les donnees (de chaque feuille) pour les coller dans un nouveau classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus complexe de le faire pour plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement : Sub Macro1() For Each f In Workbooks("Classeur1").Sheets 'appliquer le fitre désiré ici Workbooks("Classeur1").Sheets(f.Name).Range("A1") _ ..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Workbooks("Classeur2").Sheets(f.Name).Range("A1") Next End Sub ---------- Si quelqu'un veux bien m'aider.
Sharmila
Bonsoir Sharmila,
Sans plus de précision, il est difficile pour l'un ou l'autre contributeur de t'aider.
Qu'est ce qui ne fonctionne pas bien dans ce code ?
L'as tu exécuté en pas à pas ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"shasha" <shasha@discussions.microsoft.com> a écrit dans le message de
news:D9E6E761-E376-4E4A-99BB-214B76A6E182@microsoft.com...
Bonjour,
J'ai un classeur avec plusieurs feuilles.
Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les donnees (de chaque
feuille) pour les coller dans un nouveau classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus complexe de le faire pour
plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement :
Sub Macro1()
For Each f In Workbooks("Classeur1").Sheets
'appliquer le fitre désiré ici
Workbooks("Classeur1").Sheets(f.Name).Range("A1") _
..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Workbooks("Classeur2").Sheets(f.Name).Range("A1")
Next
End Sub
----------
Si quelqu'un veux bien m'aider.
Bonsoir Sharmila, Sans plus de précision, il est difficile pour l'un ou l'autre contributeur de t'aider. Qu'est ce qui ne fonctionne pas bien dans ce code ? L'as tu exécuté en pas à pas ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"shasha" a écrit dans le message de news:
Bonjour, J'ai un classeur avec plusieurs feuilles. Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les donnees (de chaque feuille) pour les coller dans un nouveau classeur (avec la meme repartition de feuilles).
Facile de creer une macro pour copier/coller une feuille, mais plus complexe de le faire pour plusieurs feuilles.
On m'a déjà donné une solution qui ne fonctionne pas correctement : Sub Macro1() For Each f In Workbooks("Classeur1").Sheets 'appliquer le fitre désiré ici Workbooks("Classeur1").Sheets(f.Name).Range("A1") _ ..CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Workbooks("Classeur2").Sheets(f.Name).Range("A1") Next End Sub ---------- Si quelqu'un veux bien m'aider.
