Erreur betisot.dll

bonjour, j'ai besoin d'aide, je suis un débutant en macro , j'ai voulu réutiliser un code qui fonctionne normalement sur les versions Windows 97-2003 sous un Windows 2010 mais je rencontre un problème avec une erreur sur l'emplacement d'un fichier nommé betisol.dll:

[b]Public supprimer As Boolean

Public chemin As String

Public continuer As Boolean

Public type_calcul As Integer

Public temps As Integer

Public type_structure As Integer

Public type_beton As Integer

Public dim1 As Integer

Public dim2 As Integer

Public dim3 As Integer

Public nbcaractere As Long

Public fichierdata As String

Public fichierfeu As String

Public nbcaractere2 As Long

Public x As Integer

Public y As Integer

Public xmin As Integer

Public xmax As Integer

Public ymin As Integer

Public ymax As Integer

Public colmin As Integer

Public colmax As Integer

Public ligmin As Integer

Public ligmax As Integer

Public tmin As Integer

Public tmax As Integer

Public k As Single

Public i As Integer

Public j As Integer

Public kmin As Single

Public kmax As Single

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _

(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Function GetSystemDir() As String

Dim buffer As String * 256

Dim Length As Long

Length = GetSystemDirectory(buffer, Len(buffer))

GetSystemDir = Left(buffer, Length)

End Function

Public Sub controledll()

Dim chemindll As String

chemindll = ActiveWorkbook.Path

Set fs = Application.FileSearch

With fs

.LookIn = GetSystemDir

.Filename = "betisot.dll"

If .Execute(SortBy:=msoSortByFileName, _

SortOrder:=msoSortOrderAscending) > 0 Then

Exit Sub

Else

FileCopy chemindll & "\betisot.dll", GetSystemDir & "\betisot.dll"

End If

End With

End Sub

Merci d'avance

Bonjour,

de quelle erreur précise s'agit-il ?

Bonjour,

L'objet FileSearch n'est plus supporté depuis Excel 2007

Cdlt.

Bonjour,

s'il vous plait que faut il faire dans ce cas.

merci

bonjour,

essaie ceci

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

Function GetSystemDir() As String
    Dim buffer As String * 256
    Dim Length As Long
    Length = GetSystemDirectory(buffer, Len(buffer))
    GetSystemDir = Left(buffer, Length)
End Function

Public Sub controledll()
    Dim chemindll As String
    chemindll = ActiveWorkbook.Path
    If Dir(chemindll & "\betisot.dll") <> "" Then
        FileCopy chemindll & "\betisot.dll", GetSystemDir & "\betisot.dll"
    Else
        MsgBox "fichier " & chemindll & "\betisot.dll non trouvé"
    End If
End Sub

Une fois de plus merci pour le coup de pouce, cette fois j'ai la meme erreur qui apparait:Erreur d'éxécution 53 "fichier introuvable": bétisot.dll.

merci d'avance

Bonjour,

sur quelle instruction reçois-tu le message d'erreur ? (ligne en jaune dans le debogueur)

sinon essaie ceci

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

Function GetSystemDir() As String
    Dim buffer As String * 256
    Dim Length As Long
    Length = GetSystemDirectory(buffer, Len(buffer))
    GetSystemDir = Left(buffer, Length)
End Function

Public Sub controledll()
    Dim chemindll As String, nomdll As String
    nomdll = "\betisot.dll"
    chemindll = ActiveWorkbook.Path & nomdll
    If Dir(chemindll) <> "" Then
        FileCopy chemindll, GetSystemDir & nomdll
    Else
        MsgBox "fichier " & chemindll & " non trouvé"
    End If
End Sub

rebonjour, est il possible d'avoir votre mail? pour vous envoyer le fichier en question.

merci d'avance

voici le fichier en question, h2so4 lorsque la modifications il y'a une info bulle qui indique le fichier betist?dll n'a pas été retrouvé…..voici le fichier en question.

merci d'avance

7instructions.txt (337.00 Octets)

bonjour,

si tu suis les instructions qui se trouvent dans le fichier instructions.txt, tu n'as pas besoin de cette macro.

cette macro copie, s'il le trouve, le fichier "betisot.dll" du répertoire dans lequel se trouve le classeur vers c:\windows\system32. Ce que tu as fait si tu as suivi les instructions.

Rechercher des sujets similaires à "erreur betisot dll"