Vérifier si un complément est intégré avec Excel VBA

Cette tâche pratique consiste à vérifier si un certain complément est déjà installé dans le Gestionnaire de compléments ou non. Vérifiez à l’avance les compléments que vous avez déjà installés. Pour ce faire, sélectionnez la commande de menu EXTRAS / ADD-INS-MANAGER.

Maintenant, écrivez la fonction pour vérifier si par ex. B. le complément SOLVER.XLA est disponible dans Excel.

Function ComplementIntegre(ByVal str As String) _
As Boolean
Dim add As Object
Set add = AddIns(str)
If add.Installed = True Then
ComplementIntegre = True
Else
ComplementIntegre = False
End If
End Function

La propriété Installed renvoie True si le complément correspondant est intégré.

Sub AjouterDansDa()
Dim b As Boolean
b = ComplementIntegre("Solver")
If b = False Then
MsgBox "Le complément du solveur n'est pas installé."
Else
MsgBox "Le complément Solver est installé."
End If
End Sub
Lors de la spécification du complément, utilisez le nom du complément que vous pouvez trouver dans la boîte de dialogue ADD-INS. Si vous souhaitez déterminer dans quel répertoire vos compléments sont stockés, exécutez la fonction suivante:
Function DeterminerCheminComplement()
Dim a As AddIn
Dim s As String
For Each a In Application.AddIns
With a
If .Installed Then
s = s & .Name & vbTab & .Path & vbCrLf
End If
End With
Next a
DeterminerCheminComplement = s
End Function
Sub CheminsComplément()
MsgBox DeterminerCheminComplement
End Sub
Commentaires:

 Appliquez la propriété AddIns dans une boucle. Cela mettra à votre disposition tous les compléments disponibles.

 Utilisez la propriété Installed pour vérifier quels compléments sont installés dans le Gestionnaire de compléments. Les compléments déterminés de cette manière sont collectés dans une variable chaîne, puis affichés à l’écran.
Pour rendre ce look soigné, vous pouvez travailler avec vbTab et vbCrLf. Dans le premier cas, une étape de tabulation est créée et dans le second une combinaison de retour chariot et de saut de ligne.
Veuillez vous référer au tableau suivant pour les autres caractères de contrôle possibles.
Consultez le tableau suivant pour les autres caractères de contrôle possibles.

 

 Constantes  Descriptions
vbCrLf   Combinaison retour chariot et saut de ligne
 vbCr caractère de retour chariot 
 vbLf  caractères de saut de ligne
 vbNewLine  caractère de saut de ligne spécifique à la plate-forme; en fonction de celui qui convient à la plateforme actuelle
 vbNullChar  Caractères avec la valeur 0
 vbNullString  Chaîne avec la valeur 0; pas identique à la chaîne nulle (»«); est utilisé pour appeler des procédures externes.
 vbTab  Caractère de tabulation
vbBack Signe de régression
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x