Bonjour,
je souhaite importer un fichier qui est sur un serveur unix avec une macro VBA.
j'ai fait la fonction suivante:
Quand j'exécute la macro j'ai un Ecran noir de winscp affichant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Commande() Dim GetPath As String Dim strOpen As String 'hostname =VRLAXF 'Login = "wadmin" 'passeword = "wadmin" strQuote = Chr(34) strOpen = "open sftp://wadmin:wadmin@VRLAXF.com" GetPath = "get ""/home/wadmin/Export_File_dat.csv"" ""D:\TEAM\""" Call Shell("C:\ProgramData\WinSCP\winscp.com /command " & strQuote & strOpen & strQuote & GetPath & " " & strQuote & "exit" & strQuote, vbNormalNoFocus) End Sub
puis il disparaît sans rien faire.Recherche de l'hôte ...
je fais ping VRLAXF depuis mon poste je trouve le serveur.
quelqu'un peut m'aider à récupérer mon fichier via une macro VBA.
merci
Partager