Discussion :

[Tonio-]

Bonjour,

Actuellement en stage en compta et connaissant peu le VBA je m’adresse à vous.

Nous avons une feuille des données excel regroupant plusieurs informations sur nos filiales.
J'aimerai développer une marco qui identifierai, exctracterai toutes les informations pour une filiales et créerait un classeur par filiale avec ses informations.

J'avoue être complétement perdu dans le code.

Merci pour votre aide.

Tonio-

[Gado2600]

Bonjour

J'avoue être complétement perdu dans le code

Quel est ton code ?

identifierai, exctracterai toutes les informations

D'où proviennent les données ? Comment sont-elles organisées ?

Si c'est généré un classeur par filiale, et qu'il n'y aucun traitement à faire, l'algorithmie serait la suivante :

1) Afficher les informations avec un tri sur l'identifiant de la filiale (partie identification)
2) Parcourir chacune des lignes de ta base de données et recopier les données et/ou les traiter dans un nouveau classeur jusqu'à ce que ton identifiant ne soit plus celui qui correspond à ta filiale (partie extraction)

On manque un peu de détails...

Cordialement,

[Tonio-]

Gado2600 merci pour ton aide.

Les données sont triées par identifiant produit. il chaque filiale possède une ou plusieurs références produits uniques.

J'ai obtenu ce code grâce à la fonction enregistrement de macro.

Je manque de connaissance pour effectuer la boucle que tu me proposes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Test()
'
' Test Macro
'
 
' Selection des premieres données. Je ne sais pas variabiliser le "2" sachant que mes filiales vont de "01" à "99".
 
    ActiveSheet.Range("$A$2:$X$261").AutoFilter Field:=1, Criteria1:="2"
    Range("A1:Y261").Select
    Range("B7").Activate
' Copie des données et création de la nouvelle feuille
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Windows("Classeur2").Activate
'Je recommence à copier les données du même classeur, de la même filiale mais d'une autre feuille.
    ActiveSheet.Range("$A$2:$X$261").AutoFilter Field:=1
    Sheets("Produits2").Select
    Range("A118").Select
    Selection.End(xlUp).Select
    ActiveSheet.Range("$A$2:$AM$211").AutoFilter Field:=1, Criteria1:="2"
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Classeur11").Activate
    Range("B9").Select
    Sheets("Feuil2").Select
    ActiveSheet.Paste
    Windows("Classeur2").Activate
    ActiveSheet.Range("$A$2:$AM$211").AutoFilter Field:=1
End Sub

grand merci pour ton aide.

Cordialement,

Tonio-

[MarcelG]

Bonjour,

Tout d'abord, il faut bien débuter et nous passons tous par là.

Après une familiarisation sur les tableaux et les dictionnaires, tu pourras utiliser cette - modeste - contribution.

création de feuilles depuis occurences

Avec cette adaptation : créer un classeur en lieu et place de créer une feuille

Bonne soirée.

[Tonio-]

Merci encore pour votre aide.

Pouvez-vous me dire vos pensées sur ce code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
 
Option Explicit
Option Compare Text
 
Sub Test()
 
End Sub
Dim Codeentity As String
Dim Email As String
Dim n As Integer
Dim Nom_Fichier_source As String
 
'Lancement de la boucle
n = 2
Nom_Fichier_source = ActiveWorkbook.Name
 While Not IsEmpty(Sheets("contact").Cells(n, 1))
 
 'Création et enregistrement d'un nouveau classeur
    Workbooks.Add
            ChDir "XXX/XXX/XXX/XXX"
    ActiveWorkbook.SaveAs Filename:= _
            "XXX/XXX/XXX/XXX/&n.xls", _
            FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
 
'Les ongles sont renommés
    ActiveSheet.Paste
        Sheets("Feuil1").Select
        Sheets("Feuil1").Name = "Product"
        Sheets("Feuil2").Select
        Sheets("Feuil2").Name = "Product bio"
 
'Selection et copie  des données
    Windows("New Product.xls").Activate
        Sheets("Bank information").Select
        ActiveSheet.Range("$A$2:$X$261").AutoFilter Field:=1, Criteria1:="n"
        Range("A1:Y261").Select
        Range("M9").Activate
        Selection.Copy
        ActiveWindow.ScrollColumn = 3
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.SmallScroll Down:=-9
 
 'Nous collons les données
    Windows("n").Activate
    ActiveSheet.Paste
 
 'Fermeture du classeur
    Windows("n.xls").Activate
    ActiveWindow.Close True
 
    n = n + 1
 
'Fin de la boucle
Wend
 
 'Nous fermons les classeurs
  Windows("New Product.xls").Activate
 ActiveWindow.Close False
 
 
End Sub

Merci pour vos retours.

Cordialement,

Tonio-

[Tonio-]

Bonjour à tous,

Je rencontre un problème dans l'enregistrement du fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 ActiveWorkbook.SaveAs Filename:= _
            "XXX/XXX/XXX/XXX/&n.xls", _
            FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False

J'aimerai variabilité le nom. Savez-vous comment je peux faire ?

Cordialement,

TONIO-