Insérer une image dans Excel

bonsoir le forum

Je suis confronté à un problème auquel je ne trouve pas de solution.

Je veux importer une image moncachet .jpg d’un dossier sur C : et l’insérer dans un endroit précis dans une feuille Excel automatiquement c’est-à-dire sans afficher fenêtre de dialogue pour ouvrir l’image

J’utilise le code suivant que j’ai trouvé sur le net mais il passe par une fenêtre de dialogue pour ouvrir l’image cible.

Sub Aff_Photo()
    Dim Photo As Variant
    Dim Gauche, Sommet, Largeur, Hauteur As Single

    Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
    Gauche = Range("F2").Left
    Sommet = Range("F2").Top
    Largeur = Range("F2").Width
    Hauteur = Range("F2").Height

    If Photo <> False Then
        Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
    End If
End Sub

Merci d'avance

Cordialement

Bonsoir,

Simplement en écrivant en dur le chemin d'accès au fichier :

Feuil1.Shapes.AddPicture "C:\MonDossier\MonImage.jpg", True, True, Gauche, Sommet, Largeur, Hauteur

Ensuite il vous suffit de rendre le nom du fichier "variable" avec par exemple une référence de cellule :

"C:\MonDossier\" & mavariable & ".jpg"

@ bientôt

LouReeD

bonjour, le forum

Merci bien LouReeD

Bonsoir,

Si cela a pu vous aider dans votre projet, alors vous m'en voyez ravi !
Merci pour vos remerciements !

@ bientôt

LouReeD