Deplacer photos dans un autre fichier

Bonjour à tous,

Je sollicite votre aide pour un de mes fichiers de gestion.

Le principe est simple pour chaque ligne nous avons une marchandise avec un lien hypertexte qui nous amènes vers une photo.

Lorsque nous supprimons notre ligne de marchandise grâce à une macro ( on clique sur le gros bouton rouge), tout est supprimé et copié vers un autre fichier. ( tout ceci fonctionne parfaitement).

J'aimerai amélioré ce procédé en incluant dans la macro qu'elle puisse chercher grâce au lien hypertexte l'emplacement de la photo et de le déplacer dans un autre dossier.

Voici la macro que j'ai pu faire mais rien ne se passe

Sub Deplacerphotos() DestinationFile = "K:\STOCK SRO\STOCK MARCHANDISES\CHANTIER\SPECIAUX\INVENTAIRE\PHOTOS SORTIES" nomFichier = Dir("K:\AdrHyperlien") sourceW = "AdrHyperlien" Do While Len(AdrHyperlien) > 0 FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier Kill sourceW & nomFichier nomFichier = Dir Loop End Sub

Pouvez vous me dire où est mon erreur ?

Merci beaucoup

12stock.zip (126.61 Ko)
Rechercher des sujets similaires à "deplacer photos fichier"