Extraction & creation fichier

Le
Anaïs
Bonjour,

Je sollicite votre aide pour résoudre mon problème.

J’ai une feuille Excel :

(en ligne) Produit A, Produit B, Produit C
(En colonne)
Pays a 50 60 40
Pays b 30 20 10
Pays c 23 23 23

J’aimerai extraire pour chaque pays le CA des produits. J’aimerai que chaque
extraction apparaisse dans un nouveau fichier.

J’aurai donc au final un fichier par pays
Fichier 1
(en ligne) Produit A, Produit B, Produit C
(En colonne)
Pays a 50 60 40

Fichier 2
(en ligne) Produit A, Produit B, Produit C
(En colonne)
Pays b 30 20 10

Merci de votre aide

Anais
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4755861
Bonjour,

Crée un classeur par pays:

Sub CreeClasseurs()
Application.DisplayAlerts = False
[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[g1],
Unique:=True
For Each c In Range("G2", Range("G65000").End(xlUp))
Range("G2") = c
Sheets.Add
Sheets("BD2").[A1:D10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("BD2").[G1:G2], CopyToRange:=[A1],
Unique:úlse
ActiveSheet.Copy
ActiveSheet.Name = c
ActiveWorkbook.SaveAs Filename:=c
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets("BD2").Select
Next c
End Sub

http://cjoint.com/?jek6y4Hfk1

JB
http://boisgontierjacques.free.fr/


On 4 sep, 10:20, Anaïs
Bonjour,

Je sollicite votre aide pour résoudre mon problème.

J'ai une feuille Excel :

(en ligne) Produit A, Produit B, Produit C
(En colonne)
Pays a 50 60 40
Pays b 30 20 10
Pays c 23 23 23

J'aimerai extraire pour chaque pays le CA des produits. J'aimerai que cha que
extraction apparaisse dans un nouveau fichier.

J'aurai donc au final un fichier par pays
Fichier 1
(en ligne) Produit A, Produit B, Produit C
(En colonne)
Pays a 50 60 40

Fichier 2
(en ligne) Produit A, Produit B, Produit C
(En colonne)
Pays b 30 20 10

Merci de votre aide

Anais


Publicité
Poster une réponse
Anonyme