Userform : charger une image et son aperçu

Bonjour,

J'ai aujourd'hui un Userform qui fonctionnait jusqu'à quelques jours. Le but est de sélectionner une image avec le bouton "Browse", puis un apreçu s'affiche, et enfin avec le bouton "Save", les images préchargés s'affichent dans la feuille 2.

J'ai changé tellement le code qu'aujourd'hui je n'arrive plus à sélectionner une image avec.

Je le code en question dont l'erreur suspecte est en rouge. Je sollicite votre aide.
Le debugger me dit "Method or data member not found" dès que je clique sur Browse. Il doit y avoir un problème de syntaxe (voire de librairie ? mais ça je ne pense pas)
Merci d'avance :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Browse1_Click() BoutonImage 1 With Feuil2.Image1 .Left = 300 .Top = 10 .Width = 500 .Height = 300 .Picture = LoadPicture(imgf(1)) .PictureSizeMode = fmPictureSizeModeZoom End With End Sub

---

Bonjour,

Ça manque de détails et il n'y a rien en rouge...
Sur quelle ligne apparaît l'erreur ?
Est-ce que les noms utilisés sont toujours bons ?

Citation:

---

BoutonImage 1
With Feuil2.Image1

---

Qu'est-ce que BoutonImage 1 ?
Est-ce que l'image se nomme bien Image1 ?

Citation:

---

.Picture = LoadPicture(imgf(1))

---

Que vaut imgf(1) ?

Merci pour ton retour.
J'ai mis à jour mon premier message avec en jaune ce qui est surligné en fluo sur l'éditeur vba, et en rouge ce qui est surligné par la souris comme étant la cause principale suspectée.

Et je joins aussi le fichier pour être plus clair, ça vaut mieux qu'un long discours. ;)

Je pense que tu doives changer cette ligne

Code:

---

With Feuil2.Shapes("Image1")

---

Merci, on progresse : la fenêtre pour ouvrir mon fichier s'active, et l'image se charge dans l'aperçu. En revanche, un code se génère juste après :

Citation:

---

erreur 438 : propriété ou méthode non gerce par cet objet

---

Le débogueur me renvoie à la ligne

Code:

---

.Picture = LoadPicture(imgf(1))

---

Qui est liée au Module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public img As Variant Public imgf(1 To 2) As Variant   Sub BoutonImage(btn As Byte) img = Application.GetOpenFilename("image(*.jpg),*.jpg") If img = False Then Exit Sub imgf(btn) = img With UserFormCR.Controls("Image" & btn) .Picture = LoadPicture(img) .PictureSizeMode = fmPictureSizeModeZoom End With End Sub

---

J'ai tenté d'ajouter des Shapes un peu partout dans le module, sans succès.

Tu pourrais trouver des idées ICI

Merci, j'ai tout essayé, j'y comprends rien ça ne marche pas alors qu'avant ça fonctionnait. Ca fait 1 mois que je cherche, ça me rend dingue.

Je viens de réessayer ton fichier et il fonctionne bien... plutôt étrange parce que j'avais aussi une erreur en l'essayant l'autre jour.
Suite à ton message que j'ai vu sur un autre site, j'ai réessayé pour voir s'il y avait une différence, mais non... ça fonctionne comme je pense qu'il devrait le faire (?!)

Essaie de faire une réparation d'Excel pour voir si ça réglerait le problème... Ou peut-être supprimer tes contrôles Image et en remettre des nouveaux...