J'ai r=E9cup=E9r=E9 cette macro pour ajouter des r=E9f=E9rences en=20
VBA.
Sub TestReference()
MsgBox CheckScriptingRef
End Sub
Private Function CheckScriptingRef() As String
Dim X As Object
Dim Msg As String
Set X =3D ThisWorkbook.VBProject.References
On Error Resume Next
X.Addfromfile "C:\WINDOWS\System\scrrun.dll"
If Err.Number <> 0 Then
If Err.Number =3D 32813 Then
Msg =3D "D=E9j=E0 r=E9f=E9renc=E9e..."
Else
Msg =3D Err.Number & vbCrLf & Error
End If
Err.Clear
Else
Msg =3D "R=E9f=E9rence ajout=E9e!"
End If
CheckScriptingRef =3D Msg
End Function
Malheureusement, j'ai des messages d'erreur du=20
type "l'acces au projet VBA n'est pas fiable" ou que "la=20
m=E9thode a =E9chou=E9".
Savez-vous pourquoi =E7a ne marche pas? Je suis sous Excel=20
2002.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
twinley
Bonjour,
Sans garantie, essaye ça :
Sous Excel, dans Outils/Macro/Sécurité, dans l'onglet Sources Fiables, cocher Faire confiance au projet Visual Basic.
-- à+twinley "Kyvu" a écrit dans le message de news:59a501c48a70$2414ce10$ Bonjour,
J'ai récupéré cette macro pour ajouter des références en VBA.
Sub TestReference() MsgBox CheckScriptingRef End Sub
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:WINDOWSSystemscrrun.dll" If Err.Number <> 0 Then If Err.Number = 32813 Then Msg = "Déjà référencée..." Else Msg = Err.Number & vbCrLf & Error End If Err.Clear Else Msg = "Référence ajoutée!" End If CheckScriptingRef = Msg End Function
Malheureusement, j'ai des messages d'erreur du type "l'acces au projet VBA n'est pas fiable" ou que "la méthode a échoué".
Savez-vous pourquoi ça ne marche pas? Je suis sous Excel 2002.
@micalement.
Kyvu On Line!
Bonjour,
Sans garantie, essaye ça :
Sous Excel, dans Outils/Macro/Sécurité, dans l'onglet Sources Fiables,
cocher Faire confiance au projet Visual Basic.
--
à+twinley
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:59a501c48a70$2414ce10$a301280a@phx.gbl...
Bonjour,
J'ai récupéré cette macro pour ajouter des références en
VBA.
Sub TestReference()
MsgBox CheckScriptingRef
End Sub
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:WINDOWSSystemscrrun.dll"
If Err.Number <> 0 Then
If Err.Number = 32813 Then
Msg = "Déjà référencée..."
Else
Msg = Err.Number & vbCrLf & Error
End If
Err.Clear
Else
Msg = "Référence ajoutée!"
End If
CheckScriptingRef = Msg
End Function
Malheureusement, j'ai des messages d'erreur du
type "l'acces au projet VBA n'est pas fiable" ou que "la
méthode a échoué".
Savez-vous pourquoi ça ne marche pas? Je suis sous Excel
2002.
Sous Excel, dans Outils/Macro/Sécurité, dans l'onglet Sources Fiables, cocher Faire confiance au projet Visual Basic.
-- à+twinley "Kyvu" a écrit dans le message de news:59a501c48a70$2414ce10$ Bonjour,
J'ai récupéré cette macro pour ajouter des références en VBA.
Sub TestReference() MsgBox CheckScriptingRef End Sub
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:WINDOWSSystemscrrun.dll" If Err.Number <> 0 Then If Err.Number = 32813 Then Msg = "Déjà référencée..." Else Msg = Err.Number & vbCrLf & Error End If Err.Clear Else Msg = "Référence ajoutée!" End If CheckScriptingRef = Msg End Function
Malheureusement, j'ai des messages d'erreur du type "l'acces au projet VBA n'est pas fiable" ou que "la méthode a échoué".
Savez-vous pourquoi ça ne marche pas? Je suis sous Excel 2002.
