Discussion :

[pasdomidf]

Bonjour,

j'ai réalisé un fichier excel sur excel 2003 dans lequel, j'ai dans thisWorkbook, une macro

Code :

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

private sub workbook_open

dont un des caractéristiques est de créer une barre de menu spécialisée.

Donc quand j'ouvre mon fichier via excel 2003, la barre de menu apparait.
En revanche, lorsque je l'ouvre via excel 2007, la barre de menu n'apparait pas !

Comment gérer la transition simplement.

Merci pour vos solutions.

[aalex_38]

Elle doit apparaitre dans les barres de menu complémentaire, il me semble, je n'ai plus 2007 mais je me souvien qu'elles sont créés dans un autre onglet.

[pasdomidf]

non je ne l'ai pas vue ! Ên plus cette barre de menu doit apparaître au centre de la feuille et ce n'est pas le cas !

[aalex_38]

Autant pour moi, vu que je n'ai pas excel 2007 pour l'instant, je passe la main..

Un lien qui peut t'interesser ici

[pasdomidf]

Désolé, mais cela ne répond pas à ma question ! Peut être que si je vous donne mes codes cela marchera mieux :
au début du thisworkbook :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
Dim rep As Integer
Dim Req As Integer
Dim reg As Integer
Dim reh As Integer
Dim Iden As Integer
Dim x As Integer
notice
retour_accueil
Sheets("Résultats détaillés bonus").Visible = False
Sheets("Résultats détaillés qualité").Visible = False
Sheets("Résultats détaillés env").Visible = False
Sheets("Résultats détaillés SST").Visible = False

Les macros notice et retour_accueil sont des barres de commande ! Ce sont celles-ci qui ne s'affichent pas sur excel 2007 mais qui s'affichent sur excel 2003.

Et voici la macro "retour-accueil" :

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
Sub retour_accueil()
Dim reto As CommandBar
Dim appl As CommandBarButton
Dim résu As CommandBarButton
 
 
Set reto = CommandBars.Add(Name:="Retour", Position:=msoBarFloating, temporary:=True)
reto.Visible = True
 
Set appl = reto.Controls.Add(msoControlButton)
With appl
    .Style = msoButtonCaption
    .Caption = "Retour accueil /"
    .OnAction = "Macro5"
    .Tag = "Accueil"
End With
 
Set résu = reto.Controls.Add(msoControlButton)
With résu
    .Style = msoButtonCaption
    .Caption = "Retour résultats /"
    .OnAction = "Macro6"
    .Tag = "Résultats"
End With
 
End Sub

Les macros 5 et 6 permettent juste d'activer ou désactiver une fenêtre !

Si quelqu'un a une idée pour résoudre mon problème !
Merci d'avance

Est-ce que vous connaissez un site internet qui permet d'assurer les liens excel 2003 vers excel 2007 ?