Deplacer une photo d'un fichier à un autre (a partir d'un lien hypertexte)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
g
gaets98
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 23 juin 2017
Version d'Excel : 2016

Message par gaets98 » 13 juin 2018, 08:50

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.
Est ce possible ?
Merci Beaucoup
Stock.xls
(212 Kio) Téléchargé 9 fois
g
gaets98
Membre habitué
Membre habitué
Messages : 53
Inscrit le : 23 juin 2017
Version d'Excel : 2016

Message par gaets98 » 13 juin 2018, 11:40

J'ai essayé cette macro malheureusement rien ne se passe pouvez vous m'aider ?
Sub DeplaceFichier()
Const Source = "AdrHyperlien"
Const Destin = "K:\STOCK SRO\STOCK MARCHANDISES\CHANTIER\SPECIAUX\INVENTAIRE\PHOTOS SORTIES"
Dim objOFS As Variant
Set objOFS = CreateObject("Scripting.FileSystemObject")
If (objOFS.FileExists(Source)) Then objOFS.moveFile Source, Destin
Set objOFS = Nothing

End Sub


Merci
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message