Des photos dans un classeur

[anthony1003]

Bonjour,

D'un coté j'ai un classeur avec mes références (+détails) et de l'autres j'ai un dossier qui contient les photos de toutes ces références (avec en nom la référence).

Y'a t il une possibilité pour que la photo soit affichée automatiquement dans une nouvelle colonne que je crée à coté de la référence ?

La solution du commentaire n'est pas valable puisque ca voudrait dire que je fasse un à un les commentaires; ce qui serait beacoup trop long.

Merci de votre aide.

PS: si vous connaissez un autre moyen (meme autre qu'excel) qui pourrait m'aider, je suis preneur.

 

[anthony1003]

Re : Des photos dans un classeur

No help ????

 

[PMO2]

Re : Des photos dans un classeur

Bonjour,

Si vous êtes toujours intéressé, je peux apporter une solution mais il me faudrait la structure de votre classeur des références.
Pouvez-vous l'envoyer en pièce jointe pour que je puisse m'y référer ?

Cordialement.

PMO
Patrick Morange

 

[anthony1003]

Re : Des photos dans un classeur

Vous le trouverez en pièce jointe avec deux photos au cas ou vous en auriez besoin pour le test.

Merci par avance

 

[wilfried_42]

Re : Des photos dans un classeur

bonjour

regarde ce fil, Une fonction personnalisée pour afficher des images comme une formule

 

[anthony1003]

Re : Des photos dans un classeur

Merci Wilfried,

Mais pour etre honnête, j'ai pas réussi et j'ai pas tout saisi..
Qu'est ce que je dois saisir dans ma celulle ?

 

[PMO2]

Re : Des photos dans un classeur

Bonjour,

Une solution avec le code suivant dans lequel il vous faudra adapter les constantes cernées par des ###

Code à copier dans module standard

'### Constantes à adapter ###
Const FEUILLE_REF As String = "test"
Const CHEMIN As String = "c:\Dossier photos"
Const COL_REF As Long = 7
Const COL_PHOTO As String = "H"
'############################

Sub ChargePicture()
Dim S As Worksheet
Dim var
Dim i&
Dim A$
Dim R As Range
Dim PICT As Picture
On Error GoTo Erreur
Set S = Sheets(FEUILLE_REF)
S.Activate
var = S.Range("a1:iv" & [a65536].End(xlUp).Row & "")
Application.ScreenUpdating = False
For Each PICT In ActiveSheet.Pictures
  PICT.Delete
Next PICT
Rows("2:" & UBound(var, 1) & "").RowHeight = 39
For i& = 2 To UBound(var, 1)
  Set R = Range(COL_PHOTO & i& & "")
  A$ = CHEMIN & "\" & var(i&, COL_REF) & ".jpg"
  Set PICT = S.Pictures.Insert(A$)
  With PICT
    .Border.ColorIndex = 5
    .Top = R.Top
    .Left = R.Left
    .Width = R.Width
    .Height = R.Height
    .Placement = xlMoveAndSize
    .OnAction = "sansAction" 'Sans action : Evite la sélection de l'image
  End With
Next i&
Erreur:
Application.ScreenUpdating = True
End Sub

Sub sansAction(Optional dummy As Byte)
'---- Vide
End Sub

Cordialement.

PMO
Patrick Morange

 

[wilfried_42]

Re : Des photos dans un classeur

re:

click droit sur le nom de l'onglet : visualiser le code
tu arrives sur la partie VBA (Feuille blanche)
menu Insertion / Module

tu copie colle la fonction en VBA dans ton classeur

ta référence est en colonne F, tes images son dan le même dossier que ton classeur
en H2 par exemple
=Image(F2 & ".gif")
et tu tires la formule vers le bas

 

[anthony1003]

Re : Des photos dans un classeur

Je viens de faire ce qui est expliqué. Mais toujours rien ne s'affiche...

 

[anthony1003]

Re : Des photos dans un classeur

Je viens de faire ce qui est expliqué mais ca n'affiche rien.
Après avoir tapé le code dans un module, y a t il autre chose à faire ?