Problème avec FileCopy

Bonsoir,

J'ai une erreur sur la ligne surlignée...

Pourtant, avec ce que j'ai pu voir sur le forum, la syntaxe me parait bonne... Comprend pas...

Sub copieFichier()

Dim sourceFile As String
Dim destinationFile As String

sourceFile = "C:\Users\Mathieu\Documents\Conditions Commerciales.pdf"
destinationFile = "C:\Users\Mathieu\Devis clients\" & ActiveSheet.[I8] & "\"
FileCopy sourceFile, destinationFile

End Sub

Bonjour,

Si tu fais un MsgBox de ta ligne destinationFile

= "C:\Users\Mathieu\Devis clients\" & ActiveSheet.[I8] & "\"

ça donne quoi ??

Bonjour ouisansdoute,

ActiveSheet.[I8] = cellule nom client (Mr Dupont)

Test1:

MsgBox "C:\Users\Mathieu\Devis clients\" & ActiveSheet.[I8] & "\"

MsgBox: affiche bien le bon répertoire: "C:\Users\Mathieu\Devis clients\Mr Dupont\"

Test2:

MsgBox destinationFile

MsgBox: ERREUR "Variable objet ou variable de bloc with non définie"

Bonjour,

A mon avis, il manque le nom du fichier dans la destination.

Cordialement.

Bonjour MFerrand,

Test3:

Sub copieFichier()

Dim sourceFile As String
Dim destinationFile As String

sourceFile = "C:\Users\Mathieu\Documents\Conditions Commerciales.pdf"
destinationFile = "C:\Users\Mathieu\Devis clients\" & ActiveSheet.[I8] & "\Conditions Commerciales.pdf"

FileCopy sourceFile, destinationFile

End Sub

Renvoie: MsgBox: ERREUR "Variable objet ou variable de bloc with non définie"

Ton fichier est bien fermé quand tu fais l'opération ?

Oui il est bien fermé à l'exécution…

Celà ne pourrait pas venir d'un bug de la fonction FileCopy sur Excel 2013 Pro + ?

N'y a-t-il pas un autre moyen que FileCopy ?

Vu le code, je ne vois pas ce qui peut provoquer cette erreur !

Tu as vérifié tes chemins... ?

La feuille concernée (ActiveSheet) est bien la feuille active au moment de l'exécution ?

Essaie en rajoutant .Value après [I8]. Quoi que là ce serait plus logiquement une erreur 13 (incompatibilité de type) lorsque ça joue.

Alléluia !!!

Effectivement, avec le ".value" après ActiveSheet.[I8] et le nom du fichier à la fin du chemin de destination, sa fonctionne !!!

Merci MFerrand pour la réponse !

Le code fonctionnel:

Sub copieFichier()

Dim sourceFile As String
Dim destinationFile As String

sourceFile = "C:\Users\Mathieu\Documents\Conditions Commerciales.pdf"
destinationFile = "C:\Users\Mathieu\Devis clients\" & ActiveSheet.[I8].Value & "\Conditions Commerciales.pdf"

FileCopy sourceFile, destinationFile

End Sub

Merci en retour !

J'ai eu une erreur similaire [.Value exigé après une indication de plage] dans une évènementielle... mais erreur 13. Je saurais qu'une erreur différente peut cacher la même chose !

Bonne continuation.