Exporter une feuille excel vers un nouveau classeur en filtrant

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Exporter une feuille excel vers un nouveau classeur en filtrant

Profil supprimé

Exporter une feuille excel vers un nouveau classeur en filtrant sur une colonne: exemple

un tableau avec une colonne pays, et je souhaite exporter ce tableau X fois (x = nombre de pays) donc chaque nouveau classeur ressemblera ne contient que les données liées à 1 pays à la fois:

voici mon tableau: l'onglet data et options: https://imgur.com/a/BzgOm5A

et mon code qui me vient de cet exemple: https://philippetulliez.developpez. [...] cedfilter/

Code :

Sub Rectangleàcoinsarrondis1_Cliquer()
' Déclaration + Initialisation des variables
Dim rngList As Range, rngData As Range, rngCriteria As Range, r As Long
Set rngData = shtData.Range("H1" ).CurrentRegion
With shtParam
Set rngList = .Range("C1" ): Set rngCriteria = .Range("F1:F2" )
End With
' Etape 1 - Création d'une liste unique basée sur la colonne 1
With rngData
.Resize(, 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngList, Unique:=True
End With
' Etape 2 - Boucle sur la liste avec placement du critère
' Création nouvelle feuille
' Exportation vers nouvelle feuille
' Déplacement de cette nouvelle feuille vers un nouveau classeur
For r = 1 To rngList.CurrentRegion.Rows.Count - 1
rngCriteria.Cells(2, 1) = rngList.Offset(r) ' Insère le critère
' 2.1 - Création d'une feuille
Sheets.Add before:=Sheets(1): Sheets(1).Name = rngList.Offset(r)
' 2.2 - Exportation vers nlle feuille suivant critère
With rngData
.AdvancedFilter xlFilterCopy, rngCriteria, Sheets(1).Range("A1" )
End With
' 2.3 - Déplacement de la feuille cers un nouveau classeur
Sheets(1).Move
'
' Ici code pour sauver classeur, Envoyer par email etc...
'
Next
End Sub

j'ai tenté ma chance sur ce forum via ce fil de discussion: https://www.developpez.net/forums/d [...] st11133166

Mais je suis coincé: j'ai une erreur quand je tente d'executer mon code (vous pouvez voir les screenshot dans le lien developpez.net)

Auriez vous une piste ?

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Exporter une feuille excel vers un nouveau classeur en filtrant

Sujets relatifs
Macro copie vers un autre fichier	[GSuits] UPDATE :Exporter des tableaux Gsheet dans ... SUITE.
VBA Excel, TextBox qui ne fonctionne pas.	Macro Excel à executer sur une cellule selectionné
Erreur code Formulaire de saisie excel	DirectDraw vers DirectGraphics
Script qui récupère données fichier Excel vers document	Export mails dans Excel
[Résolu] [Wordpress][Config] Erreurs redirections vers sous-dossier
Plus de sujets relatifs à : Exporter une feuille excel vers un nouveau classeur en filtrant

Page générée en 0.044 secondes