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