Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…