Discussion :

[ROSELIONE]

Bonjour, je vous prie de bien vouloir m'orienter sur le message d'erreur "dans la ligne declare function" qui s'affiche à chaque fois que j'exécute le code qui ajoute une icone dans la barre de caption du USF et qui est comme suit:

Erreur de complication
"Le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur le système de 64 Bits.
Vérifier et mettez à jour les instructions Déclare, puis marquez les avec les attributs PtrSafe.

Voici le code que j'exécute dans le module initialize userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
      (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function SendMessageA Lib "user32" _
      (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
      ByVal lParam As Long) As Long
 
Private Declare Function ExtractIconA Lib "shell32.dll" _
      (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
 
 
 
Private Sub UserForm_Initialize()
    Dim Fichier As String
    Dim x As Long
 
    'Chemin et nom du fichier icône à afficher
    Fichier = "C:\Documents and Settings\mimi\dossier\bouton.ICO"
    'Vérifie si le fichier existe
    If Dir(Fichier) = "" Then Exit Sub
 
    x = ExtractIconA(0, Fichier, 0)
    SendMessageA FindWindow(vbNullString, Me.Caption), &H80, False, x
End sub

[Pierre Fauconnier]

Salut.

Il faut ajouter ptrsafe devant les mots Function ou Sub des lignes de déclaration des apis (cfr cette discussion pour une version compatible 32/64)

Private Declare ptrsafe Function