Bonjour, je souhaire recopier la totalité d'un lecteur réseau sur un disque du local :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
IF objFSO.FolderExists("\\pao1\Dossier_Service") THEN
	objFSO.CopyFolder("\\pao1\Dossier_Service", "F:\Dossier_Service")
END IF
L'erreur est le caractère 69 de la ligne de recopie avec le numéro d'erreur 800A0414 : L'appel d'une fonction Sub n'admet pas de parenthèses.

Sans les parenthèses c'est l'erreur numéro 800A0005 Argument ou appel de procédure incorrect

Des idées ? Merci