[VB]recuperation de mes document dans VB

**misterbenj** · 05/02/2006, 20h38

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** · 05/02/2006, 20h58

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** · 05/02/2006, 21h01

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** · 05/02/2006, 21h09

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** · 05/02/2006, 21h09

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** · 05/02/2006, 21h26

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** · 05/02/2006, 21h38

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** · 05/02/2006, 21h40

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** · 05/02/2006, 23h03

Envoyé par SilkyRoad

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

Envoyé par jmfmarques

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** · 06/02/2006, 08h29

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** · 06/02/2006, 10h55

Envoyé par jmfmarques

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** · 06/02/2006, 11h37

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

**misterbenj** · 11/02/2006, 19h51

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

**jmfmarques** · 11/02/2006, 19h59

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** · 11/02/2006, 21h06

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

**misterbenj** · 12/02/2006, 19h24

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

**jmfmarques** · 12/02/2006, 20h05

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** · 12/02/2006, 20h08

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** · 12/02/2006, 20h10

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** · 13/02/2006, 17h11

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?

[VB]recuperation de mes document dans VB

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager