Bonjour,


J'ai un export qui fonctionne très bien pour le coup SAUF que mon problème, c'est qu'il crée une feuille résultante d'un détail dans un tableau croisé dynamique, c'est à dire que je double clique dans une cellule du TCD et qu'une nouvelle feuille se crée.

Donc, comme vous avez pu le comprendre, mon souci va venir lorsque mon TCD va bouger du fait que mes données ne seront plus égales.

En clair, ce que je voudrais, c'est commander mon clique par rapport à mon entete de colonne et mon en tete de ligne.

Pour aide, voici mon code actuel:
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 Export_Beauce()
 
    Sheets("TCD").Select
    Range("BJ19").Select
    Selection.ShowDetail = True
    ActiveSheet.Select
    ActiveSheet.Name = "Data_Beauce"
    Sheets(Array("BEAUCE", "Data_Beauce")).Select
    Sheets("Data_Beauce").Activate
    Sheets(Array("BEAUCE", "Data_Beauce")).Copy
    ChDir "C:\Documents and Settings\egari\Bureau"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\egari\Bureau\Beauce.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Application.WindowState = xlMinimized
    Windows("Copie de Copie de STATS_RC.xls").Activate
    Sheets("Data_Beauce").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("BEAUCE").Select
    Range("B54").Select
End Sub
Merci d'avance

Eddy