Chemin fichier pour image dans usf

[Zeltron]

Bonjour à tout le forum.

Voici mon problème: j'ai 2 images dans un USF, l'image1 et l'image25.
Je souhaite changer l'image25 lorsque je clique sur l'image1.

J'ai donc écris le code suivant (inspiré d'exemple sur le forum):

Private Sub Image1_click()
Dim x As String
x = ThisWorkbook.Path & '\\' & 'Base_images\\2tetes.bmp'
With Image25
.Picture = x
End With
End Sub

Cela ne fonctionne pas, il bloque sur:
.Picture = x

D'où vient le problème? Pouvez vous m'aider?

Vous remerciant par avance

Cordialement

Zeltron

 

[Zeltron]

Précision: les antislash n'apparaisent pas dans le message, mais il y en a bien 1 entre ' ' et images et 2tetes.

Merci d'avance pour votre aide cordialement

Zeltron

 

[pierrejean]

bonjour Zeltron

sans aucun test une piste :

utiliser loadPicture(x)

 

[Zeltron]

Cela marche impec!!!

Merci beaucoup pour ton aide Pierre Jean.

Bonne fin de journée à toi, et longue vie à exceldownloads!!!

Merci encore

Zeltron

 

[Zeltron]

Rebonjour!!

Il me reste un petit problème.

Voilà, j'ai une autre image, image2, sur laquelle je souhaite cliquer afin qu'également ce click puisse changer l'image25.
Cependant, j'ai remarqué qu'une fois l'image25 'loadée' (je ne sais pas si ce terme est vraiment correcte!!!), je ne peux pas remettre une autre image par la même méthode(loadpicture (y)). Dès lors, j'ai essayé:

With image25
.picture= unloadpicture (x)
.picture= loadpicture (y)
end with

Mais il bloque sur le unloadpicture
J'ai essayé
.picture= unloadpicture
ou
.picture= ''

Rien n'y fait!!. Avez vous une idée? Ma démarche est elle bonne sur le principe , où est le problème??

Merci d'avance pour votre aide

Cordialement

Zeltron

 

[pierrejean]

re

la syntaxe est bien la même mais l'userform ne doit pas etre affiché
en resumé entre 2 loadpicture on doit avoir un

unload userform

pour ne pas choquer à l'affichage il est peut-etre possible d'encadrer les 2 loadpicture par un
Application.screenupdating=false ( et bien sur true)
(pas testé !!! )

 

[zeltron]

Merci pour ton aide Pierre Jean.

Je teste et te tiens au courant

Merci encore

Zeltron

 

[Hervé]

Bonjour zeltron, salut pierrejean

une autre syntaxe pour 'décharger' une photo sans passer par un unload :

Image1.Picture = LoadPicture('')

salut

 

[Zeltron]

Merci Pierre Jean et Hervé vos solutions marchent impec. Merci encore a vous

Cordialement

Zeltron