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.
 

richardb31

XLDnaute Nouveau
Bonjour
Je n'ai pas le niveau pour t'aider mais ton projet m’intéresse beaucoup
Je cherche comment faire un fichier excel avec les pièces de ce MOC avec la référence, la couleur, la photo et le nombre de pièces
Ensuite j'ajouterais des colonnes avec les pièces par page de la notice et le prix
En fait, je n'ai pas le budget pour acheter tout d'un coup mais je voudrais acheter des lots par exemples pour faire les 50 premières pages, et ainsi de suite
Tu pourrais m'aider
Il me faut déjà aspirer les photos des pièces ou trouver une base de données
Merci beaucoup
 

Eric C

XLDnaute Accro
Bonsoir le forum
Bonsoir et soit le bienvenu richardb

Un lien qui pourrait t'intéressé : ICI
@+ Eric c
 
Dernière édition:

Eric C

XLDnaute Accro
Re,

Tu as cela aussi. C'est brut de décoffrage, je n'ai pas regardé le contenu.

@+ Eric c
 

patricktoulon

XLDnaute Accro
re
Bonjour
ca fontionne sur Windows pas sur mac
tu en es sûr ??
moi je dirais que ça ne marche pas sur les deux


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 => idéalement je souhaiterai que cette option fonctionne car j'ai toutes les pièces dans un dossier à part
.Shape.Fill.UserPicture Folder & Sep & File
 
Haut Bas