projets VBA avec plusieurs macros une macro disparait

Le
pcouas
Bonsoir

J'ai un projets avec plusieurs XLA sous Excel .
De temps à autre une macro disparait dans les références du projet ?
Ce qui fait planter chez mon client

Une idée Merci
Philippe
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
pcouas
Le #4593821
Je crois que j'ai trouve


' permet d'ajouter une reference a un projet
Sub ajout_reference()
OuverturePremierefois ("utilgen.xla")

End Sub
Sub OuverturePremierefois(ref As String)

Dim ChFile As String

'Vérifie si la présence du fichier dans le
'répertoire système du nouvel ordinateur
ChFile = CheminSystem & ""
If Dir(ChFile & ref) = "" Then
'Vérifie la présence de la dll
'dans le répertoire source de ce fichier.
If Dir(ThisWorkbook.Path & "" & ref) = "" Then
MsgBox "Le fichier à installer est absent." & _
" Placer ce fichier " & ref & " dans le ce " & _
"répertoire : " & ThisWorkbook.Path
'Si fichier(dll) n'est pas dans le répertoire
'de ce classeur, fin de la procédure.
Exit Sub
End If
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromFile
ThisWorkbook.Path & "" & ref
End If

End Sub
Publicité
Poster une réponse
Anonyme