MSCOMCTL.OCX – MSCOMCTL32.OCX [ 64 Bits ]

Pour ceux qui ont un Windows 32 bits, modifier SysWOW64 par System32
dans les lignes de commandes ci-dessous.
Voici la procédure :
1 - Ouvrir l'invite de commande en tant qu'administrateur
Pour ce faire, bouton démarrer / accessoires / clic droit sur
la commande "invite de commande" / exécuter en tant qu'administrateur
2 - Passer ces 2 lignes de commande :
Regsvr32.exe /u c:\Windows\SysWOW64\Mscomctl.ocx
Regsvr32.exe /u c:\Windows\SysWOW64\Mscomct2.ocx
3 - Aller dans le répertoire "c:\Windows\SysWOW64\" supprimer ou
déplacer vers un autre répertoire les 2 fichiers ocx
4 - Télécharger ce fichier zip là : Accueil de Cjoint.com
Il comprend 3 fichiers que vous copiez dans le répertoire c:\Windows\SysWOW64\
5 - Dans la fenêtre Exécuter, passer ces 2 lignes de commande :
Regsvr32.exe c:\Windows\SysWOW64\Mscomctl.ocx
Regsvr32.exe c:\Windows\SysWOW64\Mscomct2.ocx
6 - Ouvrez Excel / fenêtre VBA, Ajouter un formulaire
et supprimer de la boîte d'outils du formulaire, tous les contrôles
supplémentaires.
7 - Barre de menus / Outils / référence / Bouton parcourir / remonter
dans l'arborescence des fichiers de l'explorateur Windows, jusqu'au
2 fichiers que vous avez ajouté : Mscomctl.ocx et Mscomct2.ocx et
ajouter leur référence. ATTENTION : Il faut modifier dans dans fenêtre
Parcourir le type de fichier "DLL" pour OCX.
8 - Dans la boîte à outils, ajouter les contrôles "ListView", "ProgressBar"...
et cela devrait fonctionner! Je viens toujours juste d'exécuter cette
procédure!

Cliquez pour agrandir...

Les inconvénients sont à ce jour plus nombreux, nous notons que :

les fichiers « compilés » de type MDE, ADE et ACCDE créés avec une version 32bits ne peuvent être utilisés sur une version 64 bits ;

les contrôles ActiveX et AddIn COM doivent être compilés en 64 bits.
En d'autres termes, si vous utilisiez par exemple les programmes MzTools ou SmartIndenter, ceux-ci ne fonctionneront pas.
Même punition si vous avez installé un contrôle ActiveX.
Il faut alors installer une version 64 bits de ces composants, si elle arrive un jour…

Cliquez pour agrandir...

Par contre maintenant, j'ai également ce problème avec mon Portable.
SURFACE PRO
WINDOWS 8.1 - 64 Bits
Microsoft Office - 32 Bits
C:\Windows\SysWOW64
MSCOMCTL.OCX - NON ne Fonctionne PAS ?
mscomct2.ocx - OK Fonctionne

Cliquez pour agrandir...

En ce qui concerne MSCOMCTL : il ne FAUT pas avoir une version dans windows/system32 et dans windows/sysWOW64. Si ton SYSTEME (pas office) est en 64bits, il faut faire l'install dans sysWOW64, s'il est en 32bits tu le mets dans sys32.
Regarde ici Réinstaller ListView | Bienvenue sur Excelabo | www.excelabo.net

Cliquez pour agrandir...

Voici une procédure pour trouver le "Guid" de toutes les bibliothèques
chargées
dans un projet. Et oui, pour avoir cette information, il faut d'abord
l'avoir chargé !

Cliquez pour agrandir...

Option Explicit
Sub Lister_LesGuids_Références()

 Dim X As Integer, Sh As Worksheet
 Dim NbRef As Integer, A As Integer

 Set Sh = Worksheets.Add(After:=Sheets(Sheets.Count))

 On Error Resume Next
 With Sh
 .Name = "GUIDS"
 .Cells(1, 1) = "Nom de la bibliothèque"
 'Son appellation dans la fenêtre Reférences
 .Cells(1, 2) = "Description"
 .Cells(1, 3) = "Guid"
 .Cells(1, 4) = "Major"
 .Cells(1, 5) = "Minor"
 .Cells(1, 6) = "Chemin complet"
 With .Range("A1:F1")
 .Font.Bold = True
 .Font.Size = 12
 End With
 With Sh.Parent.VBProject.References
 NbRef = .Count
 X = 2
 For A = 1 To NbRef
 Sh.Cells(X, 1) = .Item(A).Name
 Sh.Cells(X, 2) = .Item(A).Description
 Sh.Cells(X, 3) = .Item(A).GUID
 Sh.Cells(X, 4) = .Item(A).Major
 Sh.Cells(X, 5) = .Item(A).Minor
 Sh.Cells(X, 6) = .Item(A).FullPath
 X = X + 1
 Next
 End With
 .Range("A1").CurrentRegion.EntireColumn.AutoFit
 End With
 End Sub