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

[TCMM]

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.

 

[xUpsilon]

Bonjour,

L'adresse mail serait stockée où ? Il est où le lien ID-Adresse mail ?
Sinon oui bien sur que c'est possible.

Bonne continuation

 

[TCMM]

Bonjour,

L'adresse mail serait stockée où ? Il est où le lien ID-Adresse mail ?
Sinon oui bien sur que c'est possible.

Bonne continuation

Merci pour ta réponse.

L'adresse mail et l'id sont stockés dans une feuille dans le même classeur de ma base de données

 

[xUpsilon]

Re,

Fais un classeur exemple de à quoi ça ressemblerait et je te fais la macro.

Bonne continuation

 

[TCMM]

Re,

Fais un classeur exemple de à quoi ça ressemblerait et je te fais la macro.

Bonne continuation

Voici. La structure de mon fichier

 

[xUpsilon]

Re,

Voici une solution ci-joint.

Bonne continuation

 

[TCMM]

Re,

Voici une solution ci-joint.

Bonne continuation

Merci. C'est très gentil. Je l'essaie

 

[TCMM]

Ca marche uniquement pour la première adresse. Pour les autres nouveaux classeurs, ils ne portent pas le nom de l'adresse e-mail correspondant mais plutôt le nom

 

[xUpsilon]

Re,

Effectivement je me suis planté.
Voir ci joint.

Bonne continuation

 

[TCMM]

Il fonctionne bien. Par contre je n'arrive pas à l'adapter à mon problème car l'id est du type "CA002".

Peux tu me proposer quelque chose par rapport à ça.

Je te remercie

 

[xUpsilon]

Re,

Dans les paramètres : Dim Indice as String

Bonne continuation

 

[job75]

Bonjour TCMM, xUpsilon,

Dans le fichier joint cette macro utilise le filtre automatique :

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+

 

[TCMM]

Merci à tous