Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Utilisation des codes de Jessy Sempere

Utilisation des codes de Jessy Sempere

11 réponses
Avatar
gege
Bonjour,
J'aimerai une question =E0 l'auteur des codes (Jessy=20
Sempere) mais si qq peut y r=E9pondre .....
http://access.jessy.free.fr

J'utilise les codes pour "la recherche de repertoire" =20
t=E9l=E9charger sur son site (que je recommande=20
particulierement ...)
1)Je voudrai savoir comment positionner l'ecran de=20
selection de repertoire ailleurs qu'en haut =E0 gauche ?

2)Et comment g=E9rer la possibilit=E9 que l'utilisateur appuie=20
sur Annuler. J'ai bien tester si le chemin retourn=E9 est=20
<> "" mais dans le cas de Annuler il y a quand m=EAme qq=20
chose (genre retour chariot symbolis=E9 par un carr=E9) ??
Alors si Jessy m'entend....
Merci
cordialement
gege
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond
Bonsoir.

je laisserai le soin à jessy de confirmer ou infirmer, mais comme il semble
ne pas être là ce soir, j'ai essayé sa procédure.

1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?


je n'ai pas trouvé de paramètres dans la procédure pour changer les
coordonnées mais un paramètre est peut être à valeurs multiples alors lequel
?

2)Et comment gérer la possibilité que l'utilisateur appuie
sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??


J'ai testé la procédure suivante et ça marche très bien car le test est bien
réalisé et j'ai bien null si annuler est enfoncé.
Private Sub Commande0_Click()
If GetDirectory <> "" Then
MsgBox "ok"
Else
MsgBox "null"
End If
End Sub

Si ça peut te faire avancer avant le retour de Jessy.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"gege" a écrit dans le message de
news:2ed501c37527$c3432e00$
Bonjour,
J'aimerai une question à l'auteur des codes (Jessy
Sempere) mais si qq peut y répondre .....
http://access.jessy.free.fr

J'utilise les codes pour "la recherche de repertoire"
télécharger sur son site (que je recommande
particulierement ...)
1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?

2)Et comment gérer la possibilité que l'utilisateur appuie
sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??
Alors si Jessy m'entend....
Merci
cordialement
gege

Avatar
gege
Merci pour avoir pris de le temps de tester.
Je continue mon appli et je vois de plus près mes tests.
merci encore et un grand bravo pour ton site aussi ou je
puise beaucoup d'idées.
Merci a vous les MVP iens et autres qui donnent la
possibilité a des gens comme moi de faire du bon travail..

-----Message d'origine-----
Bonsoir.

je laisserai le soin à jessy de confirmer ou infirmer,
mais comme il semble

ne pas être là ce soir, j'ai essayé sa procédure.

1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?


je n'ai pas trouvé de paramètres dans la procédure pour
changer les

coordonnées mais un paramètre est peut être à valeurs
multiples alors lequel

?

2)Et comment gérer la possibilité que l'utilisateur
appuie


sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??


J'ai testé la procédure suivante et ça marche très bien
car le test est bien

réalisé et j'ai bien null si annuler est enfoncé.
Private Sub Commande0_Click()
If GetDirectory <> "" Then
MsgBox "ok"
Else
MsgBox "null"
End If
End Sub

Si ça peut te faire avancer avant le retour de Jessy.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"gege" a écrit dans le
message de

news:2ed501c37527$c3432e00$
Bonjour,
J'aimerai une question à l'auteur des codes (Jessy
Sempere) mais si qq peut y répondre .....
http://access.jessy.free.fr

J'utilise les codes pour "la recherche de repertoire"
télécharger sur son site (que je recommande
particulierement ...)
1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?

2)Et comment gérer la possibilité que l'utilisateur appuie
sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??
Alors si Jessy m'entend....
Merci
cordialement
gege



.




Avatar
Hubert Canevet
Bonjour,

