Discussion :

[jejeaunet75]

Bonjour,

Je me permets de vous solliciter car j'ai un problème avec la création d'un TCD.
Je suis parti de l'enregistreur de macro. J'ai adapté le code pour que la sélection soit dynamique mais...rien à faire...

Je commence à me tirer les cheveux ...

Voici mon code, si un compère aurait une idée de mon erreur...je suis preneur ...

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
 
 
Sub Macro3()
'
' Macro3 Macro
'
 
'
'Annule toutes les alertes Excel
   'Application.DisplayAlerts = False
   'Workbooks.Add
   'ActiveWorkbook.SaveAs Filename:="D:\Profile\JeJEAUNET.000\Desktop\Documents présents sur le bureau\Statistique_apprentissage\Traitements effectifs conventionnés\Sorties\UL\BASEULdate.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:=""
   'Windows("test.xml").Activate
   'Range("A1").CurrentRegion.Select
   'Selection.Copy
   'Windows("BASEULdate").Activate
   'Range("A1").Select
   'ActiveSheet.Paste
   'Application.CutCopyMode = False
   'Windows("test.xml").Activate
   'ActiveWorkbook.Close False
 
    Sheets(1).Name = "apprentis_placesconv"
    Sheets(2).Name = "apprentis_en_lycee"
    Sheets(3).Name = "taux remplissage"
 
    Range("A1").Select
    ActiveWorkbook.Names.Add "TABLE_TCD", Range("A1").CurrentRegion
    Selection.CurrentRegion.Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "TABLE_TCD", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="apprentis_en_lycee!R1C1", TableName:= _
        "TCD", DefaultVersion:=xlPivotTableVersion10
    Sheets("apprentis_en_lycee").Select
    Cells(1, 1).Select
 
 
End Sub

D'avance merci.

Bonne soirée.

[vanhoa]

Bonjour jejeaunet,

Aurais-tu plus de details? Par exemple, est ce que tu souhaites creer un tcd a chaque fois ou alors tu voudrais que dans un tcd deja cree, la plage de reference s'agrandisse ou se reduit enfonction de rajout/elimination d'elements?

Par exemple, decris les etapes une par une pour avoir une bonne vision de ce a quoi tu souhaites aboutir