J'ai créer deux boutons le premier pour la sélection (parcourir) l'endroit du fichier :
Private Sub CommandButton4_Click()
fileToOpen = Application.GetOpenFilename("All Files (*.*), *.*")
TextBox12 = fileToOpen
End Sub
et le deuxième pour l'insertion; mais le deuxième ne marche pas; voila mon code : (il passe toujours a la deuxiéme phase et il m'écrit "Pas de fichier sélectionné")
Private Sub CommandButton2_Click()
Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double
Où est définie la variable J ? Sans cette définition il y a bug bien sûr.
La variable fileToOpen doit être déclarée en haut du module de l'UserForm et sa définition est à modifier :
Code:
Dim fileToOpen As Variant 'mémorise la variable
Private Sub CommandButton4_Click()
fileToOpen = Application.GetOpenFilename("All Files (*.*), *.*")
fileToOpen = IIf(TypeName(fileToOpen) = "String", fileToOpen, "")
TextBox12 = fileToOpen
End Sub
Quant à l'objet créé il est normalement proportionnel à l'image d'origine.