Un browseforfile et quand on fait Ouvrir, ca ouvre un xml avec notepad?, le toutRésolu

Question

Salut a tous!
Ben voila je pense que le titre est assez clair;
Je voudrais savoir comment faire une boite de dialogue "Parcourir", et quand je selectionne le fichier et que je clique sur Ouvrir, qu'il m'ouvre le xml avec notepad..
en fouinant j'ai trouv&#233; (en modifiant un petit peu) ceci:

MsgBox BrowseForFile("C:", "Xml File|*.xml|All Files|*.*")
Function BrowseForFile(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = pstrPath
objDialog.Flags = &H80000 + &H4 + &H8
intResult = objDialog.ShowOpen
BrowseForFile = objDialog.FileName
end function

Mais apres je sais pas comment demander &#224; ce que le fichier selectionn&#233; soit ouvert avec Notepad.. Vous pouvez m'aidez?
Merci beaucoup par avance!
(si vous pouvez aussi me dire comment me virer le Dialog qui vient me dire que j'ai selectionn&#233; ce fichier ca m'arrangerai )
Merci!!

zargali · Accepted Answer

Function ok(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = ""
objDialog.Flags = &H80000 + &H4 + &H8
intResult = objDialog.ShowOpen
ok= objDialog.FileName
end function
Set WshShell = CreateObject ("WScript.Shell")
WshShell.run("notepad.exe " & ok("C:", "Xml File|*.xml|All Files|*.*") )

Voila j'ai reussi a faire ce que je voulais pfiou!
Jsuis sur qu'il y a plus simple mais bon ca marche c'est l'essentiel!
Et en plus j'ai pas de msgbox!!
Merci kalobit et moi meme

kalobit · Answer

salut,

Il suffit de lancer notepad avec le nom de fichier en argument :

DIM Shell
file = BrowseForFile("C:", "Xml File|*.xml|All Files|*.*")
Msgbox File
Set Shell = CreateObject ("WScript.Shell")
shell.run("notepad.exe " & file)

en fait la plupart des programmes MS acceptent un fichier en argument.
Tu peux essayer avec word excel et mspaint pour voir mais n'oubli pas l'espace entre l'executable et le nom de fichier

zargali · Answer

Merci beaucoup!
Ca parait beaucoup plus simple comme tu l'&#233;cris 
Cependant le script ne marche pas 
Type incompatible "BrowseForFile"
Je comprend pas j'ai cherch&#233; mais rien trouv&#233; sur cette erreur!!
Je comprend pas pourquoi on ne pourrait pas lui assign&#233; le "file" alors que si on met Msgbox BrowseForFiletc...tout court, ca marche!!
Des fois jte jure 
Merci de ton aide en tout cas!!

kalobit · Answer

Ouaip, bizare parceque chez moi &#231;a marchais.

kalobit · Answer

Attention, qu'est ce qui se passe si tu annul l'ouverture du fichier ??

Notepad se lance quand m&#234;me.

Je pense que t'avais oubli&#233; de rajouter ta fonction en dessous de mon code.

Voil&#224; le module complet qui fonctionne

Sub test()
Dim Shell
file = BrowseForFile("C:", "Xml File|*.xml|All Files|*.*")
If file <> "" Then
Set Shell = CreateObject("WScript.Shell")
Shell.Run ("notepad.exe " & file)
End If
End Sub
Function BrowseForFile(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = pstrPath
objDialog.Flags = &H80000 + &H4 + &H8
intResult = objDialog.ShowOpen
BrowseForFile = objDialog.Filename
End Function

Test&#233; &#233;galement En vbs (faut juste virer le sub et end sub), marche aussi sans pb

+++

zargali · Answer

Merci bien