Copie fichier sur Clé USB

Bonjour,

J'ai une macro qui effectue une copie d'un fichier sur une clé USB par l'instruction Filecopy.

Ceci fonctionne très bien.

Mais par contre après je ne peux pas éjecter la Clé USB car elle est occupée. Pour éviter cela, je dois quitter Excel alors que le fichier copié est un fichier texte qui n'est pas "lié" avec le ficher Excel qui exécute cette macro.

En fermant ainsi le fichier qui a exécuté la macro ou Excel, je peux éjecter sans problème la clé USB.

Existe-t-il un moyen, une instruction ... pour éviter ce problème.

Espérant avoir été assez clair ...

Vous remerciant d'avance pour vos réponses.

Bonjour Manub

Il faut utiliser le Scripting File System Object

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile source, destination

A+