Ftp pour excel

Ftp pour excel - VB/VBA/VBS - Programmation

Marsh Posté le 21-01-2005 à 11:58:16    

Bonjour,
 
Je débute sur excel et j'aurais besoin d'aide. Voilà, je dois récupérer les données d'un fichier situé sous unix et qui doit alimenter séquentiellement une base de donnée située sous excel. De façon manuelle, j'utilise l'outil de transfert FTP et par bidouillage je met mes données à la suite de celles dèjà existante dans la table.
Quelqu'un sait-il s'il y a un moyen pour récupérer les données directement du fichier sous unix pour alimenter ma base excel ?
 
Merci d'avance


---------------
Lbou01
Reply

Marsh Posté le 21-01-2005 à 11:58:16   

Reply

Marsh Posté le 21-01-2005 à 21:19:43    

Si tu sais quel fichier récupérer, quelle(s) donnée(s) récupérer, la réponse est oui.
 
Pour se faire, tu dois avoir installé le contrôle INET (msinet.ocx).
puis tu peux faire un prog du genre :

Code :
  1. Inet1.Execute , "get " & fichier_source & " " & fichier_destination
  2. Do Until Inet1.StillExecuting = False 'Boucle d'attente
  3. DoEvents
  4. Loop


Après tu n'a plus qu'à faire un autre code qui ouvre le fichier téléchargé et qui insère les données dans ta base Excel.
Voilà.

Reply

Marsh Posté le 31-01-2005 à 10:32:27    


Bonjour,
Merci pour cette réponse rapide. J'ai donc installé le contrôle Inet et réalisé ce petit programme :
 
Sub test()
With Inet1
    .AccessType = icDirect
    .Protocol = icFTP
    .url = "ftp://" & "hrtst" & ":" & "hr" & "@" & "192.168.0.169"
    .Execute = "SEND " & "/hrtst/txt/lis/FB111AEX.lst" & " " & "/" & "D://"
    While .StillExecuting
        DoEvents
    Wend
    .Cancel
End With
End Sub
 
Ce qui me semblait pas mal. Sauf que j'ai un message d'erreur 424 (objet requis) dès la première instruction inet. Ai-je mal installé msinet ou savez vous si le problème vient d'ailleurs ?
 
Merci d'avance


---------------
Lbou01
Reply

Marsh Posté le 31-01-2005 à 18:24:57    

il faut peut être présiser sur quelle Form est le contrôle ( with form1.inet1 ....)  
Remarqe : c'est une réponse et je n'ai pas vérifié.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed