Passage macro 32 bits à 64 Bits

-
Bonjour,
Bonjour,
J'a une macro qui fonctionne parfaitement en 64==32 bit que je n'arrive pas à modifier pour fonctionner en 64bits. Si une bonne âme voulais m'éclairer cesserait cool!

Private Type BROWSEINFO	
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
(ByVal pidl As LongPtr, ByVal pszPath As String) As LongPtr
Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As LongPtr


Public Function LoadNomDuRep() As String
If Importations.Caption = Sheets("Langue").Range("A673").Value Then
LoadNomDuRep = Sheets("Units").Range("B61").Value & ThisWorkbook.Sheets("Units").Range("D61").Value
Importations.CheminTxt = LoadNomDuRep
Exit Function
End If
'Dim Titre As String
Dim bInfo As BROWSEINFO, Path As String, r As Long, X As Long, pos As Integer
bInfo.pidlRoot = 0&
If Importations.Caption = Sheets("Langue").Range("A554").Value Then Titre = Sheets("Langue").Range("A723").Value
If Importations.Caption = Sheets("Langue").Range("A555").Value Then Titre = Sheets("Langue").Range("A722").Value
If Importations.Caption = Sheets("Langue").Range("A668").Value Then Titre = Sheets("Langue").Range("A725").Value
If Importations.Caption = Sheets("Langue").Range("A672").Value Then Titre = Sheets("Langue").Range("A724").Value
If Importations.Caption = Sheets("Langue").Range("A483").Value Then Titre = Sheets("Langue").Range("A727").Value
bInfo.lpszTitle = Titre
bInfo.ulFlags = &H1
X = SHBrowseForFolder(bInfo)
Path = Space$(512): r = SHGetPathFromIDList(ByVal X, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0)): LoadNomDuRep = Left(Path, pos - 1)
NdR = LoadNomDuRep
Importations.CheminTxt = NdR & "\"
Else
LoadNomDuRep = ""
End If
End Function

Sub ListeCRT()
Application.ScreenUpdating = False
Dim Rep As String
Rep = ""
Rep = LoadNomDuRep
If Rep = "" Then Exit Sub
ListFilesInFolder Rep, False, 0
End Sub

Mes ajouts sont en gras
Les erreurs concernent les points soulignés
Merci d'avance.
Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.