Pour la touche Annulation, j'ai fait un test, et j'ai bien
obtenu une chaîne vide comme nom de répertoire.

Rep = GetDirectory("Quel répertoire ?")
If Rep = "" then
MsgBox "Abandon par l'utilisateur"
Else
MsgBox "L'utilisateur a sélectionné " + Rep
Endif

J'ai testé ça sous Access 95 et sous VB6, sur Windows 98
SE. Y a-t-il un problème de version ? Bizarre. Raconte
toujours sur quel système d'exploitation tu es, parfois on
a des surprises avec ça. Sous Windows NT ou XP par
exemple, certaines syntaxes pour la sélection de fichier
ne passent pas, alors qu'elles passent très bien sous
Windows 98.

Pour les coordonnées du message, je ne sais pas si Jessy
pourra dire mieux, j'ai regardé dans les propriétés (les
membres, pour les puristes) de BROWSEINFO (la structure
passée en paramètre), et je n'ai rien vu quant aux
coordonnées de la fenêtre.

Il doit y avoir moyen en utilisant les autres API, mais il
faut s'y atteler. Au peu de temps que je viens de passer
là-dessus, il me semble qu'il y aurait besoin de lancer un
deuxième traitement, asynchrone, qui détecte le numéro de
la fenêtre du message (probablement d'après son titre), et
qui une fois qu'il l'a trouvé modifie les coordonnées de
la fenêtre. ça paraît être du boulot pour ce que c'est,
non ?

A moins que quelqu'un dise mieux ...

A propos, quelqu'un va peut-être nous sortir d'un chapeau
des paramètres enregistrés dans la base de registres, qui
disent à la boîte de dialogue où s'afficher sur l'écran ?
Mais si c'est ça c'est dommage qu'ils ne soient pas
indiqués sur la doc de SHBrowseForFolder.

-----Message d'origine-----
Bonsoir.

je laisserai le soin à jessy de confirmer ou infirmer,
mais comme il semble

ne pas être là ce soir, j'ai essayé sa procédure.

1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?


je n'ai pas trouvé de paramètres dans la procédure pour
changer les

coordonnées mais un paramètre est peut être à valeurs
multiples alors lequel

?

2)Et comment gérer la possibilité que l'utilisateur
appuie


sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??


J'ai testé la procédure suivante et ça marche très bien
car le test est bien

réalisé et j'ai bien null si annuler est enfoncé.
Private Sub Commande0_Click()
If GetDirectory <> "" Then
MsgBox "ok"
Else
MsgBox "null"
End If
End Sub

Si ça peut te faire avancer avant le retour de Jessy.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"gege" a écrit dans le
message de

news:2ed501c37527$c3432e00$
Bonjour,
J'aimerai une question à l'auteur des codes (Jessy
Sempere) mais si qq peut y répondre .....
http://access.jessy.free.fr

J'utilise les codes pour "la recherche de repertoire"
télécharger sur son site (que je recommande
particulierement ...)
1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?

2)Et comment gérer la possibilité que l'utilisateur appuie
sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??
Alors si Jessy m'entend....
Merci
cordialement
gege



.




Avatar
Jessy SEMPERE
Bonjour

Je suis entrièrement d'accord avec les remarques de Raymond

Sinon pour la position de la fenêtre je pense que ça doit être gérable
en utilisant l'API : "SetWindowPos"

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

Le problème c'est que je ne sais pas trop comment récupérer
le handle de la fenêtre qui s'ouvre ???

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
Avatar
gege
Merci ... effectivement j'ai refais mes tests avec la
syntaxe de Raymond et ça fonctionne sur Nt, 2000 et W98.
Je m'es gouré dans le test et pourtant cela fonctionnais
sur NT.
Pour la position c'était juste par esthétisme... c'est
rageant sur un ecran 21 p avec une résolution de 1780x1400
(qq comme ça!) de voir la fenetre au fin fond de l'écran
mais j'essai la piste de Jessy et je verrai...

