Bonjour,
Je cherche a copier un fichier sur un serveur distant depuis mon application VBA.
J'ai commencé par essayer de copier un fichier d'un dossier à un autre mais cela ne fonctionne pas
J'aurais besoin d'une aide pour pouvoir avancer
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 vUrlDeux = ThisWorkbook.Path & "\Automation\CAL\" 'appel de la fonction qui permet de créer un dossier a la date du jour et les fichiers .cal newFileInFolder vNomFichierDeux, vUrlDeux, 1 'Ouverture du fichier Open vUrlDeux & "calendrier_recette_mens.cal" For Output As #1 ' j'écris dans mon fichier vUrlMen Print #1, vDateMen 'fermeture du fichier Close #1 Shell ("cp " & vUrlDeux & "calendrier_recette_mens.cal " & ThisWorkbook.Path)
Partager