VBA : activation de référence dans module ThisWorkbook

[dionys0s]

Bonjour le forum

j'ai un soucis avec la procédure suivante. J'ai beau chercher je ne comprends pas.

Private Sub Workbook_Open()

On Error GoTo Fin

ThisWorkbook.VBProject.References.AddFromFile ("C:\Program Files\Microsoft Office\OFFICE11\msoutl.olb")

MenuValidation.Show

Fin: MenuValidation.Show
Exit Sub

End Sub

Ce code est supposé m'activer la référence Microsoft Outlook 11.0 Object Library à l'ouverture du classeur, puis m'activer le UserForm intitulé MenuValidation. Seulement si la référence en question est déjà activée au moment de l'ouverture, il va me mettre un message d'erreur. D'où mon alternative avec GoTo Fin. Je vois sérieusement pas ce qui cloche dans le code.

Mon problème est le suivant. Il y a 2 cas possibles :

* soit la référence est déjà activée à l'éxecution de la procédure, et dans ce cas mon code fonctionne. La référence reste active et mon UserForm s'affiche ;

* soit la référence n'est pas activée à l'éxecution de la procédure, et là ça ne marche pas (complètement) puisqu'il active bel et bien ma référence, mais il ne m'affiche pas mon UserForm (MenuValidation). Je précise que celui-ci est en mode non modal.

Auriez-vous une idée de ce qui peut clocher ?
D'avance merci pour votre aide.

 

[MJ13]

Re : VBA : activation de référence dans module ThisWorkbook

Bonjour Dyonisos

J'ai cela dans mon utilitaire:

Sub Addref()
'http://frederic.sigonneau.free.fr/code/VBE/AjouterSupprimerReference.txt
'ajoute une référence à la bibliothèque
  'On Error Resume Next
  'nom et chemin de la bibliothèque
  'nomRef = "C:\Program Files\Fichiers communs\Microsoft Shared\DAO\Dao360.dll"
  'Microsoft visual basic for Application Extensibility 5.3
  nomRef = "C:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
  ThisWorkbook.VBProject.References.AddFromFile nomRef
  End Sub

Sinon, voir si c'est un problème de casse ou mettre une petite tempo.

 

[dionys0s]

Re : VBA : activation de référence dans module ThisWorkbook

Bonjour MJ13

Merci pour le code je vais regarder ça.

 

[dionys0s]

Re : VBA : activation de référence dans module ThisWorkbook

Ca ne marche pas 🙁

Private Sub Workbook_Open()

On Error Resume Next
nomRef = "C:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

ThisWorkbook.VBProject.References.AddFromFile nomRef

MenuValidation.Show

End Sub

ce code m'active bien la référence voulue mais ne m'affiche pas le userform...