problème compatibilité Excel 2016 32 bits ou 64 bits

Version imprimable

05/07/2022, 10h51
jpma75

problème compatibilité Excel 2016 32 bits ou 64 bits

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 :

Citation:

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,

Bonjour,

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

Code:

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

05/07/2022, 11h28
mat955

Bonjour,

Oui, cela fonctionne avec ce code.
Le meilleur moyen d'avoir la réponse, c'est de tester ;)
05/07/2022, 11h33
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)

Citation:

#If VBA7 And Win64 Then

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

@+
05/07/2022, 13h12
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
05/07/2022, 13h33
jurassic pork

Hello,

Citation:

Envoyé par jpma75

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

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:

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

Oups, je viens de me rendre compte qu'il y a encore un module à corriger...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Option Private Module
Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub Stop_Tempo()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, Procedure:="Test_Affichage_UF", Schedule:=False
End Sub
Sub Alerte_Sonore()
Dim i As Integer
    On Error GoTo fin
    For i = 1 To 3
        Beep 440, 500 'note + durée
    Next i
fin:
End Sub

Est-il possible de déclarer :

Citation:

Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Comme public ?

Cdt

J'ai remplacé Sub par Function et ça bug sur "Beep" (proc. Alerte_Sonore)

(un peu perdu avec les paramètres...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Option Private Module
'**
#If VBA7 And Win64 Then
    Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Function Beep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
'Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Sub Stop_Tempo()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, Procedure:="Test_Affichage_UF", Schedule:=False
End Sub
Sub Alerte_Sonore()
Dim i As Integer
    On Error GoTo fin
    For i = 1 To 3
        Beep 440, 500 'note + durée
    Next i
fin:
End Sub

Code:

1
2
3
4
5
6
7
#If Win64 Then
    Private Declare PtrSafe Function Beep Lib "kernel32" _
           (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
    Private Declare Function Beep Lib "kernel32" _
           (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If

Exemple d'utilisation :

Code:

1
2
3
4
Private Sub CommandButton1_Click()
'Frequence en Hz, Duree en millisecondes
Call Beep(500, 500)
End Sub

05/07/2022, 16h20
jpma75

Magnifique !!

Merci beaucoup !

Tout fonctionne bien et c'est assurément plus honorable de corriger un code de classeur que de solliciter un administrateur informatique pour réinstaller une version 32 bits sur un PC récalcitrant.

Je vais actualiser mes autres classeurs en partage pour anticiper ces effets "indésirables".

Merci
Cordialement,
jp
05/07/2022, 17h22
Promethee25

Bonjour,

Sans tester VBA7, le code risque de poser problème sur une version plus ancienne d'Excel; à voir si ce cas est possible ou non.

Bonjour,

Je viens d'ajouter ceci pour faire un test, le cas échéant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub DemoCompilerConstants() #If VBA7 Then MsgBox "VBA7" #Else MsgBox "Not VBA7" #End If #If Win64 Then MsgBox "Win64" #Else MsgBox "NOT Win64" #End If End Sub
Citation:

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

Est-il possible de faire un test d'erreur à ce niveau-là (de pré-compilation) ?

Si oui, cela suffirait-t-il à inhiber la procédure et la fonction qui en découlent (*) ?

Si le test est faisable, on peut peut-être générer une constante si erreur et s'en servir pour inhiber la procédure et la fonction ?!

06/07/2022, 08h55
jurassic pork

Hello,
voici une explication concernant le VBA7 :

Citation:

L'exécution de code VBA écrit avant la version Office 2010 (VBA version 6 et antérieure) sur une plate-forme 64 bits peut entraîner des erreurs si le code n'est pas modifié pour s'exécuter dans les versions 64 bits d'Office. Des erreurs se produiront car VBA version 6 et versions antérieures ciblent implicitement les plates-formes 32 bits et contiennent généralement des instructions Declare qui appellent l'API Windows en utilisant des types de données 32 bits pour les pointeurs et les descripteurs. Comme VBA version 6 et antérieure n'a pas de type de données spécifique pour les pointeurs ou les descripteurs, il utilise le type de données Long , qui est un type de données 32 bits de 4 octets, pour référencer les pointeurs et les descripteurs. Les pointeurs et les descripteurs dans les environnements 64 bits sont des quantités 64 bits de 8 octets. Ces quantités 64 bits ne peuvent pas être conservées dans des types de données 32 bits.

Si les versions d'Office utilisées sont supérieures ou égales à Office 2010 pas la peine d'utiliser la clause VBA7
Ami calmant, J.P
06/07/2022, 09h36
jpma75

Bonjour et merci J.P pour ces précisions.

Je testerai donc uniquement la version d'Excel (ce qui ne me fait pas renoncer à l'introduction d'un test d'erreur si c'est possible à ce niveau-là, pour shunter quelques fonctionnalités mineures sur le PC "récalcitrant")

Cdt
06/07/2022, 09h51
Philippe Tulliez

Bonjour,
A lire éventuellement Développer avec Office 64 bits
06/07/2022, 12h31
Promethee25

Citation:

Envoyé par Philippe Tulliez

Bonjour,
A lire éventuellement Développer avec Office 64 bits

Bonjour Philippe,

Je pense que le chapitre "I-C. Que choisir ?" pourrait être rafraîchi aujourd'hui en conseillant l'installation de la version 64 bits lorsque l'on a l'intention d'utiliser pleinement Power Pivot.
Ce n'est pas indispensable sur de petits modèles mais cela devient vite insupportable sur des modèles un peu plus conséquents (obligation de redémarrer Excel toutes les 15mn vécue avant de passer à l'installation 64 bits).
06/07/2022, 13h12
jpma75

@Philippe

Bonjour et merci pour le lien (que j'ai parcouru rapidement parce qu'explications bien au-delà de mes compétences).

Je retiens néanmoins ceci (sous réserve d'une mise à jour que Prométhee appelle de ses voeux) :

Citation:

Les inconvénients sont à ce jour plus nombreux, nous notons que :

Image non disponible Les fichiers « compilés » de type MDE, ADE et ACCDE créés avec une version 32bits ne peuvent être utilisés sur une version 64 bits ;

Image non disponible Les contrôles ActiveX et AddIn COM doivent être compilés en 64 bits.
En d'autres termes, si vous utilisiez par exemple les programmes MzTools ou SmartIndenter, ceux-ci ne fonctionneront pas.
Même punition si vous avez installé un contrôle ActiveX.
Il faut alors installer une version 64 bits de ces composants, si elle arrive un jour…

Cdt