Private Sub Workbook_Open()
On Error GoTo errh
Dim NomProjet As String, ref As Object, NomFichier
'Test l'accessibilite du projet
NomProjet = ThisWorkbook.VBProject.Name
'Pas d'erreur, on verifie les références
With ThisWorkbook.VBProject
For Each ref In .References
If ref.IsBroken And ref.Type = 1 Then '1=vbext_rk_Project
MsgBox "Projet manquant: " & vbCrLf & vbCrLf & ref.Name
'Suppression de la référence manquante
.References.Remove ref
'Selection d'un fichier
NomFichier = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel (*.xls), *.xls", _
Title:="Sélectionnez le fichier à référencer")
'Ajout de la reference
If Not VarType(NomFichier) = vbBoolean Then
Set ref = .References.AddFromFile(NomFichier)
Else
MsgBox "Installation annulée."
End If
End If
Next
End With
Exit Sub
errh:
If Err.Number = 1004 Then
MsgBox "Outils>Macros>Securite>Editeurs Approuves " & vbCrLf & _
"Cochez la case 'Faire confiance au projet Visual Basic'"
Else
MsgBox Err.Number & Err.Description
End If
End Sub