Export automatique VBA dans Excel
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:
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
