Microsoft 365 Fonctions conditionnelles Office 64 bits et Office 32 bits

Bonjour à nouveau,

J'aurais voulu ajouter que le message d'erreur surgit seulement si je suis avec Office 64 bits. Si en 32 bits aucun erreur.

Bonsoir.
De toute façon, quelles soient signalées en erreur ou pas, les instructions placées après une instruction de compilation conditionnelle #Else alors que la condition au #If était vraie ne doit rien gêner en réalité. Elles ne sont vraiment pas compilées.

Dranreb à dit:

Bonsoir.
De toute façon, quelles soient signalées en erreur ou pas, les instructions placées après une instruction de compilation conditionnelle #Else alors que la condition au #If était vraie ne doit rien gêner en réalité. Elles ne sont vraiment pas compilées.

Cliquez pour agrandir...

Merci. Je comprends ce que vous mentionnez et je m'aurais attendu à ceci. Mais il semble que ce n'est pas le cas. Si je suis en version 64 bits de Office ... en ouvrant le fichier il y a le message Erreur de compilation et tous les codes en dessous de #Else ... sont en rouge et ça bogue.

C'est pourquoi je me dis qu'il doit manquer quelque chose ...

Ça bogue comment ? Quels messages ?

Dranreb à dit:

Ça bogue comment ? Quels messages ?

Cliquez pour agrandir...

Je viens de découvrir une chose car j'avais placé des apostrophes devant un code.

Lorsque j'enlève les apostrophes ... c'est à ce moment que j'obtiens le message d'erreur. Et le code du 32 bits donc sous le #Else ... devient en rouge! Mais ensuite je n'ai plus le message d'erreur. J'ai 9 fonctions avec ceci dans le fichier et tous les codes pour le 32 bits sont en rouge.

Mais à l'ouverture ensuite je n'ai pas le message d'erreur

Je ne sais si le fait que le code soit et demeure en rouge puise causer problème pendant l'utilisation du fichier.

Qu'en dîtes vous?

Voici le message.

"Erreur de compilation

Le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur les systèmes 64 bits. Vérifier et mettez à jour les instructions Declare, puis marquez-les avec l'attribut PtrSafe."

C'est le code en bas du #Else qui bug. Et ça sélectionne le mot Function ... lorsque j'enlève les apostrophes ... qui avaient pour but de ne pas utiliser le code.

Merci à l'avance.

#If VBA7 Then

Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias _
"GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As _
String, ByVal cch As Long) As Long
Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long

Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" ( _
ByVal hwnd As LongPtr, ByVal dwId As Long, riid As Any, ppvObject As Object) As Long
Private Declare PtrSafe Function FindWindowExA Lib "user32" ( _
ByVal hwndParent As LongPtr, ByVal hwndChildAfter As LongPtr, _
ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr

#Else

Declare Function GetWindowTextLength Lib "user32" Alias _
"GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As _
String, ByVal cch As Long) As Long
Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Declare Function AccessibleObjectFromWindow Lib "oleacc" ( _
ByVal hwnd As Long, ByVal dwId As Long, riid As Any, ppvObject As Object) As Long
Private Declare Function FindWindowExA Lib "user32" ( _
ByVal hwndParent As Long, ByVal hwndChildAfter As Long, _
ByVal lpszClass As String, ByVal lpszWindow As String) As Long

#End If

Vous devriez joindre votre classeur.

Bien c'est très volumineux. Mais ...si vous placez le code ci-haut dans un module d'un classeur vous pourrez constater. J'ai fais le test.

Le code est en rouge mais ??? ne semble pas poser problème.

Merci à l'avance.

Bonjour à vous,

@RollyLCXL ce comportement est tout à fait normal !
Vous êtes en office 64 bits, donc tout ce qui est déclaration en 32 n'est pas compris par VBA
Mais avec une compilation conditionnelle comme vous l'avez fait, il n'y a absolument aucun problème

Si vous lancer une compilation de votre VBAProject, il ne doit rien se passer sur ces lignes


Bonne journée

wDog66 à dit:

Bonjour à vous,

@RollyLCXL ce comportement est tout à fait normal !
Vous êtes en office 64 bits, donc tout ce qui est déclaration en 32 n'est pas compris par VBA
Mais avec une compilation conditionnelle comme vous l'avez fait, il n'y a absolument aucun problème

Si vous lancer une compilation de votre VBAProject, il ne doit rien se passer sur ces lignes
Regarde la pièce jointe 1222789

Bonne journée

Cliquez pour agrandir...

Super! Merci beaucoup.

RollyLCXL à dit:

Bonjour,

Il me serait utile de pouvoir utiliser des fonctions ... en étant dans Office 64 bits ou en étant dans Office 32 bits. Selon ce que je lis il semble que cela soit possible. Mais lorsque j'ouvre le fichier tous les codes pour la version 32 bits boguent. Ils deviennent en rouge et cela affiche des messages de Erreurs de compilation.

...

#If VBA7 Then
Public Declare PtrSafe Function FindExecutableA Lib "shell32.dll" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As LongPtr
#Else
Public Declare Function FindExecutableA Lib "shell32.dll" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#End If

Cliquez pour agrandir...

bonjour,