Discussion :

[riri42]

Bonjour,

Après plusieurs heures de recherche, je bloque un petit peu.

J'ai créé un code sur excel 2010 qui fonctionne. Une fois lancé sur excel 2013, j'ai une erreur de chargement de la DLL sur la partie :

Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).ExecuteJ'ai regardé mes références j'ai pour 2013 :

- Visual Basic for applications
- Microsoft Excel 15.0 objectif library
- OLE automation
- Microsoft forms 2.0 object library
- Microsoft office 15.0 object libray

J'ai regardé mes références j'ai pour 2010 :

- Visual Basic for applications
- Microsoft Excel 14.0 objectif library
- OLE automation
- Microsoft forms 2.0 object library
- Microsoft office 14.0 object libray


Hormis la version 14 et 15 qui diffère j'ai la même chose. Comment puis-je faire fonctionner mon code sur du 2013? ci-dessous le code.

PI : j'ai aucune référen

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
Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)
  Dim vbProj As Object
 
  Set vbProj = WB.VBProject
 
  'Ne peut procéder si le projet est non-protégé.
  If vbProj.Protection <> 1 Then Exit Sub
 
  Set Application.VBE.ActiveVBProject = vbProj
 
  'Utilisation de "SendKeys" Pour envoyer le mot de passe.
 
  SendKeys Password & "~~"
  'MsgBox "Après Mot de passe"
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
  Application.Wait (Now + TimeValue("0:00:1"))
 
End Sub

Merci par avance pour votre retour,

Cordialement,

[Menhir]

Sans aucune certitude, je parierais plutôt sur le numéro ID du contrôle qui a changé entre les versions.

Ca me semble plus logique qu'un problème de bibliothèque qui, de toute façon, serait indiquée manquante dans les références.

[riri42]

Merci Menrih pour ton retour,

J'ai regardé du coup pour voir comment récupérer l'ID 2578 en version 2013, mais je trouve rien.

J'ai les ID pour les commandBar excel, mais pas les commandBar de l'éditeur VBA.

Il y a t-il moyen de contourner le numéro ID sinon ?

Merci d'avance,

[Menhir]

Aussi paradoxal que ça puisse paraitre, il est très ardu de trouver de l'aide pour tout ce qui concerne la manipulation d'objets VBE en VBA.

Les rares fois où j'ai eu l'inconscience de m'aventurer sur ce terrain, j'y suis allé en pilotant à vue avec l'explorateur d'objet (touche F2) et quelques miracles de la touche F1 sur des objets précis.
Mais pour trouver des listes de collections de constantes, c'est la traversée de la jungle.

Tu peux essayer de faire des boucles en cherchant chaque code de Contrôle et en faisant afficher leur nom (avec la propriété Name). Sur un coup de chance...

[patricktoulon]

re
peui etre que simplement ceci t'aidera a trouver ce que tu cherche

listes des command bar dans vbe et tout leur boutons

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim barre, ctrl
    Set mabarre = Application.VBE.CommandBars(1)
    For Each barre In mabarre.Controls
        Debug.Print " barre caption " & barre.Caption & "   ID " & barre.ID
        For Each ctrl In barre.Controls
            Debug.Print "             control caption " & ctrl.Caption & "   ID " & ctrl.ID
        Next
    Next
End Sub

chez moi le 2578 c'est
control caption Propriétés d&e VBAProject... ID 2578

[riri42]

Oui Menhir, j'ai vu aussi qu'il y a peu d'information sur les manipulations VBE.

Mais je souhaite créer un fichier sous forme de "PATCH" qui va modifier du code sur un autre fichier sans avoir besoin d'envoyer à chaque fois une nouvelle version de l'outil avec les corrections en cas de bug ^^

J'allais te dire merci pour ton aide et que j'allais regarder pour trouver un code pour avoir mes commandes en VBA, mais paticktoulon a fait un jolie code

Merci à toi PatrickToulon, je le test dès demain au travail sur la version 2013, car chez moi je suis en 2010. merci à vous et bonne soirée.

cdt,