bbonjour a tous,
voila mon code :
Sub CopieFichier()
Const Source = "D:\Documents and Settings\duclouxant\Mes documents\" & Range("B3") & ".jpg" <-- erreur de syntaxe
Const Destin = "D:\Documents and Settings\duclouxant\Mes documents\exo tower"
Dim objOFS As Variant
Set objOFS = CreateObject("Scripting.FileSystemObject")
If (objOFS.FileExists(Source)) Then
objOFS.CopyFile Source, Destin
Kill Source
End If
Set objOFS = Nothing
End Sub
en gros je veux qu il aille recuperer la valeur de la case B3 pour la mettre automatiquement dans mon chemin source afin d etre copier...
je comprends pas quelle est mon erreur en fait et surtout quelle est la syntaxe requise...
aidez moi..... je pourrais gagner beaucoup de temps grace a vous...
je vous remerci d avance
cordialement @ntoine