Discussion :

[EstebanBueno]

Bonjour,

J'ai aujourd'hui une problématique liée à l'export des données d'un TCD dans différents fichiers en fonction de leur région.

Pour résumer j'ai un fichier source du nom "Fichier source reportings.xlsx". Dedans, j'ai un onglet "Montants financés et ass" qui contient un TCD dépendant d'un autre onglet.
En gros ce sont des données en fonction de personnes, qui elles mêmes sont dans différentes régions.

Mon but : Avoir trois fichiers de 3 régions différentes, avec les personnes appartenant à ces régions.

J'ai donc tenté de créer trois fichiers, puis de les ouvrir. Ensuite, je calcule la dernière ligne de mon TCD pour passer en revue toutes les personnes de mon TCD (je fais -1 car la dernière ligne est le total). Je vais jusqu'à 6 car mon TCD s'arrête là.
En gros, le nom de la personne est en colonne 1, et la cellule sur laquelle on doit cliquer pour avoir le détail du TCD est en colonne 2. Dans un onglet "Régions", j'ai mis en colonne (A, B et C) les différentes personnes s'y rattachant. Mon idée est donc que le nouvel onglet créé soit nommé par le nom de la personne (d'où le nom_onglet = MFA.Cells(L, 1).Value) et soit déplacé dans le bon fichier suivant si je le trouve en colonne A, B ou C.

J'ai peu d'espoir que ce soit clair, mais en résumé ça ne fonctionne pas Si en lisant le code, vous voyez quelque chose qui vous choque, dites le moi

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
 
Sub Régions()
 
 
Application.DisplayAlerts = False
 
 
Set NewBook = Workbooks.Add
NewBook.SaveAs "C:\CHEMIN\Chiffres individuels IDF.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
NewBook.SaveAs "C:\CHEMIN\Chiffres individuels Est.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
NewBook.SaveAs "C:\CHEMIN\Chiffres individuels Ouest.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 
Workbooks.Open Filename:= "C:\CHEMIN\Chiffres individuels Est.xlsx"
Workbooks.Open Filename:= "C:\CHEMIN\Chiffres individuels IDF.xlsx"
Workbooks.Open Filename:= "C:\CHEMIN\Chiffres individuels Ouest.xlsx"
 
 
Windows("Fichier source reportings.xlsx").Activate
Set MFA = Workbooks("Fichier source reportings.xlsx").Worksheets("Montants financés et ass")
D = MFA.Cells(MFA.Rows.Count, "A").End(xlUp).Row
For L = D - 1 To 7 Step -1
nom_onglet = MFA.Cells(L, 1).Value
Cells(L, 2).Select
Selection.ShowDetail = True
ActiveSheet.Name = nom_onglet
    If Sheets("Régions").Range("A1:A100").Find(nom_onglet) Then
    Sheets(nom_onglet).Move Before:=Workbooks("Chiffres individuels Est.xlsx"). _
    Sheets(1)
    End If
 
    If Sheets("Régions").Range("B1:B100").Find(nom_onglet) Then
    Sheets(nom_onglet).Move Before:=Workbooks("Chiffres individuels Ouest.xlsx"). _
    Sheets(1)
    End If
 
    If Sheets("Régions").Range("C1:C100").Find(nom_onglet) Then
    Sheets(nom_onglet).Move Before:=Workbooks("Chiffres individuels IDF.xlsx"). _
    Sheets(1)
    End If
MFA.Activate
Next L
 
 
End Sub

[Invité]

Bonjour,

Si votre source de données (à partir de laquelle votre TCD est issu) contient l'information sur la région, il serait sans doute plus simple d'exporter votre onglet source de données dans trois nouveaux fichiers et d'éliminer dans chacun d'eux, 2 des régions (faites l'essai avec l'enregistreur de macro).
Ensuite, quelle est l'utilité de créer un onglet par nom, si vous pouvez obtenir le même résultat avec un filtre ?

[EstebanBueno]

Bonjour,

Malheureusement non les régions ne sont pas dans ma base de données initiales, d'où mon onglet en plus "Régions".

Pour les onglets c'est parce qu'à la base il ne faut pas que les données du fichier ouest par exemple ne soient connues par les destinataires du fichier est.

Et j'utilise le TCD car j'utilise déjà des filtres notamment sur les dates pour ne pas avoir la totalité des informations de la base de données

[Igloobel]

Bonjour,

Comment sont organisées les données sources (avant TCD) car même si j'adore faire des TCD j'en vois pas l'utilité dans ce que tu décris.

je rejoint Eric KERGRESSE (que je salue au passage ) concerant les filtres

Peux-tu faire des captures écrans pour voir comment elles sont organisées tes souces contennat tes personnes et celles de tes régions

pas de fichiers por l'instant et cache tes données sensible

@ Bientôt

[EstebanBueno]

Bonjour,

En gros, j'utilise le TCD à la base pour alimenter un autre fichier (de suivi) dont je n'ai pas fait mention ici car je n'ai pas de difficulté avec (connaître certaines sommes par personnes).

J'utilise donc ce TCD qui existe de toute façon pour ensuite exporter les données.

Je joins 3 screens. On voit les commerciaux des différentes régions, que j'ai créé pour savoir dans quel fichier envoyer. ENsuite, on voit la base de données (il y a 3x plus de colonnes existantes que sur le screen). Enfin, on voit le TCD, où je clique sur la case des montants fi pour avoir le détail. Et dans la première colonne, l'identité du commercial.

J'ai mis Nom Prenom à chaque fois, mais chaque ligne, le nom et le prénom sont évidemment différents.

Cordialement

[78chris]

Bonjour

Si tu dois exporter par région le plus simple est de mettre la région en zone de filtre puis par VBA

• utiliser l'option du TCD qui permet de créer autant d'onglets que de régions
• puis générer le sous ensemble de données sources correspondant à la région
• rattacher le TCD à cet extrait
• exporter les deux onglets dans un ficher

J'ai proposé le code suivant pour une demande similaire : il faut adapter les noms de champ, d'onglet initial et de TCD mais sinon la logique correspond

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
Sub Pays()
Dim ws As Worksheet, Total As Range, Pays As String, TCDSource As String
 
    With Worksheets("TCD").PivotTables(1)
        .PivotFields("Country").ClearAllFilters
        .PivotFields("Country").CurrentPage = "(All)"
        .ShowPages PageField:="Country"
    End With
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "TCD" And ws.PivotTables.Count > 0 Then
            Set Total = ws.Cells(ws.PivotTables(1).TableRange2.Rows.Count, ws.PivotTables(1).TableRange2.Columns.Count)
            Pays = ws.Cells(1, 2).Value
            Total.ShowDetail = True
            ActiveSheet.Name = Pays & "_Data"
            TCDSource = Replace(Pays, " ", "_")
            ActiveSheet.ListObjects(1).Name = TCDSource
            ws.PivotTables(1).ChangePivotCache _
                ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
                TCDSource)
        End If
    Next ws
