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

création de plusieur fichier Excel automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tchip112
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tchip112

Guest
Bonjour , Je suis nouveau sur le Forum . Je me suis insrit car on m en a dit bcp de bien .

Actuellement j ai un petit problème , En effet, J'ai un fichier Excel. Dans ce fichier Excel figure 250 fournisseurs avec des éléments liés à ce fournisseur.

J’aimerais avoir une solution pour pouvoir créer automatique un fichier Excel par fournisseur (case jaune B) avec comme nom de fichier le nom du fournisseur et toute les informations figurant dans les autres colonnes et lignes doivent figurer sur le fichier. Je dois effectuer ce travail 1 fois par mois et sur une quinzaine de fichier. Si je peux automatiser ce travail ca m arrangerait.
J ai réduit volontairement le nombre de colonne et le nombre de fournisseur. Ce fichier test Excel ne comporte que 10 fournisseurs Alors qu’en réalité ca va jusqu’a 250
Merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : création de plusieur fichier Excel automatique

Bonjour,

Voir PJ

Code: 
Sub CreeClasseurs()
  Application.DisplayAlerts = False
  [A1:I10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[k1], Unique:=True
  For Each c In Range("k2", Range("k65000").End(xlUp))
    Range("k2") = c
    Sheets.Add
    Sheets("test").[A1:I10000].AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Sheets("test").[k1:k2], CopyToRange:=[A1], Unique:=False
    ActiveSheet.Copy
    ActiveSheet.Name = nomOngletValide(c)
    ActiveWorkbook.SaveAs Filename:=nomOngletValide(c)
    ActiveWorkbook.Close
    ActiveSheet.Delete
    Sheets("test").Select
  Next c
End Sub

Function nomOngletValide(nom)
  For i = 1 To Len(nom)
    x = Mid(nom, i, 1)
   If x Like "[A-Z]" Or x Like "[0-9]" Then
      temp = temp & x
   End If
  Next i
  nomOngletValide = temp
End Function

JB
Formation Excel VBA JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : création de plusieur fichier Excel automatique

Bonjour à tous, bonjour JB,

comme j'avais commencé, je le mets qd meme.
Voir le fichier joint

Je ne gere pas les "*" pour les noms de fichiers.
Je les ai enlevés de la base.
S'il faut les gerer pas de pb ...

Sub Test()
Set TempoSheet = Sheets.Add
With ThisWorkbook.Sheets("test")
.Range("B1:" & .Range("B65536").End(xlUp).Address).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=TempoSheet.Range("A1"), Unique:=True
Application.DisplayAlerts = False 'Laisser cette ligne si on veut ecraser les fichiers existants
For i = 2 To TempoSheet.Range("A65536").End(xlUp).Row
Workbooks.Add
.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=TempoSheet.Range("A1:A2"), CopyToRange:=ActiveWorkbook.Sheets(1).Range("A1")
ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & TempoSheet.Range("A2").Value
TempoSheet.Range("A2").EntireRow.Delete
Next
Application.DisplayAlerts = False
TempoSheet.Delete
Application.DisplayAlerts = True
End With
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : création de plusieur fichier Excel automatique

🙂Bonsoir a tous je viens d essayer vos reponses et je tiens à vous remercier tous !!!! C'est exactement ce que je voulais, Je suis vraiment agréablement supris . c'est vraiment cool !
Un grand merci à Catrice ;Kjin;Boisgontier;

Merci et bonnes Fetes !!🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

O
  • Question Question
Microsoft 365 Demande de création de fichier rénumérée
Réponses
5
Affichages
429
dysorthographie
L
  • Résolu(e)
XL 2016 Pb publipostage conditionnelle avec base de données Excel
Réponses
1
Affichages
652
Linda42
L
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
616
Raziel abel
C
  • Question Question
XL 2016 Création d'un fichier Excel de planification d'équipe avec contraintes
Réponses
8
Affichages
975
fanfan38
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
D
  • Résolu(e)
Microsoft 365 lier deux colonnes selon une liste de distribution dans un premier fichier
2
Réponses
16
Affichages
1 K
Daniel200666
D
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
S
  • Question Question
Microsoft 365 Redimensionnement automatique des tableaux excel en liaison dans powerpoint (réduction de la taille)
Réponses
0
Affichages
520
samuelcouni
S
M
  • Résolu(e)
Power Query Convertir un fichier PdF en Excel et restitution d'un état de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
A
  • Résolu(e)
XL 2016 Macros sur nom de fichier variable
Réponses
5
Affichages
713
oguruma
  • Question Question
Power Query [Resolu] Importer plusieurs fichiers excel provenant de dossiers différents sur sharepoint
Réponses
6
Affichages
2 K
Staple1600
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
902
lesoldat9
L
A
  • Question Question
XL 2019 Création d'une macro permettant la création automatique de fichiers CSV
Réponses
2
Affichages
1 K
Arckang
A
B
  • Question Question
Microsoft 365 Automatisation fichier de compte rendu
Réponses
13
Affichages
1 K
Blf57
B
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
921
oguruma
F
  • Question Question
Microsoft 365 Création d'un fichier pdf à partir de feuilles excel
Réponses
3
Affichages
933
kiki29
D
  • Question Question
XL 2013 Graphique comparatif par fournisseur
Réponses
2
Affichages
2 K
Decouverte Excel
D
V
  • Question Question
XL 2016 Changement automatique de valeur impression
2
Réponses
21
Affichages
3 K
VoxiBe
V
C
  • Question Question
Microsoft 365 Excel/icalendar outlook / lien hypertexte vers date correspondante
Réponses
0
Affichages
1 K
CJUSSERAND
C
H
  • Question Question
XL 2016 Paramètre de calcul à inclure dans une fonction avec INDEX EQUIV
Réponses
4
Affichages
2 K
Habs57
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…