Discussion :

[bob651]

Voila j'ai un petit problème avec ma USF
Je voudrais pouvoir chercher une image sur mon pc à l'aide d'un bouton qui est dans ma USF (par exemple les boutons parcourir ...). Ensuite je voudrais l'afficher dans ma USF.
J'espère que j'ai été assez précis.
Merci d'avance pour votre aide
Bob

[laetitia]

bonsoir bob651 le forum comme cela brute sans plus d'infos
dans proprietes de ton user tu tapes picture pour chercher une image
meme demarche pour un frame
regarde aussi du cote de picture alignement & size mode pour la definition & taille fait des essais pour voir les possibilitees

ps en relisant ton post c' est plutôt un diaporama que tu recherches
je deja vu ca!!! ou me souviens plus par qui idem ??
fait une recherche dans le forum ou google a moins que quelqu 'un a une idée.

[CRACOS38]

Salut,
Je suis tombé par hasard sur ta question, si ça peut t'aider :
recherhe de l'existance d'un fichier dans un répertoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim fso, monmessage,monfichier
monfichier="????" ' à mettre en bout de répertoire
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists("C:\Documents and Settings\b\Bureau\MON BUREAU\TRUC\" & monfichier)) Then
 ' par ex ;
     monmessage = "C:\Documents and Settings\b\Bureau\MON BUREAU\TRUC\" & monfichier & " existe"
 
   Else
      monmessage = "C:\Documents and Settings\b\Bureau\MON BUREAU\TRUC\" & monfichier & " n'existe pas."
   End If

' si pas exists changer de rep

[Krovax]

Bonjour,
Mon grain de sel
Un usuerform avec une image nommé image1 et un bouton
le code du bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim fichier As Variant
fichier = Application.GetOpenFilename("Image Bipmap (*.bmp), *.bmp, JPEG (*.jpg), *.jpg, Tous les fichiers (*.*),*.*",3) 'tu peux ajouter des type de fichier si tu veux
If fichier <> False Then Image1.Picture = LoadPicture(fichier)
End Sub