Ajout Photo commentaire macro (PC/MAC)

lanx3l0t

XLDnaute Nouveau
Bonjour la communauté,

je suis en train de me faire un petit fichier excel pour catégoriser mes sets Lego. Dans un onglet je récupère toutes les valeurs uniques des autres onglets.

l'objectif étant de mettre en commentaire la photo qui correspond à la pièce via une recherche dans un dossier.

cela fonctionne très bien sous Windows et une fois sur MAC, cela ne fonctionne plus et comme je travaille principalement sur MAC, je préférerai que ça fonctionne sur cet environnement.

ci-après le code qui me permet de faire ce que je demande sur Windows. j'ai essayé de simplifier au max pour éviter les problèmes entre les "\" "/" ":". je suis sous Office365 sur les deux OS.

VB:
Sub PhotoCommentaire()
Dim rngList As Range
Dim c As Range
Dim cmt As Comment
Dim Folder As String
Dim File As String
Dim Sep As String

On Error Resume Next
Sep = Application.PathSeparator
Set rngList = Range("A2:A5")

Fold = Application.ActiveWorkbook.Path

For Each c In rngList
  With c.Offset(0, 0)
    Set cmt = c.Comment
    If cmt Is Nothing Then
      Set cmt = .AddComment
    End If
    With cmt
    Fichier = c.Value & ".jpg"
      .Text Text:="youhou"
      '.Shape.Fill.UserPicture Folder & "/ELEMENT_ID/" & c.Value [B]=> idéalement je souhaiterai que cette option fonctionne car j'ai toutes les pièces dans un dossier à part[/B]
      .Shape.Fill.UserPicture Folder & Sep & File
      .Shape.Height = 160
      .Shape.Width = 120
      .Visible = False
    End With
  End With
Next c
End Sub

Merci pour votre aide et j'espère avoir été clair.
 

Discussions similaires


Haut Bas