Passage 32 bits à 64 bits

[piga25]

Bonjour,
Je viens de changer de machine qui est maintenant en 64 bits.
J'ai un message d'erreur dans une macro

pour cette macro

​

Dans la macro j'ai le mot : Function qui est sélectionné

Merci

 

[piga25]

Bonjour,

En poursuivant mes recherches j'ai trouvé un solution proposée par BrunoM45 dans ce fil : https://www.excel-downloads.com/thr...ba-32-bits-en-64-bits.20010910/#post-20082040

#If Win64 Then
  '64-bit API declarations
  Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" _
  Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

  Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" _
  Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#Else
  '32-bit API declarations
  Declare Function SHGetPathFromIDList Lib "shell32.dll" _
  Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

  Declare Function SHBrowseForFolder Lib "shell32.dll" _
  Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#End If