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.
Merci pour votre aide et j'espère avoir été clair.
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.