Merci messieurs de vous êtes dérangés, vous avez toute mon
estime à défaut de ma richesse !!!

-----Message d'origine-----
Bonjour

Je suis entrièrement d'accord avec les remarques de
Raymond


Sinon pour la position de la fenêtre je pense que ça doit
être gérable

en utilisant l'API : "SetWindowPos"

Public Declare Function SetWindowPos Lib "user32" (ByVal
hwnd As Long, _

ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

Le problème c'est que je ne sais pas trop comment
récupérer

le handle de la fenêtre qui s'ouvre ???

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------


.



Avatar
gege
Merci ... effectivement j'ai refais mes tests avec la
syntaxe de Raymond et ça fonctionne sur Nt, 2000 et W98.
Je m'es gouré dans le test et pourtant cela fonctionnais
sur NT.
Pour la position c'était juste par esthétisme... c'est
rageant sur un ecran 21 p avec une résolution de 1780x1400
(qq comme ça!) de voir la fenetre au fin fond de l'écran
mais j'essaie la piste de Jessy et je verrai...

Merci messieurs de vous êtes dérangés, vous avez toute mon
estime à défaut de ma richesse !!!

-----Message d'origine-----
Bonjour,

Pour la touche Annulation, j'ai fait un test, et j'ai
bien

obtenu une chaîne vide comme nom de répertoire.

Rep = GetDirectory("Quel répertoire ?")
If Rep = "" then
MsgBox "Abandon par l'utilisateur"
Else
MsgBox "L'utilisateur a sélectionné " + Rep
Endif

J'ai testé ça sous Access 95 et sous VB6, sur Windows 98
SE. Y a-t-il un problème de version ? Bizarre. Raconte
toujours sur quel système d'exploitation tu es, parfois
on

a des surprises avec ça. Sous Windows NT ou XP par
exemple, certaines syntaxes pour la sélection de fichier
ne passent pas, alors qu'elles passent très bien sous
Windows 98.

Pour les coordonnées du message, je ne sais pas si Jessy
pourra dire mieux, j'ai regardé dans les propriétés (les
membres, pour les puristes) de BROWSEINFO (la structure
passée en paramètre), et je n'ai rien vu quant aux
coordonnées de la fenêtre.

Il doit y avoir moyen en utilisant les autres API, mais
il

faut s'y atteler. Au peu de temps que je viens de passer
là-dessus, il me semble qu'il y aurait besoin de lancer
un

deuxième traitement, asynchrone, qui détecte le numéro de
la fenêtre du message (probablement d'après son titre),
et

qui une fois qu'il l'a trouvé modifie les coordonnées de
la fenêtre. ça paraît être du boulot pour ce que c'est,
non ?

A moins que quelqu'un dise mieux ...

A propos, quelqu'un va peut-être nous sortir d'un chapeau
des paramètres enregistrés dans la base de registres, qui
disent à la boîte de dialogue où s'afficher sur l'écran ?
Mais si c'est ça c'est dommage qu'ils ne soient pas
indiqués sur la doc de SHBrowseForFolder.

-----Message d'origine-----
Bonsoir.

je laisserai le soin à jessy de confirmer ou infirmer,
mais comme il semble

ne pas être là ce soir, j'ai essayé sa procédure.

1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?


je n'ai pas trouvé de paramètres dans la procédure pour
changer les

coordonnées mais un paramètre est peut être à valeurs
multiples alors lequel

?

2)Et comment gérer la possibilité que l'utilisateur
appuie


sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??


J'ai testé la procédure suivante et ça marche très bien
car le test est bien

réalisé et j'ai bien null si annuler est enfoncé.
Private Sub Commande0_Click()
If GetDirectory <> "" Then
MsgBox "ok"
Else
MsgBox "null"
End If
End Sub

Si ça peut te faire avancer avant le retour de Jessy.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"gege" a écrit dans le
message de

