Compatibilité Office 2016/2021

Bonjour,

Voir sur ce forum... https://www.developpez.net/forums/d2048281/logiciels/microsoft-office/access/vba-access/erreur-getopenfilename/

Bonjour,

Vous avez bien identifié la cause, il manque le mot-clé PtrSafe une fois en VBA7.

Private Declare PtrSafe Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)
Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPtr

Notez que j'ai utilisé un LongPtr.

Si ça pète plus loin dans votre code, la compatibilité doit aussi être adaptée sur les handle (marqueurs) et descripteurs en remplaçant le type par LongPtr, un exemple :

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As LongPtr
    hInstance As LongPtr
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As LongPtr
    lpfnHook As LongPtr
    lpTemplateName As String
End Type

Tenez au jus !

Bonjour,

Pourquoi utiliser du VBA, alors que Power Query peut très bien le faire, tout seul.

Et en plus, on peut transformer, modifier, travailler avant l'import dans Excel...

Surtout avec 2021.

Bonne journée

Merci à tous pour vos réponses.

Je regarde ça et je reviens vers vous si besoin.

Cordialement.

Mistral