Automatisation macro application BO intégrée
Bonjour,
Le Groupement où je travaille, a opté pour l'application intégré BO ans Excel afin de remonter ces données statistques et financières.
Pour l'utiliser on se connecte à cette application, on valide par OK une fenêtre d'invit et on "Rafraîchi le document" pour obtenir les données à jour.
L'arborescence des donées s'effectue en deux dimensions (Temps, agrégats).
Le croisement des données se situe à partir de la colonne D et la la ligne 15. Et pour cacher les paramètres de l'arborescence on a recours au plan (excel)
Je voudrais automatiser l'ouverture de BO, le rafraichissement du classeur et grouper le plan pour cacher l'arboresence.
Mais je ne sais pas par où commencer.
J'ai essayé d'enregistrer mes manips sur l'enregistrement mais aucune trace.
Voici un code qui fonctionnait à l'époque mais pas le cas aujourd'hui
Code:
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
| Sub Macro3()
'
' Bouton_rafraichissement Macro
' Macro enregistrée le 23/06/2008 par Sgilbert
'
'
Application.Run "mnu_etools_refresh"
Sheets("Sommaire").Select
Range("D1:D16").Select
Selection.NumberFormat = "General"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D8").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D9").Select
ActiveCell.FormulaR1C1 = "=R[7]C[-2]"
Range("D10").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-1]C[6]"
Range("D11").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-2]C[7]"
Range("D12").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-3]C[8]"
Range("D13").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-3]C[6]"
Range("D14").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-4]C[7]"
Range("D15").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-5]C[8]"
Range("D16").Select
ActiveCell.FormulaR1C1 = "=Feuil1!R[-6]C[9]"
Range("D13").Select
Range("D1:D16").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K72").Select
Application.CutCopyMode = False
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=1
Sheets("Sommaire").Select
Range("K72").Select
End Sub |
Merci de votre aide
