Bonjour,

J'aurais besoin de vos lumières pour cette macro qui sert à insérer une image. La case H1 est automatiquement définie a partir d'une série de valeur. Bref, le classeur cherche lui même le chemin d'accès.

Le problème se situe probablement ici :
Chemin1 = Sheets("Prog").Range("H1").Value ' Valeur de H1 : U:\Badges\Photo\Aguis Ibtissem - Photo.jpg
ActiveSheet.Pictures.Insert(Chemin1).Select

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Images() 
'Sert à insérer 1 image
 
Dim Chemin1$, 
 
Chemin1 = Sheets("Prog").Range("H1").Value  ' Valeur de H1 : U:\Badges\Photo\Aguis Ibtissem - Photo.jpg
 
    Sheets("Gabari recto").Select
 
    ' Sert a insérer l'image 1
    Range("C7:C11").Select  
    ActiveSheet.Pictures.Insert(Chemin1).Select
    Selection.ShapeRange.ScaleHeight 0.2, msoFalse, msoScaleFromTopLeft 
 
End Sub
Merci de votre aide!