Mise à jour des liens hypertexte sur les photos Liens hypertexte

1. Présentation

La procédure Maj_LiensPhotos du module LiensHyperTexte permet d’associer automatiquement un lien hypertexte sur le fichier de la photo du produit.

Le nom du fichier image est inscrit dans la colonne F de la feuille Stock.

images/N14RI14.png

2. Code de la procédure Maj_LiensPhotos

Option Explicit  
   
Public Sub Maj_Liens()  
Dim oRngStock As Range  
Dim iNbFiches As Integer  
Dim i As Integer  
Dim sPathPhotos As String  
Dim sPathSAV As String  
Dim sLien As String  
   
' Chemin  
sPathPhotos = ThisWorkbook.Path & "\photos\"  
   
' Mise à jour des liens hypertexte  
On Error GoTo Err  
Application.ScreenUpdating = False  
Set oRngStock = Range("TAB_STOCK")  
iNbFiches = oRngStock.Rows.Count  
   
' Liens sur les photos et le SAV  
For i = 1 To iNbFiches  
    ' Liens sur les photos  
    If oRngStock(i, iColPhoto) <> "" And oRngStock(i, iColPhoto) 
<> "PRENDRE PHOTO" Then  
       sLien = sPathPhotos & oRngStock(i, iColPhoto)  
       If oRngStock(i, iColPhoto).Hyperlinks.Count = 0 Then  
          Sheets("Stock").Hyperlinks.Add Anchor:=oRngStock(i, 
iColPhoto), Address:=sLien  ...
couv_RI21EXCV.png

Découvrez 

le livre :

Aussi inclus dans nos :

Précédent
Situation du stock à une date donnée
Suivant
Procédures générales