Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Copie cette macro dans un module et exécute là .
Sur mon ordi, le chemin et le fichier est
"C:\Windows\System32\comctl32.dll"
Assure-toi que ce fichier "comctl32.dll" existe dans le
répertoire spécifié... il pourrait peut-être avoir l'extension ".ocx"...
Assure-toi que ce fichier existe dans le répertoire spécifié REGSVR32.Exe
'----------------------------------
Sub test1()
Dim Chemin As String
Chemin = "C:\Windows\System32\comctl32.dll"
If Dir(Chemin) <> "" Then
Shell "c:\Windows\System32\REGSVR32.Exe " & Chemin
Else
MsgBox "Chemin introuvable"
End If
End Sub
'----------------------------------
MichD
"Guy85" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...
regarde la procedure à faire sur cette page : http://support.microsoft.com/kb/177799/fr
Aië..Aïe...Aïe, bien compliquer.
J'aie bien le fichier "regvsr32.exe".
Rechercher les fichiers fautif ?
Je ne sais pas qui ?
Cordialement Guy