Discussion :

[fanouk]

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


Code:
___________________________________________________________

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
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

___________________________________________________________

[J.Michel]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sous toutes reserves ......

[fanouk]

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