Discussion :

[ALEX80800]

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

[Daniel.C]

Bonjour,

Voici un code qui fonctionnait à l'époque mais pas le cas aujourd'hui

Oui ? qu'est-ce qui se passe ? un message d'erreur ? Est-ce que la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "mnu_etools_refresh"

s'exécute ?

[Oliv-]

Salut,
peut être que cette routine t'aidera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Mesaddins()
Dim truc As Object
Set MescomAddins = Application.COMAddIns
For Each truc In MescomAddins
 
Debug.Print truc.Description + " | " + truc.progID
Next truc
 
End Sub