Discussion :

[eddyG]

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

[ouskel'n'or]

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

Désolé mais moi pas compris. Qu'entends-tu par là ? Entête de ligne ? Dans le TCD ? Comment, dans ce cas-là peux-tu avoir les deux en même temps, entête de ligne et entête de colonne ? Tu parles d'un clic dans une cellule ?

Ce que j'ai compris : les valeurs de ton tableau changent entraînant la modif de ton tcd. Un clic dans ton tcd le copie sur une nouvelle feuille...
Après .?.
Tu dis
A+