Discussion :

[Jacbour]

Bonjour, je crains de ne pas être à ma place car je suis un amateur récent de vba, je pose ma question malgré tout, si l'un de vous peut m'aider ce serait vraiment sympa :
J'ai un classeur excel dont chaque feuille représente un élève .
Je souhaite insérer la photo.jpeg de chacun qui se trouve dans un fichier dans la bonne feuille au bon endroit et aux bonnes dimensions .
En résumé :
comment insérer une photo ?
à un endroit précis de la feuille ?
avec des dimensions souhaitées ?
comment automatiser cette distribution (chaque photo pour chaque feuille )
Merci d'avance

[mercatog]

Dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub InsertImage(ByVal CelAdr As String, ByVal Chemin As String)
 
With Sheets(Range(CelAdr).Parent.Name).Pictures.Insert(Chemin).ShapeRange
    .LockAspectRatio = msoFalse 'ou msoTrue
    .Width = Range(CelAdr).Width
    .Height = Range(CelAdr).Height
    .Left = Range(CelAdr).Left
    .Top = Range(CelAdr).Top
End With
End Sub

pour insérer une image à l'aide d"un bouton (ici dans la cellule C33)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
InsertImage "C33", "C:\Users\user\Desktop\AZIZ\PhotoFa.jpg"
End Sub