Création d'une barre de menu excel 2007

J'ai créé un fichier XMLM avec un menu supplémentaire.

En le plaçant dans le répertoire XLSTART

Cliquez pour agrandir...

MJ13 à dit:

Bonjour Stadros




Cela me semble logique puisque tu demandes de l'ouvrir au démarrage d'Excel (Xlstart).

Pour le second point: Il sufit de créer ton menu de façon à ce qu'il soit toujours présent (voir dans l'aide).

Cliquez pour agrandir...

J'ai créé un fichier XMLM avec un menu supplémentaire.

Cliquez pour agrandir...

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<!-- Indiquez True pour masquer tous les autres onglets standards-->
<ribbon startFromScratch="false">

<tabs>
<!-- Crée un onglet personnalisé: -->
<!-- L'onglet va se positionner automatiquement à la fin du ruban. -->
<!-- Utilisez insertAfterMso="NomOngletPrédéfini" pour préciser l'emplacement de l'onglet -->
<tab id="OngletPerso" label="OngletPerso" visible="true">

<!-- Crée un groupe -->
<group id="MON MENU PERSO" label="MON MENU PERSO">

<!-- Crée un bouton: -->
<!--onAction="ProcLancement" définit la macro qui va être déclenchée lorsque vous allez cliquer sur le bouton -->

<!--imageMso="StartAfterPrevious" définit une image de la galerie Office qui va s'afficher sur le bouton. -->
<!--(consultez la FAQ Excel "Comment retrouver l'ID de chaque contrôle du ruban ?" pour plus de détails). -->
<!-- Nota: il est aussi possible d'ajouter des images externes pour personnaliser les boutons -->

<button id="bt01" label="***" screentip="Déclenche la procédure."
onAction="bt01"
supertip="***"
size="large" imageMso="_1" />

<button id="bt02" label="***" screentip="Déclenche la procédure."
onAction="bt02"
supertip="***"
size="large" imageMso="_2" />

<button id="bt03" label="***" screentip="Déclenche la procédure."
onAction="bt03"
supertip="***"
size="large" imageMso="_3" />

<button id="bt04" label="***" screentip="Déclenche la procédure."
onAction="bt04"
supertip="***"
size="large" imageMso="_4" />

<button id="bt05" label="***" screentip="Déclenche la procédure."
onAction="bt05"
supertip="***"
size="large" imageMso="_5" />

</group>
</tab>

</tabs>
</ribbon>
</customUI>

Cliquez pour agrandir...

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpfile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


'Callback for btLance01 onAction

Sub bt01(control As IRibbonControl)
Workbooks.Open Filename:="****"
Application.Run "***!Macro1"
End Sub


Sub bt02(control As IRibbonControl)
Workbooks.Open Filename:="***"
Application.Run "***!Macro1"
End Sub


Sub bt03(control As IRibbonControl)
Workbooks.Open Filename:="***"
Application.Run "***!BCAPETR"
End Sub


Sub bt04(control As IRibbonControl)
Workbooks.Open Filename:="***"
Application.Run "***!BCAPFR"
End Sub


Sub bt05(control As IRibbonControl)
Workbooks.Open Filename:="***!CCBP"
End Sub

Cliquez pour agrandir...