supprimer une reference lotus

[jeffe]

bonjour à tous et toutes,
j'essaie d'envoyer un mail Lotus via excel, pour ce faire, je dois activer la ref Lotus Domino Objet
cela fonctionne.
Mais, si le poste sur lequel tourne la macro d'envoi , cette ref est deja activéée alors j'ai un msg d'erreur
L'idée, serais , si elle est presente, de la desinstaller, et la réinstaller ensuite, autrement la reinstaller
voici le code pour la desinstaller mais qui ne fonctionne pas

Sub suppreF()
 Dim oRef As Object
 
 Set oRef = ThisWorkbook.VBProject.References("Lotus Domino Objects")
 ThisWorkbook.VBProject.References.Remove oRef
 
 End Sub

merci pour votre aide

 

[mromain]

Re : supprimer une reference lotus

Bonjour jeffe,


Une autre solution serait peut-être d'utiliser On Error Resume Next, comme ceci :

Sub test()
    
    'force la macro à continuer, même en cas d'erreur
    On Error Resume Next
    
     'ici, tu ajoutes ta référence
     ThisWorkbook.VBProject.References.AddFromFile ("blablabla")
    
    'remet la gestion des erreurs à l'"état normal".
    On Error GoTo 0
    
End Sub

Cela permet de ne pas arrêter la macro si on essaye d'installer une référence déjà installée.

a+

 

[jeffe]

Re : supprimer une reference lotus

hello mromain, le forum
je viens de tester c'est impec, merci beaucoup pour cette solution
bonne journée à vous