news:2ed501c37527$c3432e00$
Bonjour,
J'aimerai une question à l'auteur des codes (Jessy
Sempere) mais si qq peut y répondre .....
http://access.jessy.free.fr

J'utilise les codes pour "la recherche de repertoire"
télécharger sur son site (que je recommande
particulierement ...)
1)Je voudrai savoir comment positionner l'ecran de
selection de repertoire ailleurs qu'en haut à gauche ?

2)Et comment gérer la possibilité que l'utilisateur
appuie


sur Annuler. J'ai bien tester si le chemin retourné est
<> "" mais dans le cas de Annuler il y a quand même qq
chose (genre retour chariot symbolisé par un carré) ??
Alors si Jessy m'entend....
Merci
cordialement
gege



.

.






Avatar
h.canevet
Bonjour,

Je vois que nous nous sommes croisés.

Effectivement, il faut repérer le numéro de la fenêtre.
ça, en parcourant toutes les fenêtres et en se repérant au titre, on
devrait bien finir par trouver (en y passant du temps ...). Déjà un
élément : la boîte de dialogue ne semble pas être une fenêtre
principale. Je chercherais bien donc dans les enfants de l'application
appelante.

Mais il se pose un autre problème : le FindWindow ou équivalent, si tu
le mets après le SHBrowseForFolder, est exécuté une fois la boîte de
dialogue refermée. D'où la nécessité d'un deuxième traitement,
asynchrone.

Une piste toutefois : SHBrowseForFolder retourne un nombre, ça
pourrait bien être le numéro de fenêtre. L'ennui est qu'on ne
l'obtient qu'après l'avoir refermé. A moins que ?

Est-ce qu'en passant le SHBrowseForFolder en numéro de fenêtre à
SetWindowPos ?

Je n'ai pas essayé je dois dire.
____________________________________________________________________________
"Jessy SEMPERE" wrote in message news:<bji52s$6c6$...
Bonjour

Je suis entrièrement d'accord avec les remarques de Raymond

Sinon pour la position de la fenêtre je pense que ça doit être gérable
en utilisant l'API : "SetWindowPos"

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

Le problème c'est que je ne sais pas trop comment récupérer
le handle de la fenêtre qui s'ouvre ???

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------


Avatar
Jessy SEMPERE
Voilà, sur les news de VB, j'ai eu la solution qui est sommes
toute très complexe mais géniale à analyser... ;-)

Rends toi à l'adresse suivante et télécharge un fichier nommé
BrowseForFolder.

http://www.bmsltd.co.uk/MVP/Default.htm

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
Avatar
Alain
Bonjour
Juste pour information : une solution est donnée dans Access 2000 Edition
Développeur (Sybex) de Ken Getz, chapitre 17. Il utilise une fonction de
rappel, c'est un peu complexe...
--
Salut
Alain
-----------------------------------------------------------
Conseils d'utilisation du forum: http://users.skynet.be/mpfa/
-----------------------------------------------------------
"Jessy SEMPERE" a écrit dans le message de news:
bji52s$6c6$
Bonjour

Je suis entrièrement d'accord avec les remarques de Raymond

Sinon pour la position de la fenêtre je pense que ça doit être gérable
en utilisant l'API : "SetWindowPos"

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

Le problème c'est que je ne sais pas trop comment récupérer
le handle de la fenêtre qui s'ouvre ???

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------




Avatar
gege
Merci pour l'info...
Je m'y attèle pour comprendre le pourquoi du comment.
Merci encore pour ta peine !!!

cordialement
gege

-----Message d'origine-----
Voilà, sur les news de VB, j'ai eu la solution qui est
sommes

toute très complexe mais géniale à analyser... ;-)

Rends toi à l'adresse suivante et télécharge un fichier
nommé

BrowseForFolder.

http://www.bmsltd.co.uk/MVP/Default.htm

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------


.



1 2