Bonjour à tous,
Voila j'ai un petit souci avec mon code, je souhaiterais charger une image dans mon userform, jusque là pas de souci mais je n'arrive pas à la rediriger dans ma feuille à la cellule C7 de ma page active. Il me met le message d'erreur suivant : Impossible de lire la propriété insert de la classe Picture
Voici mon code :
Bouton Command
Private Sub CommandButton4_Click()
Dim Fichier As String
Dim ThePath As String
ThePath = "C:\Mes Documents\"
Fichier = Application.GetOpenFilename("image(*.jpg),*.jpg")
'Vérifie si le fichier existe.
If Dir(Fichier) <> "" Then
'si le fichier existe, il est chargé pour visualisation.
Image2.Picture = LoadPicture(Fichier)
Else
'Sinon, affiche aucune image.
Image2.Picture = LoadPicture("")
With Me.Image2
.PictureSizeMode = fmPictureSizeModeZoom
End With
End If
End Sub
Bouton Command1
Private Sub CommandButton1_Click()
ActiveSheet.Pictures.Insert(Image2.Tag).Select
Selection.Top = Range("C7").Top
Selection.Left = Range("C7").Left
Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.85, msoFalse, msoScaleFromTopLeft
End sub
Merci à tous