Recherche image externe

[maval]

Bonjour,

A l'aide d'un Formulaire et d'une liste déroulante, je suis à la recherche d'un code pour rechercher une image externe qui se trouve dans le même dossier "dossier_Image_Chien" et la copier vers la cellule "I12"

Je vous remercie de votre aide et vous souhaite une bonne AM

 

[phlaurent55]

Re : Recherche image externe

bonjour Max,

tu trouveras tout ce que tu cherches et bien plus sur l'excellent site de Jacques Boisgontier
Les images et shapes

à+
Philippe

 

[maval]

Re : Recherche image externe

Bonjour Philippe,

C'est la première chose que j'ai fais mais je n’ai pas trouver mon bonheur ou alors j'ai mal chercher?

Bonne journée à tous

 

[maval]

Re : Recherche image externe

Re Bonjour,

J'ai se code qui devrai marcher pourquoi sa ne fonctionne pas?

Private Sub cboRace_Change()
On Error Resume Next
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\dossier_Image_Chien\" & Me.cboRace & ".jpg")
If Err <> 0 Then
B = True 'Pour éviter de lancer ma MsGbox
If Not B Then MsgBox Me.cboRace & "Photo introuvable (ou mal orthographié)"
B = False 'Pour éviter de lancer ma MsGbox

End If
End Sub
Private Sub CommandButton1_Click()
 
            L = Sheets("Facture").Range("A65000").End(xlUp).Row + 1
            With Sheets("Facture")

                   .Range("C22").Value = cboRace.Value 'Race
            End With
                
End Sub

Merci de votre aide

 

[MJ13]

Re : Recherche image externe

Bonjour Maval, Philippe

Essaye de remplacer dans ton code par:

ActiveSheet.Image1.PictureSizeMode = fmPictureSizeModeZoom
ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\dossier_Image_Chien\" & Me.cboRace & ".jpg")

 

[maval]

Re : Recherche image externe

Bonjour Michel

Je te remercie de aide et te souhaite une bonne soirée.
Nickel!!!