Lancement de Batch depuis ACCESS VBA impossible

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:

---

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

---

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/

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:

---

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

---

le contenu de param.ftp :

Code:

---

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

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

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:

---

1 2 3 4 5

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

---

Le contenu du fichier eurecia.fsc :

Code:

---

1 2 3 4 5 6

user DBoJ MotdePasse put ./*.csv quit

---

Le code dans Access :

Code:

---

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:

---

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