Deplacer photos dans un autre fichier

ad98 · 21 Juin 2018

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

Dranreb · 21 Juin 2018

Bonjour.
En tout cas ce code me paraitrait plus logique :

VB:

Sub Deplacerphotos()
Const ChemSrc = "K:\AdrHyperlien\"
Const ChemDst = "K:\STOCK SRO\STOCK MARCHANDISES\CHANTIER\SPECIAUX\INVENTAIRE\PHOTOS SORTIES\"
Dim NomFic As String
NomFic = Dir(ChemSrc & "*.*")
Do While NomFic <> ""
   FileCopy ChemSrc & NomFic, ChemDst & NomFic
   Kill ChemSrc & NomFic
   NomFic = Dir: Loop
End Sub

ad98 · 21 Juin 2018

Bonjour et merci pour votre aide.
Lorsque j'utilise le code rien ne se passe je pense qu'il ne detecte pas le lien hypertexte de la ligne savez vous comment on peut traduire le lien hypertexte en chemin ?
Merci beaucoup

Dranreb · 21 Juin 2018

Quel lien hypertexte de quelle ligne ?
Puis d'abord un lien hypertexte c'est un seul fichier pas 50
Essayez comme ça :

VB:

Sub DéplacerUnePhoto(ByVal RéfFic As String)
FileCopy RéfFic, "K:\STOCK SRO\STOCK MARCHANDISES\CHANTIER\SPECIAUX\INVENTAIRE\PHOTOS SORTIES" _
   & Mid$(RéfFic, InStrRev(RéfFic, "\"))
Kill RéfFic
End Sub

Notez qu'à mon avis ceci devrait fonctionner aussi :

VB:

Sub DéplacerUnePhoto(ByVal RéfFic As String)
Name RéfFic As "K:\STOCK SRO\STOCK MARCHANDISES\CHANTIER\SPECIAUX\INVENTAIRE\PHOTOS SORTIES" _
   & Mid$(RéfFic, InStrRev(RéfFic, "\"))
End Sub

Exemple d'appel :

VB:

        DéplacerUnePhoto Intersect(Columns("J"), ActiveCell.EntireRow).Value

ad98 · 21 Juin 2018

Bonjour et merci pour votre aide,
pour chaque ligne nous avons (en colonne J) un lien hypertexte qui nous amène vers la photo du produit, le but est quand nous supprimons la ligne nous déplaçons également la photo d'un dossier à un autre.
Merci beaucoup en tout cas malheureusement la macro me met argument non valide je vais essayer de bosser dessus

Deplacer photos dans un autre fichier

ad98

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

ad98

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

ad98

XLDnaute Nouveau

Discussions similaires