Discussion :

[misterbenj]

Bonjour

j'aimerai savoir si il ya moyen de fair un bouton dans visual basic qui ouvrirai l'explorer a un endroit donné par exemple "mes documents"? si oui pouvez vous mexpliquer avec quoi et commen faire...

merci

[jmfmarques]

S'il s'agit simplement d'ouvrir l'explorateur :
Tu peux le faire en appelant le Shell (voir aide en ligne).

Fais attention à la syntaxe : explorer.exe ton_chemin_répertoire
et à la façon d'ouvrir la fenêtre (paramètre à fixer)
Il ne s'agit là que de ce qu'il convient de définir dans l'appel du Shell. Pour la syntaxe totale : voir dans l'aide en ligne comment appeler le Shell

[SilkyRoad]

bonsoir

ci joint quelques exemples possibles

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore ("C:\Documents and Settings")
End Sub

Code :

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

1
2
3
Private Sub Command2_Click()
Shell "explorer.exe C:\Documents and Settings", vbMaximizedFocus ' adapter le chemin
End Sub

Code :

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

1
2
3
4
5
6
Private Sub Command3_Click()
Dim IE As Object
Set IE = CreateObject("internetExplorer.Application")
IE.Navigate "C:\Documents and Settings"
IE.Visible = True
End Sub

bonne soiree
michel

[SilkyRoad]

rebonsoir

effectivement "Shell" est plus court ...;o)


un exemple pour récupérer le chemin de "Mes documents"

Code :

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

1
2
3
4
5
6
7
8
9
Const Cible = &H5 'Mes Documents
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Cible)
Set objFolderItem = objFolder.Self
 
MsgBox objFolderItem.Path

bonne soiree
michel

[ThierryAIM]

Afficher un explorateur de dossier, c'est possible http://vb.developpez.com/faq/?page=Fichiers#select_rep

Quant à le faire ouvrir sur un répertoire donné, c'est une autre histoire

perso, je me suis fait mon propre ocx, car j'ai jamais trouvé d'autre solution
Si elle existe je suis preneur aussi

[jmfmarques]

chez moi, ceci fonctionne sans problème

Code :

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

1
2
3
Private Sub Command1_Click()
     nimportequoi = Shell("explorer.exe C:\Documents and Settings\marques\Mes documents", 3)
End Sub

Si ton seul propos est d'ouvrir, par l'explorateur, un répertoire, voilà...
Si par contre, tu veux n'afficher que des fichiers d'un type donné, en sélectionner un pour utiliser son chemin d'accès, etc..., c'est une autre paire de manches et il y a d'autres méthodes. A toi de nous dire ce que tu veux faire, donc.

[ThierryAIM]

j'ai peut-etre mal interpreté la question (à force d'être obligé de lire entre les lignes )
s'il ne sagit que d'ouvrir l'explorateur Windows, alors, oui, shell fonctionne très bien
Désolé, j'en étais pas là

[jmfmarques]

Tu as raison, Thierry : tu anticipes...
Je sais que le demandeur veut autre chose, mais je souhaite qu'il le dise d'emblée plutôt que de "tourner autour du pot"...
Bonsoir à toi.

[SfJ5Rpw8]

Code :

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

1
2
3
Private Sub Command2_Click()
Shell "explorer.exe C:\Documents and Settings", vbMaximizedFocus ' adapter le chemin
End Sub

Il me semble que l'appel du Shell est plus simple ....
toto = Shell("..............",3) par exemple...

pour info c'est la même chose car :
vbMaximizedFocus = 3

[jmfmarques]

C'est sur, Bbil (je n'ai mis 3 que parce que c'était plus facile à frapper)...
Mais la différence est simplement dans la façon d'appeler :
toto = Shell("......") permet d'ouvrir et de récupérer la valable toto (en cas de besoin et si il utilise AppActivate), tandis que shell "......." ouvre mais ne récupère aucune variable.

[méphistopheles]

Je sais que le demandeur veut autre chose, mais je souhaite qu'il le dise d'emblée plutôt que de "tourner autour du pot"...

le pot s'apellerais pas comon dialog?

salut

[jmfmarques]

Tout dépend de ce qu'il veut faire derrière...

[misterbenj]

et ya til moyen douvrir une application genre word excel ou autre?

[jmfmarques]

Je crois (j'en suis plutôt certain) que les réponses précédentes, concernant l'appel du Shell, sont suffisantes. Si tu ouvres l'aide en ligne, de surcroît, sur le mot SHELL et sur le mot APPACTIVATE tu auras précisément un exemple qui correspond on ne peut mieux à tes souhaits.

[misterbenj]

excusez moi je savai pas que sa pouvai fonctionné pour cela aussi je te remerci

[misterbenj]

mai g pas compris commen je pouvai ouvrir excel en cliquan sur un bouton dans visual basic...

[jmfmarques]

Montre-nous le code trouvé dans l'exemple de l'aide en ligne pour APPACTIVATE (car tu l'as au moins lu, cet exemple, non ?)
le code déduit de cet exemple est à mettre dans l'événement click de ton bouton.

[misterbenj]

mai l'aide en ligne tu parle bien de celui dans visual basic? parce que si c celui la moi g rien qui mexplique APPACTIVATE ou alors j'ai louper qqch

[jmfmarques]

frappe appactivate quelque-part dans ton code, sélectionne ce mot, appuie sur la touche F1 puis lis. Clique ensuite sur l'onglet exemple et dis-nous ce que tu y vois (ou n'y vois pas si, comme je le pense, tu n'as pas l'aide en ligne)

[misterbenj]

Code :

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

1
2
3
4
Private Sub Command1_Click()
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word"
End Sub

c qqch comme sa que je doi mettre alors?