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.
 

Discussions similaires

Réponses
39
Affichages
4 K

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou