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

Lord sirc

XLDnaute Nouveau
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.
 
Ce fil a été résolu! Aller à la solution…

_Thierry

XLDnaute Barbatruc
Bonjour @Lord sirc , le Forum

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

Bonne journée
@+Thierry
 
Ce message a été identifié comme étant une solution!

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas