OVH Cloud OVH Cloud

Bouton Parcourir dans un uf

4 réponses
Avatar
ManBas
Bonjour à tous,
Je souhaite installer ce contrôle supplémentaire, donc je coche sur Common
Dialog Control qui me semble la dénomination la plus approchante de
Microsoft common Dialog box (astuce Excelabo 544).
Mais le contrôle qui apparait est dénommé "inconnu" donc sans rémanence sur
le uf.
Ma version est Excel2000. Le problème vient-il de là?
Merci de votre aide.

4 réponses

Avatar
lSteph
Bonjour,

Un bouton, tu écris parcourir dessus
et une variable utilisant getopenfilename ou bien si c'est pour choisir un
répertoire,
"je préfère" exemple ici :
'''****
Public chemin As String

Sub ChercheDossier()
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, Message, 0, "Poste de travail")

chemin = objFolder.parentfolder.ParseName(objFolder.Title).Path
On Error GoTo 0
If chemin = "" Then chemin = CurDir

End Sub
'''****
'lSteph
"ManBas" a écrit dans le message de news:

Bonjour à tous,
Je souhaite installer ce contrôle supplémentaire, donc je coche sur Common
Dialog Control qui me semble la dénomination la plus approchante de
Microsoft common Dialog box (astuce Excelabo 544).
Mais le contrôle qui apparait est dénommé "inconnu" donc sans rémanence
sur le uf.
Ma version est Excel2000. Le problème vient-il de là?
Merci de votre aide.



Avatar
lSteph
...l'aide pour la méthode browseforfolder ici:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp


"ManBas" a écrit dans le message de news:

Bonjour à tous,
Je souhaite installer ce contrôle supplémentaire, donc je coche sur Common
Dialog Control qui me semble la dénomination la plus approchante de
Microsoft common Dialog box (astuce Excelabo 544).
Mais le contrôle qui apparait est dénommé "inconnu" donc sans rémanence
sur le uf.
Ma version est Excel2000. Le problème vient-il de là?
Merci de votre aide.



Avatar
ManBas
J'aime bien ta solution ChercheDossier.
Merci beaucoup de ta suggestion LSteph.
A bientôt.

"lSteph" a écrit dans le message de news:

...l'aide pour la méthode browseforfolder ici:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp


"ManBas" a écrit dans le message de news:

Bonjour à tous,
Je souhaite installer ce contrôle supplémentaire, donc je coche sur
Common Dialog Control qui me semble la dénomination la plus approchante
de Microsoft common Dialog box (astuce Excelabo 544).
Mais le contrôle qui apparait est dénommé "inconnu" donc sans rémanence
sur le uf.
Ma version est Excel2000. Le problème vient-il de là?
Merci de votre aide.







Avatar
lSteph
C'est grâce à un excellent forum appelé mpfe que je l'ai découverte et son
adoption m'a été ainsi facilitée.
;o)
A bientôt.

lSteph
"ManBas" a écrit dans le message de news:

J'aime bien ta solution ChercheDossier.
Merci beaucoup de ta suggestion LSteph.
A bientôt.

"lSteph" a écrit dans le message de news:

...l'aide pour la méthode browseforfolder ici:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shell/browseforfolder.asp


"ManBas" a écrit dans le message de news:

Bonjour à tous,
Je souhaite installer ce contrôle supplémentaire, donc je coche sur
Common Dialog Control qui me semble la dénomination la plus approchante
de Microsoft common Dialog box (astuce Excelabo 544).
Mais le contrôle qui apparait est dénommé "inconnu" donc sans rémanence
sur le uf.
Ma version est Excel2000. Le problème vient-il de là?
Merci de votre aide.