Discussion :

[patricktoulon]

bonjour dap

déjà pour la 1 ere erreur je ne vais pas te le dire mais je vais te montrer le départ de ton code t'a pas l'impression qu'il y a une erreur non?

Code :

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

1
2
3
Sub Ruchedevise()
    createabeille3
    abeille2 = ThisWorkbook.Path & "\abeille3" & ".vbs"

ensuite pour les dates je l'avais vu il va te falloir justement complexer un peu la fonction
pas très compliqué je te laisse méditer sur la question

[- Dap -]

Re et merci ,

Pour la question 1: Noooon c'est juste ça mon problème pour la ruche... Bon ça marche du coup en mettant,

Code :

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

abeille3= ThisWorkbook.Path & "\abeille3" & ".vbs"

je t'avoue que j'ai cherché 3h tout autre sorte de problème dans le code alors que j'avais cette erreur sous les yeux c'est énervant.

Pour le point 2 si tu me dis que ce n'est pas trop compliqué donc je vais chercher, je ne voulais juste pas m'embarquer sur quelque chose de trop compliqué.

Pour la question 3 des menus as-tu une piste (je suis sûr que la réponse est triviale mais je ne comprends pas pourquoi les macro du modules ne sont pas visibles en faisant "ALT+F8").

[patricktoulon]

normalement l'appel de macro du bouton pour la ruche dans le menu en rouge serait plutôt "Ruchedevise" non?
en tout cas je vois que tu a compris la base ca fait plaisir j'ai pas bosser pour rien même si tu fait encore beaucoup de copier coller

[- Dap -]

Bonjour,

Oui ça devrait être ruchedevise, je n'ai pas encore repris toute la partie en rouge une partie est commentée avec ' car dans un premier temps je voulais réussir à afficher le menu par un clique droit sur cet onglet, chose surement triviale que je n'arrive pas à faire sur cet onglet.

en tout cas je vois que tu a compris la base ca fait plaisir j'ai pas bosser pour rien même si tu fait encore beaucoup de copier coller

Oui ça rentre plutôt bien par rapport à mon niveau en vba d'il y a 1 mois qui était proche de zéro et je te remercie encore

[patricktoulon]

tu t'emmêle les pinceaux
visiblement c'est Bloomberg pour ce sheet
dans ton menu tu fait appel a morning
pour le sans ruche tu fait appel a morning ca fonctionne et la ruche tu fait appel a Bloomberg ca ne peut pas fonctionner
ouh lala !!!!c'est un sac de nœuds
en plus l'indice c'est "price" pas " price" pour ce sheets

[- Dap -]

Bonjour Patrick,

Oui comme je l'ai dis je n'avais pas mis à jour le menu, je voulais juste que celui-ci apparaissent lorsque je faisais un "clique droit" souris.

Mais ça y est j'ai trouvé le soucis c'est en fait que sur cet onglet je ne cherche pas la fin du tableau avec le caractère "*" du coup j'ai modifié "Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)" de la manière suivante et cela fonctionne :

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
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    
    If Sheet.Name = "Devise" Then
    limite = Range("B" & Rows.Count).End(xlUp).Row
    Else
    limite = Columns(1).Find("*").Row
    End If
    
    If Sh.Name = Sheets(Sheets.Count).Name Then limite = 200
    If ActiveCell.Column <= 13 And ActiveCell.Column > 1 And ActiveCell.Row <= limite Then
        Cancel = True
        barreGENERALE Sh
    End If
End Sub

