Fonction FileCopy avec des variables

Bonjour,

Je souhaite utiliser une fonction FileCopy avec des sources et destinations qui sont des variables.

Pour vous donner un exemple, voici une partie du code dont je me sers pour faire des essais. (Malheureusement tous infructueux)

Sub CopierColler()
Dim FileSource As String
Dim FileDest As String
FileSource = Sheets("TEST").Range("B5").Value
FileDest = Sheets("TEST").Range("B6").Value
FileCopy FileSource, FileDest

End Sub

Les données dans :

Sheets("TEST").Range("B5") = \\C:\Users\bfdisq94\Desktop\Recherche visuel\Camion.jpg

Sheets("TEST").Range("B6") =\\C:\Users\bfdisq94\Desktop\Recherche visuel\Camion2.jpg

Lorque j'exécute ce code, j'ai l'erreur suivante :

Erreur d'exécution '76' :

Chemin d'accès introuvable.

Quelqu'un à une solution ?

Merci par avance.

bonjour,

enlève les 2 \\ avant le C:

Parfait j'ai testé !!

ça fonctionne impeccable !!

Merci beaucoup

Par contre, il faut désormais que je crée une boucle.

Avec ce code :

    FileSource = Sheets("Image à importer").Range("B3").Value
    FileDest = Sheets("Image à importer").Range("D3").Value
    FileCopy FileSource, FileDest

Le but est que tant qu'il ne rencontre pas de cellule vide dans la colonne B, il aille me chercher l'image en B4, puis B5, etc...

De même pour la destination, D4, D5, etc.

Quelqu'un as une idée ?

Merci