Forum - Questions générale - Sujet n°720

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 19/06/2014 : 02:00  Sujet n° 720  routine ftp

le 09/05/2014 : 10:32
par michelle

Anonyme

visiteur
bonjour

En vba access serait il possible d'écrire un module qui :

1 ) se connecte sur ftp (username et mot de passe..)
2 ) prend le dossier "S..." (contenant les fichiers .txt)
3 ) déplace vers un serveur distant, dans un dossier "S '.."
4 ) efface les .txt du dossier "S..." se trouvant sur ftp après transfert

***une fois sur le serveur de la maison****

5) renommer chaque ".txt" pour les intégrer dans une table access

et cela automatiquement toutes les heures

merci de votre grande compréhension
 sujet clos  Haut

[]   

Réponse n° 1
--------
le 09/05/2014 : 14:15
par 3Stone

3Stone

Administrateur

 Bonjour,
 
Citation :

serait il possible d'écrire un module qui...

 
Le faire en UN module serait un peu juste et de toute façon à déconseiller.

Mais par chance, presque tout est déjà disponible ici sur le site n

Pour accéder par FTP et autres fonctions, ainsi que l'envoi par FTP.

Intéresse toi à la catégorie "Net", ici dans la colonne de gauche...

Cordialement,
Pierre (3Stone)
  clos par 3Stone le 19/06/2014 : 02:00  Haut
Réponse n° 2
--------
le 09/05/2014 : 15:17
par michelle

Anonyme

visiteur
 merci pour cette piste !

C'est plutôt le dossier qui sera transféré avec tous les fichiers commençant par
"T*.*"&"txt
Ensuite vidage du dossier du serveur ftp distant

Ce sera le deuxieme Module qui importera ces fichiers
vers une table access.
j'ai essayé un code, mais là aussi impossible de reprendre le nom
virtuel pour intégrer les fichiers avant l'itération ce txt vers la base access

Sub Fichiers()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Users\michelle\Desktop"
.FileName = "T*.*" & "txt"
If .Execute > 0 Then
MsgBox "There were " & .foundFiles.Count & _
" file(s) found."
For i = 1 To .foundFiles.Count
MsgBox .foundFiles(i)

IMPORTER LE FICHIER I ET DEPLACER VERS UN DOSSIER ARCHIVES ??

Next i
Else
MsgBox "There were no files found."
End If
End With

End Sub

merci d'avance pour toutes les renseignements.
  clos par 3Stone le 19/06/2014 : 02:00  Haut
Réponse n° 3
--------
le 09/05/2014 : 22:07
par 3Stone

3Stone

Administrateur

 Bonjour,
 
Citation :

C'est plutôt le dossier qui sera transféré...

 
Non, si tu as l'habitude d'utiliser une client FTP, ce n'est jamais un dossier qui est transféré, mais bien fichier par fichier.

Pour toute la démarche, il faut donc bien découper chaque manipulation pour que au final, tous les fichiers soit transféré.

Cordialement,
Pierre (3Stone)
  clos par 3Stone le 19/06/2014 : 02:00  Haut
Réponse n° 4
--------
le 13/05/2014 : 11:31
par michelle

Anonyme

visiteur
 smile
Merci 3stone
La procédure ftp fonctionne en mode actif !
Maintenant je vais voir comment importer des fichiers du serveur ftp vers le serveur.
Et ensuite faire comprendre que tous les fichiers commençant par "B".txt soit transférer.
Et renommer un par un pour être intégré dans une table "temporaire" access
  clos par 3Stone le 19/06/2014 : 02:00  Haut
Réponse n° 5
--------
le 13/05/2014 : 22:38
par michelle

Anonyme

visiteur
 bonjour

Est il possible de changer le FtpPutFile en FtpGetFile ?

'uploader le fichier 'MODIFICATION
FtpPutFile hConnection, strPathFile, strFile, FTP_TRANSFER_TYPE_UNKNOWN, 0

Il manque peut être quelque chose sur ce code ?

'FtpGetFile hConnection, strPathFile, strFile, FTP_TRANSFER_TYPE_UNKNOWN, 0

Merci de votre bienveillance

Michelle
  clos par 3Stone le 19/06/2014 : 02:00  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut