Permission refusée : erreur 70

[carlos]

Bonsoir le forum

Sur ce code j'ai une erreur 70 de permission refusée

Sub CopierFichier()
Dim fs
Dim CheminSource As String
Dim CheminDest As String
'Chemins des fichiers à adapter (peu importe le type de fichier)
CheminSource = 'G:\\EPS1\\Suivi Elèves\\Photos\\PHOTO CLASSE2\\4 2\\toto.jpg'
CheminDest = 'G:\\EPS1\\Suivi Elèves\\Photos\\PHOTO CLASSE2\\3 2'
Set fs = CreateObject('Scripting.FileSystemObject')
fs.CopyFile CheminSource, CheminDest
Exit Sub
End Sub

Pourtant le fichier n'est pas protégé en lecture seule?

Merci

 

[MichelXld]

bonjour Carlos

tu peux tester en precisant un nom de fichier de destination

CheminDest = 'G:\\\\\\\\EPS1Suivi Elèves\\\\\\\\Photos\\\\\\\\PHOTO CLASSE23 2\\\\\\\\monImage.jpg'


bonne journée
MichelXld

 

[carlos]

Bonjour le forum, bonjour MichelXld

C'est marrant mais quand je vois une réponse de certaines personnes comme MichelXld , Hervé ,Thierry ,j Marie , Pascal76, Dan et beaucoup d'autres , je sais que mon probleme est en partie résolu ..

Merci beaucoup
Carlos