Bonjour,
J'ai essayé de remplacer le scrun.dll par MSOUTL.OLB , mais cela ne fontionne pas.
Des idées ?
ce code n'active pas la librarie
'vérifier la présence d'une référence, l'ajouter si absente
'(ici une référence au Microsoft Scripting Runtime, ie FileSystemObject)
Sub TestRef()
MsgBox CheckScriptingRef
End Sub
'Patrick Molloy, mpep
Private Function CheckScriptingRef() As String
Dim x As Object
Dim msg As String
Set x = ThisWorkbook.VBProject.References
On Error Resume Next
x.AddFromFile "C:\WINDOWS\System32\MSOUTL.OLB"
MsgBox (Err.Number)
If Err.Number <> 0 Then
If Err.Number = 32813 Then
msg = "Already Referenced"
Else
msg = Err.Number & vbCrLf & Error
End If
Err.Clear
Else
msg = "Reference Added"
End If
CheckScriptingRef = msg
End Function