Discussion :

[jpma75]

Bonjour,

J'ai élaboré un classeur (partagé) sous Excel 2016 32 bits.

Un des utilisateurs utilise à présent une version 2016 64 bits qui provoque un blocage sur la ligne suivante :

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

J'ai envisagé de contourner le problème en gérant cette erreur mais cette ligne est en-dehors du module...
Existe-t-il un code similaire qui soit compatible pour les versions 32 et 64 bits ?

En vous remerciant par avance pour votre aide précieuse,
Cordialement,

[jpma75]

Bonjour,

Je viens de trouver ça, est-ce que c'est la solution ?

Code :

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

1
2
3
4
5
#If VBA7 And Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Merci encore pour votre aide,
Cdt

[mat955]

Bonjour,

Oui, cela fonctionne avec ce code.
Le meilleur moyen d'avoir la réponse, c'est de tester

[jpma75]

Bonjour,

Si fonctionne "normalement" sur ma version 32 bits mais toujours pas sur la version 64 bits.

J'ai supprimé VBA7 pour ne conserver que Win64 (j'attends le retour de l'utilisateur à défaut de pouvoir utiliser l'option de débogage sur son poste et voir où ça coince)

#If VBA7 And Win64 Then

Question subsidiaire : à quoi servent les # dans ce bout de code ?

@+

[Promethee25]

Bonjour,

"#If VBA7" devrait suffire.
les éléments introduits par "#" correspondent à des instructions de pré-compilation.

[Edit] Lien Microsoft confirmant mon affirmation:
https://docs.microsoft.com/en-us/off...tions-overview

[jurassic pork]

Hello,

Si fonctionne "normalement" sur ma version 32 bits mais toujours pas sur la version 64 bits.

Avec le code contenant #If VBA7 And Win64 le Sleep devrait fonctionner en 32 et 64 bits. Peux-tu nous montrer le code complet qui ne fonctionne pas en 64 bits et nous dire où cela ne fonctionne pas ?
Ami calmant, J.P

[jpma75]

Bonjour Jurassic,

Voici le code (l'utilisateur est indisponible pour l'instant - je n'ai toujours pas accès à son PC pour voir si avec la modif, ça bug ailleurs...)

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Explicit
Option Private Module
'**
'#If VBA7 And Win64 Then
#If Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
'**
'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Inser_Comment()
Dim le_commentaire
Dim Cancel As Byte
Dim Target
Dim rép As Byte
 
    With ActiveCell
        If .NoteText = "" And ActiveCell <> 0 Then
            le_commentaire = InputBox("Entrez votre commentaire :")
 
            If le_commentaire <> "" Then
                ActiveSheet _
                    .Unprotect Password:="xx"
                    .AddComment le_commentaire & Chr(10) & "[" & "Note de " & Last_User & " du " & Format(Date, "d mmm yyyy") & "]"
 
                With .Comment.Shape.OLEFormat.Object.Font
                        .Name = "Tverdana"
                        .Size = 10
                        .FontStyle = "Normal"
                        .ColorIndex = 5
                End With
 
                With .Comment
                    .Visible = True
                    .Shape.Top = ActiveCell.Top + 25
                    .Shape.Select
                     Selection.AutoSize = True
                     Selection.Interior.ColorIndex = 36
 
                     DoEvents
                     Sleep 2500
                    .Visible = False
                End With
 
                ActiveSheet.Protect Password:="xx", userinterfaceonly:=True
            End If
        Else
            With ActiveCell
                If .NoteText <> "" And ActiveCell <> 0 Then
                    rép = MsgBox("Voulez-vous effacer ce commentaire ?", vbYesNo + vbQuestion, "")
 
                    If rép = vbNo Then Exit Sub
                    ActiveSheet.Unprotect Password:="mp"
                    ActiveCell.ClearComments
                    ActiveSheet.Protect Password:="mp", userinterfaceonly:=True '
                End If
            End With
        End If
    End With
End Sub

Cdt