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.
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 |