Discussion :

[woodyfrance]

Bonjour,

Je cherche désespérément comment déclarer les fonctions FtpFindFirstFile et InternetFindNextFile dans Excel 2010 X64.
Cette déclaration renvoie l'erreur "Type défini par l'utilisateur non défini"...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Declare PtrSafe Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" ( _
    ByVal hFtpSession As Long, _
    ByVal lpszSearchFile As String, _
    lpFindFileData As WIN32_FIND_DATA, _
    ByVal dwFlags As Long, _
    ByVal dwContent As Long) As Long
 
Private Declare PtrSafe Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" ( _
    ByVal hFind As Long, _
    lpvFindData As WIN32_FIND_DATA) As Long

Merci à tous

[Arkham46]

Bonjour,

Il doit manquer la déclaration de WIN32_FIND_DATA.

De plus les pointeurs doivent être déclarés en LongPtr pour 64 bits.

Développer avec Office 64 bits

Voici ce que j'utilise :

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
18
19
20
21
22
23
24
25
26
Private Declare PtrSafe Function FtpFindFirstFile _
    Lib "wininet.dll" Alias "FtpFindFirstFileA" _
    (ByVal hFtpSession As LongPtr, ByVal lpszSearchFile As String, _
    lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _
    ByVal dwContext As LongPtr) As LongPtr
Private Declare PtrSafe Function InternetFindNextFile _
    Lib "wininet.dll" Alias "InternetFindNextFileA" _
    (ByVal hFind As LongPtr, lpvFindData As WIN32_FIND_DATA) As LongPtr
 
Private Const MAX_PATH = 260
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type

[woodyfrance]

En déclarant les type suivants, tout va beaucoup mieux (je crois...)

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
18
 
Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime  As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh  As Long
  nFileSizeLow   As Long
  dwReserved0   As Long
  dwReserved1   As Long
  cFileName    As String 
  cAlternate    As String * 14
End Type

Merci Arkham46. Effectivement, tout va mieux avec les bonnes déclarations.