Discussion :

[aldama]

bonjour,

j'aimerais associer une photo à chacune des personnes enregistrées dans ma base de données. Sur ma fenetre, j'ai mis un bouton "parcourir" et un champs teexte "chemin". j'aimerais qu'en cliquant sur le bouton parcourir, il ouvre une fenêtre Windows (mes documents par exemple) pour la recherche de la photo.
je recherche le code qui me permettra d'ouvrir ma fenêtre windows.

De plus, j'aimerais récupérer le chemin de la photo selectionnée. Comment m'y prendre?

Y a t'il un outil qui me permet de mieux faire cela?

Merci d'avance de votre aide

[naphta]

Bonjour,

2 solutions,

l'activex comdlg32.ocx (attention avec Vista), on intègre l'activex dans chaque formulaire ou dans un seul formulaire mais que l'on ne ferme jamais.
Pour l'utiliser va sur le msdn.


L'api c'est plus simple un exemple concret qui marche j'ai testé.
là chez une personnalité altruiste aquecesse connue :

http://officesystemaccess.seneque.net/apiopenfile.htm


a+

[Invité]

Bonsoir
Un peu de lecture éventuellement dans la Faq

http://access.developpez.com/faq/?pa...ecupChemFicDlg

[vodiem]

salut GAYOT, naphta et aldama,

FAQ ici ou FAQ là.

ou tout simplement utiliser Application.FileDialog() cf F1.

[naphta]

Bonjour Mdr,

Ça c'est du chemin d'accès à l'information !!

a+

[aldama]

j'ai utilisé le controle Microfoft Common Dialog Control et j'arrive a recuperer le chemin de mes fichier.

Seulement, je veux qu'on récupère les fichier d'extension *.jpg; *.gif; *.tiff; *.jpeg; *.jpe; *.jfif

j'ai donc mis

Code :

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

parcouir.FileName = "*.jpg; *.gif; *.tiff; *.jpeg; *.jpe; *.jfif"

seulement, lorsque je trouve pas la photo de la personne et que je clique "annuler", je les extensions de mes fichiers dans ma zone de texte.

Je veux que lorsque je clique sur annuler, ma zone de texte soit vide.

comment le faire?

merci

[vodiem]

tu as raison il y a aussi la faq ici

tu peux faire une vérification sur l'existence du fichier ou mettre:

Code :

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

.CancelError = true

et mettre en place une gestion d'erreur pour l'annulation.


ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    On Error Resume Next
    With dlg
        .DialogTitle = "selectionner un fichier" 'titre de la boite
        .FileName = "*.txt" 'on recherche un fichier d'extension txt
        .InitDir = "c:\" 'repertoire par defaut
        .CancelError = True 'pour ne pas partir en erreur si on click sur annuler
        .ShowOpen
    End With
    If Err.Number = 0 Then
        'txtPath est la zone de texte recevant le chemin du fichier
        txtPath = dlg.FileName
        Else
        Err.Clear
        txtPath = ""
    End If
 
    MsgBox txtPath

[aldama]

merci de l'aide mais j'ai testé la démarche de Vodiem mais ça ne marche pas...

[User]

Salut,

utilise la propriété Filter du control Microsoft Common Dialog Control.

A+

[vodiem]

salut User ,

après réflexion même si tu n'as pas d'erreur avec l'annulation ou avec filter, rien n'empêche l'utilisateur de faire une saisie d'un fichier inexistant.

il faudra donc quand même vérifier l'existence du fichier. faq ici

[aldama]

une fois encore merci,
j'ai lu le code de la fonction sans vraiment le comprendre.

dois-je écrire cette fonction dans un module?

[vodiem]

soit tu l'intègre dans ta procédure en la réadaptant soit tu le mets dans un module et tu l'appelles comme une fonction classique.

[aldama]

j'ai fini par trouver. j'ai ajouté un filtre pour rechercher mes fichiers d'une part et d'autre part j'ai initialisé le filename à "".
voici le code final:

Code :

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

1
2
3
4
5
6
7
8
9
10
With dlg
        .DialogTitle = "selectionner un fichier" 'titre de la boite
        .FileName = "" '*.jpg; *.gif; *.tiff; *.jpeg; *.jpe; *.jfif" 'on recherche un fichier d'extension definie
        '.InitDir = "c:\" 'repertoire par defaut
        .Filter = "(*.jpg;*.gif;*.tiff; *.jpeg; *.jpe; *.jfif)|*.jpg; *.gif;*.tiff; *.jpeg; *.jpe; *.jfif| " 'filtre des fichiers
        .CancelError = False 'pour ne pas partir en erreur si on click sur annuler
        .ShowOpen
End With
 
    txtPath = dlg.FileName

Merci à tous de votre aide, je vous suis reconnaissant

[aldama]

excusez moi de vous importuner encore

voilà, j'ai réussi à recouper le chemin de mon image. seulement je veux le faire afficher sur ma fenêtre. comment s'y prendre?

j'ai pensé à utiliser l'outil image mais il m'impose une image à la création. de plus, j'arrive pas a faire modifier l'image.

Merci de me comprendre

[vodiem]

merci de respecter un problème=une discussion.

tant qu'à faire pourquoi pas utiliser le tuto ici?