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 :
Et enfin dans un Module, j’ai mis le code suivant :
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.
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 :
PHP:
Private Sub Workbook_Open()
InstallationFichierOcxOuDLL
End Sub
Et enfin dans un Module, j’ai mis le code suivant :
PHP:
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
Cordialement, Kim.