XL 2016 Insérer une image suivant le répertoire du fichier Excel

[Lord sirc]

Bonjour,

Je démarre sur VBA et j'éprouve quelques (nombreuses) difficultés. Sur mon fichier Excel j'ai créé un bouton associé avec une macro pour insérer une image, cela fonctionne plutôt bien, ma problématique c'est la source de l'image, pour faire mes essais j'ai pris le chemin sur mon poste mais pour les autres fichiers le chemin sera toujours différent. Du coup je voulais utiliser la cible de mon fichier excel pour retrouver mon fichier, je placerai mon image avec le fichier Excel à chaque fois.

Sub CODE_BARRE()
Range("Q1:AA8").Select
ActiveSheet.Pictures.Insert( _
"C:\Users\christopher.lopez\Desktop\CODE LA CHATAIGNERAIE.jpg").Select
Selection.ShapeRange.ScaleHeight 2.2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 30
Selection.ShapeRange.IncrementTop 95
Range("Q1:AA8").Select
End Sub

D'avance merci de votre réponse.

 

[_Thierry]

Bonjour @Lord sirc , le Forum

Tu devrais essayer :
ThisWorkBook.Path & "\CODE LA CHATAIGNERAIE.jpg"

Bonne journée
@+Thierry

 

[Lord sirc]

POLLALALA c'est génial

Merci beaucoup Thierry tu me sauves ma journée là