Sinon pour ceux que cela intéresse peut être la mise à jour du menu devise est la suivante :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
Sub barreGENERALE(Sh)
    deletebar "GENERALEMENU"
    Set MaBarre = Application.CommandBars.Add(Name:="GENERALEMENU", Position:=msoBarPopup)
    With MaBarre
        Set cpop = .Controls.Add(Type:=msoControlPopup)
        With cpop: .Caption = "*** Menu Pages ***"
            For Each SHS In ThisWorkbook.Worksheets
                Set bout = .Controls.Add(Type:=msoControlButton)
                bout.Enabled = SHS.Name <> Sh.Name
                With bout
                    .Caption = "page  " & SHS.Name
                    .OnAction = "'choixpage " & Chr(34) & SHS.Name & Chr(34) & "'"
                End With
 
            Next
        End With
        'SI C EST LE SHEET BLOOMBERG METTRE CES BOUTON DANS LA BARRE
 
        If Sh.Name = "PEA Binck" Then
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu BOOMBERG ***": .Enabled = False: .BeginGroup = True: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_ajour_int_bloom": .Caption = "sans la ruche": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "Ruchebloomberg": .Caption = "avec la ruche": End With
 
            End With
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligne " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter1 " & Chr(34) & Cells(ActiveCell.Row, 4).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
 
            'SI C EST LE SHEET MORNINGSTAR METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "AVie Linxea Evol" Then
 
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu MORNINGSTAR ***": .Enabled = False: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_ajour_int_MORNING": .Caption = "sans  la ruche ": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "RucheMorning": .Caption = "avec la ruche ": End With
 
            End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligneM " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'fichePorT " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "Céation de la fiche portefeuille": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter2 " & Chr(34) & Cells(ActiveCell.Row, 4).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
            '**********************************************************************************************
            'SI C EST LE SHEET avie boursorama METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "AVie Boursorama" Then
 
 
            'Set bout = .Controls.Add(Type:=msoControlButton)
            'With bout: .Caption = "*** Menu AVie Boursorama ***": .Enabled = False: End With
            ' reste des bouton ici
 
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu MORNINGSTAR ***": .Enabled = False: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_ajour_int_MORNING": .Caption = "sans  la ruche ": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "RucheMorning": .Caption = "avec la ruche ": End With
 
            End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligneM " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'fichePorT " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "Céation de la fiche portefeuille": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter2 " & Chr(34) & Cells(ActiveCell.Row, 4).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
 
 
 
            '**********************************************************************************************
            'SI C EST LE SHEET AVie Fortuneo METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "AVie Fortuneo" Then
 
 
            'Set bout = .Controls.Add(Type:=msoControlButton)
            'With bout: .Caption = "*** Menu AVie Fortuneo ***": .Enabled = False: End With
            ' reste des bouton ici
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu MORNINGSTAR ***": .Enabled = False: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_ajour_int_MORNING": .Caption = "sans  la ruche ": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "RucheMorning": .Caption = "avec la ruche ": End With
 
            End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligneM " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'fichePorT " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "Céation de la fiche portefeuille": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter2 " & Chr(34) & Cells(ActiveCell.Row, 4).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
 
 
            '**********************************************************************************************
 
            '**********************************************************************************************
            'SI C EST LE SHEET PEA PME Boursorama METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "PEA PME Boursorama" Then
 
 
            'Set bout = .Controls.Add(Type:=msoControlButton)
            'With bout: .Caption = "*** Menu PEA PME Boursorama ***": .Enabled = False: End With
            ' reste des bouton ici
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu MORNINGSTAR ***": .Enabled = False: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_ajour_int_MORNING": .Caption = "sans  la ruche ": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "RucheMorning": .Caption = "avec la ruche ": End With
 
            End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligneM " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'fichePorT " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "Céation de la fiche portefeuille": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter2 " & Chr(34) & Cells(ActiveCell.Row, 4).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
            '**********************************************************************************************
 
 
            '**********************************************************************************************
            'SI C EST LE SHEET CTO Degiro METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "CTO Degiro" Then
 
 
            'Set bout = .Controls.Add(Type:=msoControlButton)
            'With bout: .Caption = "*** Menu CTO Degiro ***": .Enabled = False: End With
            ' reste des bouton ici
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu MORNINGSTAR ***": .Enabled = False: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_ajour_int_MORNING": .Caption = "sans  la ruche ": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "RucheMorning": .Caption = "avec la ruche ": End With
 
            End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligneM " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'fichePorT " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "Céation de la fiche portefeuille": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter2 " & Chr(34) & Cells(ActiveCell.Row, 4).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
            '**********************************************************************************************
 
            '**********************************************************************************************
            'SI C EST LE SHEET PEE Entreprise METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "PEE Entreprise" Then
 
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu PEE Entreprise ***": .Enabled = False: End With
            ' reste des bouton ici
 
 
            '**********************************************************************************************
 
            '**********************************************************************************************
            'SI C EST LE SHEET PEL METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "PEL" Then
 
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu PEL ***": .Enabled = False: End With
            ' reste des bouton ici
 
 
            '**********************************************************************************************
 
 
            '**********************************************************************************************
            'SI C EST LE SHEET Livret A METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "Livret A" Then
 
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu Livret A ***": .Enabled = False: End With
            ' reste des bouton ici
 
 
            '**********************************************************************************************
 
 
            '**********************************************************************************************
            'SI C EST LE SHEET LDD  METTRE CES BOUTON DANS LA BARRE
        ElseIf Sh.Name = "LDD" Then
 
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu LDD ***": .Enabled = False: End With
            ' reste des bouton ici
 
 
            '**********************************************************************************************
 
 
 
            '**********************************************************************************************
            'SI C EST LE SHEET DEVISE METTRE CES BOUTON DANS LA BARRE
            ElseIf Sh.Name = "Devise" Then
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .Caption = "*** Menu BOOMBERG ***": .Enabled = False: .BeginGroup = True: End With
            Set cpop2 = .Controls.Add(Type:=msoControlPopup)
            With cpop2
                .Caption = "mise a jour integrale"
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "mise_a_jour_devise": .Caption = "sans la ruche": End With
 
                Set bout = .Controls.Add(Type:=msoControlButton)
                With bout: .OnAction = "Ruchedevise": .Caption = "avec la ruche": End With
 
            End With
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'mise_ajour_ligne_Devise " & Chr(34) & ActiveCell.Row & Chr(34) & "'": .Caption = "mise a jour de la Ligne": End With
 
            Set bout = .Controls.Add(Type:=msoControlButton)
            With bout: .OnAction = "'visiter3 " & Chr(34) & Cells(ActiveCell.Row, 2).Value & Chr(34) & "'": .Caption = "visiter la page de cette valeur": End With
 
 
 
        End If
 
    End With
 
    MaBarre.ShowPopup
    Cancel = True
End Sub
Sub deletebar(CmBname)
    On Error Resume Next
    Application.CommandBars(CmBname).Delete
End Sub
Sub visiter1(ticker)
    Dim Ie As Object
    Set Ie = CreateObject("internetexplorer.application")
    Ie.navigate "http://www.bloomberg.com/quote/" & ticker
    Ie.Visible = True
End Sub
Sub visiter2(ids)
    Dim Ie As Object
    Set Ie = CreateObject("internetexplorer.application")
    Ie.navigate "http://www.morningstar.fr/fr/funds/snapshot/snapshot.aspx?id=" & ids
    Ie.Visible = True
End Sub
Sub visiter3(deV)
    Dim Ie As Object
    Set Ie = CreateObject("internetexplorer.application")
    Ie.navigate "http://www.bloomberg.com/quote/" & deV & "USD:CUR"
    Ie.Visible = True
End Sub
Sub choixpage(shname)
    Sheets(shname).Activate
End Sub

[patricktoulon]

re
le "*" est important ca te permet de faire mouliner la bécane pour rien

[- Dap -]

Re,

Oui il est important mais je ne l'avais pas sur mon onglet "Devise" qui est bien différend des autres mais c'est bon avec la solution de mon poste précédent ça fonctionne pour tous les onglets.