XL 2016 [RÉSOLU] Charger une macro dés l'ouverture d'Excel

Ortho92 à dit:

Bonjour,

Par une macro personnelle j'ai rajouté des commandes au menu contextuel "Cells".
Elle se nomme "MenuCell".
Je souhaite pouvoir l'utiliser sur tous mes classeurs.
Je la place dans "Private Sub Workbook_Open()" du module ThisWorkbook du classeur "Perso.xlsm" lui-même dans C:\Users\...\Excel\XLSTART\Perso.xlsm, qui s'ouvre en même temps que l'application Excel :

Private Sub Workbook_Open()

MenuCell

End Sub

Ca ne marche pas.
Or si je rajoute une ligne avec un simple MsgBox "Bonjour" ça marche !!!

Private Sub Workbook_Open()

MsgBox "Bonjour"
MenuCell

End Sub

J'utilise Excel 2016, au bureau, et ça marchait avec les versions précédentes.

Que puis-je faire pour que ça marche sans m'obliger à cliquer sur le msgbox à chaque ouverture ? Supplier la direction d'investir dans une version plus récente ???

Merci d'avance, et cordialement,

Cliquez pour agrandir...

Private Sub Workbook_Open()
    Application.Run "PERSONAL.XLSB!NomDeTaMacro"
End Sub

Dranreb à dit:

Bonjour.
J'ignore si c'est différent pour un menu contextuel, mais j'ai ajouté des commandes personnelles dans le ruban, et, pour les exécuter, je n'ai pas besoin de m'occuper de l'ouverture du classeur qui les contient, c'est automatique.

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour à tous
Ceci peut-être
Pour lancer une macro à l'ouverture d'un classeur, celle-ci placée dans le fichier PERSONAL.XLSB

VB:

Private Sub Workbook_Open()
    Application.Run "PERSONAL.XLSB!NomDeTaMacro"
End Sub

Cliquez pour agrandir...

nullosse à dit:

Salut,
Depuis Excel 2016, Microsoft a renforcé la gestion du menu contextuel et des CommandBars. Résultat :
Lors de l’événement Workbook_Open du classeur Perso.xlsm, l’interface Excel n’est pas encore complètement initialisée.
Les menus contextuels ne sont donc pas encore disponibles.
Quand tu appelles MenuCell, qui modifie CommandBars("Cell"), Excel ignore la commande sans message d’erreur.
En revanche, MsgBox fonctionne car il ne dépend pas de l’interface Excel.
le MsgBox force Excel à finir son initialisation avant d’exécuter la suite.
A essayer : utiliser Application.OnTime pour décaler l’exécution :

VB:

Private Sub Workbook_Open()
    Application.OnTime Now, "MenuCell" 
End Sub

si cela ne fonctionne pas essayer avec Now + TimeValue("00:00:01")
Nullosse

Cliquez pour agrandir...

Depuis Excel 2016, Microsoft a renforcé la gestion du menu contextuel et des CommandBars. Résultat :
Lors de l’événement Workbook_Open du classeur Perso.xlsm, l’interface Excel n’est pas encore complètement initialisée.

Cliquez pour agrandir...