O
Ozons123
Guest
Bonjour le forum,
je me suis baladé sur le forum pour trouver des astuces sur le problème qui m'amène mais malgré les exemples je n'arrive pas à le résoudre.
En fait je souhaite faire apparaître une image TOTO 01.gif si le bouton d'option 1 est "True", et une image TOTO 02 si le bouton d'option 2 est sur "True". Les images sont stokées dans le dossier c:\TOTO\IMAGES
J'ai donc rentré comme code:
If OptionButton1.Value = True Then
Fichier1 = ActiveWorkbook.Path & "c:\TOTO\IMAGES\TOTO 01.gif"
Me.Image1.Picture = LoadPicture(Fichier1)
Else
If OptionButton2.Value = True Then
Fichier2 = ActiveWorkbook.Path & "c:\TOTO\IMAGES\TOTO 02.gif"
Me.Image1.Picture = LoadPicture(Fichier2)
End If
End If
Par avance merci pour votre aide, car le code ne génère pas d'erreur.
Bonne journée
Ludovic
je me suis baladé sur le forum pour trouver des astuces sur le problème qui m'amène mais malgré les exemples je n'arrive pas à le résoudre.
En fait je souhaite faire apparaître une image TOTO 01.gif si le bouton d'option 1 est "True", et une image TOTO 02 si le bouton d'option 2 est sur "True". Les images sont stokées dans le dossier c:\TOTO\IMAGES
J'ai donc rentré comme code:
If OptionButton1.Value = True Then
Fichier1 = ActiveWorkbook.Path & "c:\TOTO\IMAGES\TOTO 01.gif"
Me.Image1.Picture = LoadPicture(Fichier1)
Else
If OptionButton2.Value = True Then
Fichier2 = ActiveWorkbook.Path & "c:\TOTO\IMAGES\TOTO 02.gif"
Me.Image1.Picture = LoadPicture(Fichier2)
End If
End If
Par avance merci pour votre aide, car le code ne génère pas d'erreur.
Bonne journée
Ludovic
