ProgressBar

Oubli le message précédent, désolé, la macro est celle-ci :

Sub test1()

Dim Chemin As String, Commande As String

Chemin = "C:\Windows\System32\comctl32.dll"

If Dir(Chemin) <> "" Then

    Commande = "c:\Windows\System32\Cmd.exe " & Chemin

    Shell Commande, vbHide

Else

    MsgBox "Chemin introuvable"

End If

End Sub

MichD

Le 2010-10-15 13:21, Guy85 a écrit :

Rechercher les fichiers fautif ?

c'est cecui-ci

C:\WINNT\system32\comctl32.ocx

isabelle

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

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

regarde la procedure à faire sur cette page :  http://support.microsoft.com/kb/177799/fr

isabelle

 Le 2010-10-15 12:20, Guy85 a écrit :

bonjour Guy,

vérifie si le fichier comctl32.ocx est dans le répertoire C:\WINNT\system32

isabelle

Bonjour Isabelle,

Oui, j'ai ce fichier