Bonjour à tous,

J'aimerais regrouper chaque morceaux en unscript (acheminement ci-dessous) :

1er étape - Copie des dossiers et sous répertoire (avec WinSCP)
2eme étape - Suppression fichiers/dossiers (ftp://SQCUSER:*****@192.168.10.101/) repertoire : /IND890SQC/Reports
3eme étape - Déplacement des *.csv (regroupés sur les différents dossiers du rép : /IND890SQC/Reports) vers la racine du dossier depuis Y:\Dossier
4eme étape - mdelete * (de tous les fichiers et dossiers nommés "Sample") de tous les dossiers/fichier du dossier (Y:\Dossier)
5eme étape - Exécution de la macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
(Sub Déclenche()
Application.OnTime TimeValue("15:10:00"), "Recup"
End Sub)
Par avance merci !

1 er étape :
Code batch : 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
Rem Copie des dossiers FTP vers Sauvegarde (avec WinSCP)
"C:\Program Files\WinSCP\WinSCP.com" ^ /ini=nul ^
/command ^
"open ftp://SQCUSER:****@192.168.10.101/" ^
"cd /IND890SQC/Reports" ^
"lcd C:\Users\cheyenne\Desktop\Dossier" ^
"get *"
"exit"
 
set WINSCP_RESULT=%ERRORLEVEL%
if %WINSCP_RESULT% equ 0 (
echo Success
) else (
echo Error
)
 
exit /b %WINSCP_RESULT%

2ème étape : ajout du "rm *" (ceci permettra de supprimer tous les dossiers présents sur le ftp) avec WinSCP

3ème étape : (Basculement en cmd simple "cmd.exe")
Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
set source="Y:\Dossier"
for /f "tokens=*" %%A In ('dir /s /b /a-d "%source%\*.csv"') do (move /y "%%A" "%source%")

4eme étape :
Fonction récursive (Suppression fichiers "Sample") :

Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
@echo off
set source=le dossier "racine"
cd %USERPROFILE%
for /f "tokens=*" %%A In ('dir /a-d /b /s %source%\*.* ^| find /i "Sample"') do (del /f "%%A" && echo %%~sA = suppression OK && echo.)
pause

5eme étape :
Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Rem execution du fichier contenant la macro 
"C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE" "X:\METROLOGIE\IND 890\Poidmettler.xlsm"