Problème de copie d'un fichier

Quelqu'un serait il m'expliquer pourquoi ce code génère une erreur d'exécution '52'?


Code:
___________________________________________________________

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub EnregistrerFichier() ' ' EnregistrerFichier Macro ' ' Déclaration des variables locales Dim DestinationFichier As String Dim SourceFichier As String Dim NomFichier As String Dim chemin As String NomFichier = InputBox("Veuillez entrer le nom du nouveu fichier avec l'extension.", "Saisie du nom du fichier") chemin = "http://monServeur/commun/" DestinationFichier = chemin & NomFichier SourceFichier = chemin & "NePasSupprimer.pdf" FileCopy SourceFichier, DestinationFichier End Sub

---

___________________________________________________________

Citation:

---

Envoyé par fanouk

chemin = "http://monServeur/commun/"

---

On peut copier directement depuis un serveur http ? :koi:
Ce ne serait pas plutôt

Code:

---

chemin = "ftp://monServeur/commun/"

---

Sous toutes reserves ......

Je viens d'essayer, même résultat.
Mais je me demande effectivement si on peut bidouiller les fichier d'un serveur aussi facilement..

Problème résolu grâce au code trouvé sur vb.free

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Declare Function CopyFileA Lib "kernel32" _ ( _ ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long _ ) _ As Long   Private Const MAX_PATH = 260   Function MyFileCopy(Source As String, Destination As String, Optional NoOverwrite As Boolean = True) As Boolean If Len(Destination) > MAX_PATH Or Len(Source) > MAX_PATH Then MyFileCopy = False Else If (NoOverwrite) Then MyFileCopy = (CopyFileA(Source, Destination, 1) <> 0) Else MyFileCopy = (CopyFileA(Source, Destination, 0) <> 0) End If End If End Function   Private Sub Test() MyFileCopy "C:\Mainfolder\Subfolder\File.txt", "\\remotecomputer\sharedfolder\File.txt" End Sub

---