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 : 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
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