Erreur de compilation

Bonjour,

j'ai téléchargé sur le site de Ecel pratique un fichier de création de devis mais en voulant l'ouvrir, j'ai ce message qui apparait.

Bonjour,

C'est parce que l'application a été créée pour systèmes 32 bits et que vous etes en 64 bits. Cf. Vue d’ensemble de Visual Basic pour Applications 64 bits | Microsoft Learn

Pour corriger, supprimmez l'ensemble du code en rouge et remplacez le par :

#If VBA7 Then
    Declare PtrSafe Function GetWindowLongA Lib "user32" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Declare PtrSafe Function SetWindowLongA Lib "user32" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Declare PtrSafe Function FindWindwA Lib "user32" _
        (ByVal IpClasseName As String, ByVal IpWindowName As String) As Long
#Else
    Declare Function GetWindowLongA Lib "user32" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Declare Function SetWindowLongA Lib "user32" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Declare Function FindWindwA Lib "user32" _
        (ByVal IpClasseName As String, ByVal IpWindowName As String) As Long
#End If

Si je n'ai pas fait d'erreur de recopie (la prochaine fois prenez le temps de copier-coller le code, c'est toujours utile…) ça devrait fonctionner.

Bonne journée.