Installation ToolTip Contrôle

[Kim75]

Bonsoir le forum

Recherchant dans la toile des articles sur le contrôle ToolTip pour voir un peu comment ça se présente, je suis tombé sur :

Ce lien n'existe plus

J’ai alors téléchargé les deux fichiers ci dessous unploadés que j'ai mis dans le dossier "Système32" :

-1° avToolTips.ocx
-2° avToolTips.CNT

Ensuite j’ai mis dans ThisWorkbook le code suivant :

Private Sub Workbook_Open()
InstallationFichierOcxOuDLL
End Sub

Et enfin dans un Module, j’ai mis le code suivant :

Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub InstallationFichierOcxOuDLL()

Dim FichierSource As String, FichierCible As String
Dim OcxFile As String, Chemin As String

OcxFile = "avToolTips.ocx"
Chemin = CheminSystem & "\"

FichierSource = ThisWorkbook.Path & "\" & OcxFile
FichierCible = Chemin & OcxFile

If Dir(FichierCible) = "" Then

If Dir(FichierSource) = "" Then
MsgBox "Le ficher " & OcxFile & " n'est pas dans " & _
"le même répertoire de ce classeur! Vérifier !" & vbCrLf & vbCrLf & _
"Afin d'assurer le bon fonctionnement des processus" & vbvrlf & _
" d'automation de ce fichier, copier le fichier" & vbCrLf & _
" manquant le répertoire suivant : " & Chemin & vbCrLf & vbCrLf & _
"Ce classeur se fermera à la fermeture de cette fenêtre.", _
vbCritical + vbOKOnly, "Info utilisateur"
ThisWorkbook.Close False
End If

FileCopy FichierSource, FichierCible

Shell Chemin & "regsvr32.exe " & OcxFile & " /s"

Application.VBE.ActiveVBProject.References.AddFromFile FichierCible

End If

End Sub

Function CheminSystem()
Dim RetVal As Long
Dim SysDir As String

SysDir = Space$(256)
RetVal = GetSystemDirectory(SysDir, Len(SysDir))

If RetVal <> 0 Then
CheminSystem = Left$(SysDir, RetVal)
End If
End Function

Au final, le contrôle devait s’installer, et j’aurais dû le voir apparaître dans la liste des contrôles supplémentaires, mais ça n’a pas marché.



Cordialement, Kim.