Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Extraction de données vers plusieurs nouveaux classeurs Excel

T

TCMM

XLDnaute Nouveau
Bonjour.
Je bosse présentement sur un fichier qui a cette apparence. À chaque ID correspond une adresse mail.

ID Nom Prénom Montant
1. X. Y. T
2. T. U. O
1. X. Y. J

Serait-ce possible, d'extraire grâce à une macro les informations de chaque ID vers un nouveau classeur, qui sera par la suite nommé avec l'adresse mail correspondant à l'ID. Ex du nom du classeur: XXX@hotmail.com avec toutes ses informations.
 
Solution
Bonjour TCMM, xUpsilon,

Dans le fichier joint cette macro utilise le filtre automatique :
VB: 
Sub CreerFichiers()
Dim chemin$, F As Worksheet, tablo, i&, wb As Workbook
chemin = ThisWorkbook.Path & "\Mes fichiers\" 'à adapter
If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'crée le sous-dossier
Set F = Sheets("Inventaire") 'à adapter
tablo = Sheets("Adresse").[A1].CurrentRegion.Resize(, 2)
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier est déjà créé
For i = 2 To UBound(tablo)
    Set wb = Workbooks.Add(xlWBATWorksheet) 'nouveau document
    With F.Cells(1).CurrentRegion
        .AutoFilter 1, tablo(i, 1) 'filtre automatique
        .Copy wb.Sheets(1).Cells(1)
        .AutoFilter
    End With...
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonjour TCMM, xUpsilon,

Dans le fichier joint cette macro utilise le filtre automatique :
VB: 
Sub CreerFichiers()
Dim chemin$, F As Worksheet, tablo, i&, wb As Workbook
chemin = ThisWorkbook.Path & "\Mes fichiers\" 'à adapter
If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'crée le sous-dossier
Set F = Sheets("Inventaire") 'à adapter
tablo = Sheets("Adresse").[A1].CurrentRegion.Resize(, 2)
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier est déjà créé
For i = 2 To UBound(tablo)
    Set wb = Workbooks.Add(xlWBATWorksheet) 'nouveau document
    With F.Cells(1).CurrentRegion
        .AutoFilter 1, tablo(i, 1) 'filtre automatique
        .Copy wb.Sheets(1).Cells(1)
        .AutoFilter
    End With
    wb.Sheets(1).Columns.AutoFit 'ajustement largeurs
    wb.SaveAs chemin & tablo(i, 2) & ".xlsx", 51
    wb.Close
Next
End Sub
A+
 

Pièces jointes

  • Créer Fichiers(1).xlsm
    22.3 KB · Affichages: 7
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
Microsoft 365 Choix d'une feuille de classeur spécifique où enregistrer des données à partir d'une combobox
Réponses
7
Affichages
406
Olive de BI
E
  • Résolu(e)
XL 2021 Problème d'importation de données à partir d'un fichier Excel vers un autre fichier Excel en utilisant VBA
Réponses
3
Affichages
555
eCHO
E
T
  • Question
XL 2010 copier une liste de noms vers divers classeurs
Réponses
2
Affichages
649
tototn
T
M
  • Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
558
macseb
M
R
  • Question
XL 2019 Copier automatiquement les données à partir de plusieurs classeurs
Réponses
12
Affichages
1 K
re4
R
  • Question
Autres Transfert de données Excel dans formulaire Word
2 3 4
Réponses
54
Affichages
6 K
jeanmi
D
  • Question
Microsoft 365 CREATION DE FICHIER DE SUIVI AUTOMATISE
Réponses
5
Affichages
3 K
desto
D
T
  • Résolu(e)
Microsoft 365 Extraction de données vers plusieurs classeurs avec mise en forme et formule
2
Réponses
22
Affichages
2 K
GALOUGALOU
M
  • Question
Microsoft 365 Extraction de données selon plusieurs critères
Réponses
6
Affichages
2 K
mutzik
Y
  • Résolu(e)
XL 2010 Importer les données des feuilles de plusieurs classeurs Excel
Réponses
4
Affichages
1 K
younes belbaita
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…