Bonjour,

Je voudrais parcourir tous les formulaires (ouverts ou non => AllForms) pour leur affecter un ruban (prop. RibbonName) donné.

Le code ci-dessous permet bien d'afficher les noms de tous les formulaires ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim obj As AccessObject
    Dim dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        Debug.Print obj.Name
    Next obj
... mais comment, à partir du nom puis-je accéder à un objet qui reconnaisse la propriété RibbonName ?

J'ai essayé dbs.AllForms(obj.Name).RibbonName = myRibbon et deux douzaines d'autres variantes mais aucune ne passe la compilation. J'ai l'impression que AllForms donne accès à des "AccessObject" et non à des "Form".

Une idée ? Au passage, est-il possible d'utiliser l'explorateur d'objet pour résoudre ce genre de problème ?

Cordialement,
Olivier