projets VBA avec plusieurs macros une macro disparait
1 réponse
pcouas
Bonsoir
J'ai un projets avec plusieurs XLA sous Excel .
De temps =E0 autre une macro disparait dans les r=E9f=E9rences du projet ?
Ce qui fait planter chez mon client
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
pcouas
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
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
' 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