Discussion :

[piwa6291]

Bonsoir,

Ayant une discussion ouverte mais qui reste pour le moment sans réponse http://www.developpez.net/forums/d15...rveur-relance/, je n'arrive plus à lancer deux imports consécutifs depuis ACCESS.

Je cherche une solution et je regarde depuis VBA ACCESS d'un lancement d'import ftp depuis fichier bat.

La fenêtre DOS s'ouvre avec message Hote inconnu, j'ai pourtant mis mon ftp.bat sous le rep de ftp.exe mais rien ni fait.

Si je lance manuellement l'import est ok.

Merci de votre aide

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
Sub ftpbat()
 
 
Dim Software As String
Dim File As String
Dim ToLaunch
Dim RetVal
 
Software = """C:\Windows\System32\ftp.exe"""
 
File = """C:\Windows\System32\ftpzac.bat"""
 
ToLaunch = Software & " " & File
RetVal = Shell(ToLaunch, 1)
 
 
End Sub

[Jean-Philippe André]

Salut,

ton étape 1 sera dans tous les cas de trouver la bonne syntaxe de ton batch.

Une fois celle-ci trouvée, on aura pas grand mal à faire tourner le bazar

Ton fichier bat en question, il contient quoi exactement ?

Ta commande actuelle lance un .exe et passe un .bat en paramètre, c'est ce que tu veux ?

Quel est exactement ton raisonnement et le processus à exécuter ?

A toutes fins utiles, un peu de lecture sur les batch et Access :
http://jpcheck.developpez.com/tutori...depuis-access/
http://jpcheck.developpez.com/tutori...ge-parametres/

[piwa6291]

Bonjour jpcheck,

Merci déjà de te pencher sur mon soucis.

Comme tu l'as compris plus possible de lancer depuis Access, donc je tente l'option batch.

Pour répondre à tes questions :
je lance un ftp.bat (disposé sous C:\My Program Files\ - ailleurs il ne fonctionne pas en double clic)

Code :

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

ftp.exe -d -i -s:param.ftp

le contenu de param.ftp :

Code :

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

1
2
3
4
5
6
7
8
open serveur
ident
mdp
 
cd /download/...../chemin/
mget ECDOM.CSV
 
bye

En manuel aucun problème il se connecte et récupère le fichier ECDOM.CSV (et de façon répétitive sans soucis)

Par contre impossible de le lancer depuis VBA ACCES

Précision : la base est sur le réseau entreprise avec proxy.

En // je vais regarder une nouvelles fois tes liens

Merci

[piwa6291]

Après avoir regarder finement les liens fournis sur les batchs je n'ai malheureusement pas réglé mon problème.

Merci de votre aide

[DangerousBowlOfJelly]

Bonjour.

J'ai le même genre de problème. Lorsque je lance mon script batch manuellement, celui-ci envoie bien mon fichier via ftp sur le serveur, par contre, lorsque je déclenche mon fichier via Access 2013, il me sort une erreur 425.

Mon script batch :

Code :

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

1
2
3
4
5
 
%1:
cd %2
ftp -n -s:eurecia.fsc serveur.lenomduclientftp.net
pause

Le contenu du fichier eurecia.fsc :

Code :

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

1
2
3
4
5
6
 
user
DBoJ
MotdePasse
put ./*.csv
quit

Le code dans Access :

Code :

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

1
2
3
4
5
6
7
8
 
    CsvTemplate = CurrentProject.path & "\templates\EureciaAnalytique.csv"
    TxtDest = CurrentProject.path & "\exports\"
    Lecteur = Left(TxtDest, 1)
 
[Ça c'est la génération du CSV...]
 
    Shell "cmd /c " & TxtDest & "eurecia.bat " & Lecteur & " " & TxtDest

Et voici le retour du script quand je le lance depuis Access :

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
 
C:\Users\DBoJ\Documents>C:
 
C:\Users\DBoJ\Documents>cd C:\Users\DBoJ\Documents\DossierdeTravail2015\exports\
 
C:\Users\DBoJ\Documents\DossierdeTravail2015\exports>ftp -n -s:eurecia.fsc serveur.lenomduclientftp.net
Connecté à serveur.lenomduclientftp.net.
220 FTP Server Ready
200 UTF8 set to on
ftp> user
NomUtilisateur DBoJ
331 Password required for DBoJ
 
230 Bienvenue DBoJ sur le serveur FTP de serveur
ftp> put ./*.csv
200 PORT command successful
425 Unable to build data connection: Connection timed out
ftp> quit
221 Goodbye.
 
C:\Users\DBoJ\Documents\DossierdeTravail2015\exports>pause
Appuyez sur une touche pour continuer...

Pour info, j'ai changé de PC et ça fonctionnait très bien sur mon ancien PC. Peut-être y a-t-il une config particulière de mon firewall ou d'Access à faire.

Merci à vous.

DBoJ