Copie image à partir d'un lien

Bonjour,

je ne parviens pas à faire une manip' et j'aurais besoin de vote aide si possible.

J'ai le lien d'une image stocké dans une cellule et à partir de ce lien, j'aimerais copier l'image vers un dossier...

savez-vous comment je pourrais faire ?

Un grand merci d'avance.

Olivier

Bonjour,

je remonte mon sujet n'ayant pas trouvé l'astuce...

Merci.

Olivier

Hello,

C'est quoi comme lien exactement ? disque dur, internet ?

Dans le doute j'ai fait un fichier avec une méthode de chaque, avec qqes explications. 8)

Salut,

oui c'est un lien sur le DD.

Il faut que je teste ta méthode et l'adapte à mon code existant. Je te dis.

Merci en tout cas.

Olivier

Hello,

ça ne fonctionne pas chez moi. Surement mon adaptation qui foire.

j'ai ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim MonImage As String
Dim dervaleur As Integer
dervaleur = Range("a65000").End(xlUp).Rows

FileCopy ActiveSheet.Range("B" & dervaleur).Value, "U:\S.......\ACTU\ACTU_" & dervaleur

End Sub

Merci pour ton avis.

Olivier

Hello,

Oliv38 a écrit :

FileCopy ActiveSheet.Range("B" & dervaleur).Value, "U:\S.......\ACTU\ACTU_" & dervaleur

C'est les adresses chemin+nom fichier+extension fichier qui plantent, y'a que ça, la sub ne fait pas 36 lignes.

Si le 1er chemin : ActiveSheet.Range("B" & dervaleur).Value ressemble à ça : C:\Users\WAARD\Desktop\Nouveau dossier\2015-11-01 08.10.58.jpg c'est ok

Par contre pour le 2e chemin qui sert à copier l'image, là ça plante : "U:\S.......\ACTU\ACTU_" & dervaleur

après ACTU_ il manque le caractère " \ " ensuite il faut un nom image + son extension comme dans mon fichier

Bien joué l'araignée!!!

Super ça fonctionne.

Merci à toi!