Discussion :

[ADDCP]

Bonjour à vous, j'ai beau chercher je ne trouve pas d'infos sur mon problème...
Cela fait des années que j'utilise une bdd access que j'ai "réussit" jusqu'à présent à garder sous access 32 bit car dès que j'installe access 64 bit j'ai des erreurs de compilation que je n'arrive pas à corriger... Et là, nouvel ordi avec access 64 bit.. damned !

Voici typiquement un exemple :

Merci de votre aide si vous avez une idée...

[Jean-Philippe André]

Salut !

Tu peux vérifier dans un premier temps les librairies qui seraient possiblement manquantes.

Ensuite si tu décoches les librairies en question (en les remplacant le cas échéant par les bonnes librairies), ca devrait probablement résoudre ton soucis.

[Thumb down]

Bonjour,
Comme la précisé Jean Philippe c'est un problème de librairies manquantes.

Il ce trouve que visual basic application soit une librairie inscrite par défaut dans le projet VBA!

Hors l'enmplacement de cette librairie sur le disque dur diffaire selon windows 32/64 et/ou Excel 32/64!

Je t'invites à aller dans VBA=>menu=>outils=>références
Et de décrocher les librairies manquait car les librairies 32 Bits sont toujours inscrite dans le projet VBA mais non pas de correspondance avec une vraie DLL mais sont en conflits avec celles existantes en 64 Bits !

Si d'aventure ton application est destiné à être utilisé sur de systèmes mixte alors il faudra modifier ton code pour tenir compte de ce désagréable phénomènes !

[ADDCP]

Bonjour à vous et merci pour vos conseils, je me doutais du problème mais ne suis pas à l'aise avec ce sujet...
Si j'ai compris, il faut que les librairies cochées dans l'appli tournant sous access 32 soient les mêmes que sous 64.
Voici une capture de l'appli sous 32, et du coup j'ai coché les mêmes librairies sous 64 mais cela ne change rien..
Désolé je découvre ce domaine..
PS : si l'appli tourne sous 64, je ne l'utiliserai plus sous 32.

Merci!

[micniv]

Parcourir aussi le très bon tuto d'Arkham46 https://arkham46.developpez.com/arti...ice/vba64bits/

[bertiny]

Si j'ai compris, il faut que les librairies cochées dans l'appli tournant sous access 32 soient les mêmes que sous 64.

En fait tu n'as pas bien compris. Le principe est de chercher celles qui manquent et de décocher. C'est écrit manquant. Tu pourras éventuellement chercher la bonne librairie à cocher en remplacement de celle manquante.

[Thumb down]

Bonjour,
De toutes évidence tu n'a pas de librairie manquantes car les librairies activées ce trouvent toujours au début !

Tu as bien ouvert l'application incriminés tu n'es pas sur un base vierge ?

[loufab]

Bonjour,

Visiblement il n'y a rien de manquant, le problème est ailleurs.

Tu modifies du code vba par vba ? Dans le cas contraire décoche le Ms VBA extensibility.

Jusqu'à présent tu indiques des problèmes de compilation mais tu n'as montré aucun message qui l'indique.

Et non lorsque on passe d'une 32 à 64bits avec des références standards (comme celles que tu utilises) cela ne nécessite pas d'y toucher.
On vérifie effectivement que le mot "MANQUANT" n'apparaisse pas.

Tu lances une compil et tu repères les lignes en rouge (normalement une affaire de déclaration d'API qu'il faut convertir en 64bits) et RIEN de plus.

Montre-nous ces lignes pour qu'on puisse t'aider, dans le cas contraire contacte un marabout il pourra surement être aussi efficace que nous.

Cordialement,

[ADDCP]

Bonjour,
effectivement je n'avais pas compris l'histoire des librairies manquantes...

Tu modifies du code vba par vba ? Dans le cas contraire décoche le Ms VBA extensibility.

Oui enfin je crois pour une autre base... (que je n'ai pas encore testé sous 64)

Tu as bien ouvert l'application incriminés tu n'es pas sur un base vierge ?

non, c'est bien la bonne application

Tu lances une compil et tu repères les lignes en rouge (normalement une affaire de déclaration d'API qu'il faut convertir en 64bits) et RIEN de plus.

Si j'ai bien compris, voici les lignes en rouge et le message d'erreur :



J'espère que ce dernier point suffira à résoudre le problème... en tout cas, merci à vous

[Thumb down]

tu veux qu'on corrige en utilisant Photoshop?

[ADDCP]

Ah yes...
désolé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 ' FONCTIONS API
Declare Function SHGetSpecialFolderLocation _
    Lib "shell32" ( _
        ByVal hwnd As Long, _
        ByVal folderid As Long, _
        shidl As ITEMIDLIST) _
    As Long
 
Declare Function SHGetPathFromIDList _
    Lib "shell32" _
    Alias "SHGetPathFromIDListA" ( _
        ByVal shidl As Long, _
        ByVal shPath As String) _
    As Long

Merci

[hyperion13]

Salut

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
Option Explicit
#If VBA7 Then
Public Declare PtrSafe Function SHGetSpecialFolderLocation _
                         Lib "shell32" (ByVal hwnd As LongPtr, _
                                        ByVal nFolder As Long, ppidl As LongPtr) As LongPtr
Public Declare PtrSafe Function SHGetPathFromIDList _
                         Lib "shell32" Alias "SHGetPathFromIDListA" _
                            (ByVal pidl As LongPtr, ByVal pszPath As String) As LongPtr
#Else
Public Declare Function SHGetSpecialFolderLocation _
                         Lib "shell32" (ByVal hwnd As Long, _
                                        ByVal nFolder As Long, ppidl As Long) As Long
 
Public Declare Function SHGetPathFromIDList _
                         Lib "shell32" Alias "SHGetPathFromIDListA" _
                             (ByVal pidl As Long, ByVal pszPath As String) As Long
#End If

[ADDCP]

Hey! ça marche!! Merci à vous.

(Il faudrait que je comprenne pourquoi un jour..)

[Thumb down]

Bonjour,
Les libraires sont développés en C++.

En 32 Bits un numérique long devient un integer en 64 Bits soit dans les 2 cas 4 Octets. Ça c'est facile à comprendre 64/2=32

En revanche PtrSafe et LongPtr c'est plus compliqué !
Ici nous avons à faire à des pointeurs ce qui signifie que nous faisons référence un un objet qui ce trouve à une adresse mémoire bien défini.

#If #Else #En If
Sont de directives de compilation ??
Avant chaque exécution de macro un compilateur convertit le texte de la macro en information intelligibles par l'ordinateur ces directives de compilation aiguilles le compilateur vers tel ou tel ligne de code à prendre en compte !

Si VBA6 n'utilise pas les pointeurs VBA7les utises d'où le #If VBA7