Discussion :

[paidge]

Bonjour,
Mon application développée sous ACCESS 97 (pas le choix y'a que ça dans ma boîte) fait de l'automation avec Excel pour charger des données dans Oracle (pas le choix non plus : c'est l'ERP qui est comme ça. Pour uploader, faut passer par ce fichier excel).
Le fichier Excel avec lequel ACCESS interagit a été développé spécialement pour l'ERP et dispose d'un menu supplémentaire permettant d'uploader les données dans la base Oracle.
J'avais écrit :

Code :

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

1
2
    ' Exécution de la commande Charger du menu Oracle
    xlApp.CommandBars(125).Controls(2).Execute

Et ça marchait bien avec Excel 2003. Mais désormais les utilisateurs disposent de Excel 2010 et cette commande n'est plus reconnue....

La méthode 'Execute' de l'objet '_CommandBarButton a échoué

En effet, le menu supplémentaire du fichier Excel se retrouve dans la partie "Compléments" du ruban.

Quelqu'un sait-il comment appeler ce menu ? Je ne peux pas appeler la Sub directement je suppose car elle est en Private (et c'est impossible de la mettre en Public car le fichier est généré par l'ERP...

Merci d'avance pour les éléments que vous pourrez m'apporter.

EDIT : Je viens de trouver cette discussion qui me donne qqes pistes (voir pièce jointe, je suis pas loin du but) mais en attendant je prends toute l'aide que vous pourrez m'apporter

[paidge]

Bon et bien à force de persévérance, j'ai résolu mon problème :
Déjà dans un premier temps, j'ai remplacé la référence vers "Microsoft Office 11.0 Object Library " par "Microsoft Office 14.0 Object Library " (ce qui paraît plus logique )
Ensuite j'ai voulu utiliser la procédure :

Code :

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

Application.CommandBars.ExecuteMso idMSO

Mais apparemment ça n'est valable que pour les fonctions intégrées à Excel. idMSO renvoyant vers le contrôle correspondant. Par exemple :

Code :

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

xlApp.CommandBars.ExecuteMso "Paste"

Donc, à force de chercher, c'est pas très compliqué : ça change pas !!!! ça doit être les IDs qui ont du changé....Sachant que l'on peut remplacer l'ID par le nom du menu personnalisé. Dans mon cas le code suivant fonctionne :

Code :

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

xlApp.CommandBars("Or&acle").Controls(2).Execute

Merci à moi-même lol
Je vais pouvoir partir en vacances un peu plus serein