End Sub

[EstebanBueno]

Bonjour,

Malheureusement mon niveau est loin d'être suffisant pour comprendre ces quelques lignes...

J'ai bidouillé, j'ai réussi à avoir le résultat souhaité.

Je mets mes quelques lignes, mais attendez-vous à avoir les yeux qui piquent...

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
64
65
66
67
68
69
70
71
72
73
74
75
76
 
 
 
Sub Régions()
 
Dim sh_source As Object
Dim nom_onglet As String
Dim x As Integer
Set sh_source = Workbooks("Fichier source reportings.xlsx").Sheets("Montants financés et ass")
 
Application.DisplayAlerts = False
 
 
Set NewBook = Workbooks.Add
NewBook.SaveAs "C:\Users\X264391\Desktop\20180209 Base de travail\Fichiers sources\Chiffres individuels IDF.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
NewBook.SaveAs "C:\Users\X264391\Desktop\20180209 Base de travail\Fichiers sources\Chiffres individuels Est.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
NewBook.SaveAs "C:\Users\X264391\Desktop\20180209 Base de travail\Fichiers sources\Chiffres individuels Ouest.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 
Workbooks.Open Filename:= _
        "C:\Users\X264391\Desktop\20180209 Base de travail\Fichiers sources\Chiffres individuels Est.xlsx"
    Workbooks.Open Filename:= _
        "C:\Users\X264391\Desktop\20180209 Base de travail\Fichiers sources\Chiffres individuels IDF.xlsx"
    Workbooks.Open Filename:= _
        "C:\Users\X264391\Desktop\20180209 Base de travail\Fichiers sources\Chiffres individuels Ouest.xlsx"
 
 
D = sh_source.Cells(sh_source.Rows.Count, "A").End(xlUp).Row
For x = D - 1 To 6 Step -1
nom_onglet = sh_source.Cells(x, 1).Value2
    '=// Afficher détails
    Workbooks("Fichier source reportings.xlsx").Sheets("Montants financés et ass").Activate
    Cells(x, 2).Select
    Selection.ShowDetail = True
    'renommer feuille
    ActiveSheet.Name = nom_onglet
 
    If Sheets("Régions").Range("A1:A100").Find(nom_onglet) Is Nothing Then
    GoTo Step2
    Else
    Sheets(nom_onglet).Move Before:=Workbooks("Chiffres individuels Est.xlsx").Sheets(1)
    End If
    GoTo fini
Step2:
    If Sheets("Régions").Range("B1:B100").Find(nom_onglet) Is Nothing Then
    GoTo Step3
    Else
    Sheets(nom_onglet).Move Before:=Workbooks("Chiffres individuels Ouest.xlsx").Sheets(1)
    End If
    GoTo fini
Step3:
    If Sheets("Régions").Range("C1:C100").Find(nom_onglet) Is Nothing Then
    Exit Sub
    Else
    Sheets(nom_onglet).Move Before:=Workbooks("Chiffres individuels IDF.xlsx").Sheets(1)
 
End If
 
fini:
sh_source.Activate
Next x
 
    Windows("Chiffres individuels Est.xlsx").Activate
    Sheets("Feuil1").Delete
    ActiveWorkbook.Save
 
    Windows("Chiffres individuels Ouest.xlsx").Activate
    Sheets("Feuil1").Delete
    ActiveWorkbook.Save
 
    Windows("Chiffres individuels IDF.xlsx").Activate
    Sheets("Feuil1").Delete
    ActiveWorkbook.Save
End Sub