Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/07/2011, 18h45   #1
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 41
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 41
Points : 12
Points : 12
Par défaut boîte de dialogue de fichiers dessin

Bonjour

J'utilise le code suivant pour ouvrir une boîte de dialogue afin d'importer des fichiers Gif, bmp ou jpeg.

Code :
lFichier = GetFileNameOpen(Application.hWndAccessApp, "Importer une image", "gif", "Gif", Environ("USERPROFILE") & "\Mes documents\Mes images\CI-Output", False, VIEW_THUMBNAIL)
.
La boîte qui s'ouvre me donne 2 choix : Gif ou tous les fichiers. Comment faire pour ajouter dans la liste, (en plus de Gif), Bmp et jpeg.

Ce code est issu de la base de donnée Exemple qui utilise la Classe ClGdi+

Merci d'avance si quelqu'un peut m'aider.
thermo est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/07/2011, 09h14   #2
Rédacteur/Modérateur

 
Avatar de loufab
 
Homme Fabrice CONSTANS
Ingénieur développement logiciels
Inscription : avril 2005
Messages : 7 086
Détails du profil
Informations personnelles :
Nom : Homme Fabrice CONSTANS
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Ingénieur développement logiciels

Informations forums :
Inscription : avril 2005
Messages : 7 086
Points : 11 622
Points : 11 622
Bonjour,

Dans la faq tu as ce code avec la construction d'un filtre.

http://access.developpez.com/faq/?pa...#AffBoitDialog

Cordialement,
__________________
Classe MELA(CRUD) Opérateur IN et zone de liste
MsGraph et VBA - 1e Partie 2e partie
Entête d'états-Opérateur LIKE-Evénements formulaires-Cours 2010
Complément :Générateur de msgbox
Visitez mon Blog
Les questions techniques par MP ne sont pas lues et je ne pratique pas l'extispicine
loufab est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/07/2011, 16h11   #3
Candidat au titre de Membre du Club
 
Inscription : février 2007
Messages : 41
Détails du profil
Informations forums :
Inscription : février 2007
Messages : 41
Points : 12
Points : 12
Bonjour

J'avais vu ce code, mais je faisais une erreur de syntaxe.

la solution :
Code :
lFichier = GetFileNameOpen(Application.hWndAccessApp, "Importer une image", "Fichiers images", "*.jpg;*.jpeg;*.bmp;*.gif", Environ("USERPROFILE") & "\Mes documents\Mes images\CI-Output", False, VIEW_THUMBNAIL)
Merci
thermo est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h51.


 
 
 
 
Partenaires

Hébergement Web