[déplacé VB.NET -> VBA] Ouvrir un explorateur de fichier à partir d'un formulair

Résolu
zouf31 Messages postés 10 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 18 juillet 2009 - 17 juil. 2009 à 11:38
Phiphi41 Messages postés 41 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2013 - 19 juil. 2009 à 08:30
Bonjour à tous

J'aimerai, à partir d'un bouton sur un formulaire, ouvrir un explorateur de fichier afin d'ouvrir un document (par exemple word, pdf...)
je n'ai trouvé aucune réponse satisfaisante sur google :-(

merci de votre aide

zouf.

4 réponses

Phiphi41 Messages postés 41 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2013 1
19 juil. 2009 à 08:30
Bonjour

Tu as un code tout fait ici
3
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
17 juil. 2009 à 16:44
Ceci devrait aller :
Dim psi As New ProcessStartInfo
psi.Arguments = "nom de ton répertoire"
psi.FileName = "explorer.exe"
System.Diagnostics.Process.Start(psi)


---
VB.NET is good ... VB6 is better
0
zouf31 Messages postés 10 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 18 juillet 2009
18 juil. 2009 à 01:01
bonsoir,
processinfo n'est pas reconnu,
peut être que j'ai mal choisi le forum ?
(je code en vba pour access)
help =)
0
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
18 juil. 2009 à 01:49
VB.NET et VB 2005
=> Bah ouais, quand même
Essaie ça :
'Déclaration, à mettre avant tout le reste
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Code appelant
ShellExecute 0,"open","explorer.exe","nom de ton répertoire","",0


---
VB.NET is good ... VB6 is better
0
Rejoignez-nous