Discussion :

[meumeu73.1]

Bonjour,

je souhaite faire un transfert de fichier par FTP, j'ai récupéré un bout de code, et je l'ai adapté avec un collège, le problème est que avec notre même configuration Excel, même référence, chez lui cela fonctionne et chez moi non.

référence supplémentaire intégrée : Microsoft Internet Transfer Control 6.0 (SP6)

J'ai une Erreur 429 : Un composant ActiveX ne peut pas créer d'objet ?

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
Function UploadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal LocalFileName As String, _
    ByVal RemoteFileName As String) As String
 
    Dim FTP As INet
 
    Set FTP = New INet
    With FTP
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        UploadFile = (.ResponseCode = 0)
    End With
    Set FTP = Nothing
End Function

Puis

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
27
28
29
30
Sub Conversion()
    Dim wbExcel As Workbook
    Dim rep As String
    Dim OldName, NewName
    rep = Dir("D:\*.xls", vbDirectory)
 
    Do While (rep <> "")
 
        If (GetAttr("D:\" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "Répertoire " & rep
 
    Else
            rep1 = Replace(rep, "xls", "csv")
            Chemin_complet_old = "D:\*" & rep
 
            Set wbExcel = Workbooks.Open(Chemin_complet_old)
            Sheets("**").Select
 
            chemin_complet_new = "D:\*" & "*****"
            wbExcel.SaveAs Filename:=chemin_complet_new, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
            wbExcel.Close (False)
          End If
        rep = Dir
    Loop
 
 UploadFile "**.**.*.**", "*****", "*****", "D:\**.csv", "**.csv"
 
 MsgBox "Fichier Transferé "
 
End Sub

Par avance merci pour votre aide

[meumeu73.1]

Bonjour,

Pour ceux qui ont lu ce post et qui ont testé, est ce que vous avez eu même problème ?

Merci pour vos réponses

[meumeu73.1]

Solution trouvé :

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
27
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
 (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
 
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
 
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias _
"FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, _
ByVal lpszDirectory As String) As Boolean
 
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hConnect As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Long, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByRef dwContext As Long) As Boolean
 
Private Declare Function FtpPutFile Lib "wininet.dll" Alias _
"FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, _
ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
 
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
  (ByVal hInet As Long) As Integer

+

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
Sub EnvoiVersFtp(Serveur As String, User As String, Pwd As String, _
    FichierLocal As String, DossierFTP As String, FichierFTP As String)
Dim HwndConnect As Long
Dim HwndOpen As Long
 
'Ouvre internet
HwndOpen = InternetOpen("SiteWeb", 0, vbNullString, vbNullString, 0)
 
'Connection au site ftp - On suppose que le n° de port est 21
HwndConnect = InternetConnect(HwndOpen, Serveur, 21, _
   User, Pwd, 1, 0, 0)
 
'positionnement du curseur dans le répertoire
FtpSetCurrentDirectory HwndConnect, DossierFTP
 
'Envoi du fichier
FtpPutFile HwndConnect, FichierLocal, FichierFTP, &H0, 0
 
InternetCloseHandle HwndConnect 'Ferme la connection
InternetCloseHandle HwndOpen 'Ferme internet
End Sub

+

Code :

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

    EnvoiVersFtp "**.**.*.***", "****", "****", "D:\****.csv", ".", "*****.csv"

[kiki29]

Salut, un peu tardif mais il y avait ceci