FileCopy erreur 75

Bonjour,

J'ai une erreur 75 chemin/fichier avec une macro

Sub Copy ListeFExc ()

Dim Dos_Pc As String ' chemin du dossier sur le disque C:\AFH\AT20

Dos_Pc = "C:\AFH\AT20"

Dim FichO As Variant ' fichier origine a copier

Dim Fich_C As Variant ' fichier à copier sur C

Dim Fich_ODP As Variant ' fichier a copier dans Documents Users

' Création du dossier sur le poste en local C s'il n'existe pas

If Dir(Dos_Pc, vbDirectory) <> "" Then ' = si Dos_Pc existe alors

Else 'sinon

'MkDir Dos_Pc ne fonctionne pas

Shell "cmd /c md " & """" & Dos_Pc & """" ' creer le dossier

' Definiton des variables copy

FichO = "C:" & Environ("HOMEPATH") & ("\OneDrive - AFH\Téléchargements\ListeFExc.txt")

Fich_C = "C:\AFH\AT20\ListeFExc.txt"

FileCopy FichO, Fich_C ' Copy source to target.

End If

End sub

en pas a pas le script s’arrête a la ligne FileCopy xxxxxxxxxxx message ci-dessus.

Merci de votre aide.

A+ Francis