Equivalent de BrowseForFolder pour les fichiers

Bonjour,
Je souhaite faire apparaître dans un script VBS une boite de sélection graphique de fichier, telle que celle fournit pour les dossiers par la fonction BrowseForFolder.
J'ai bien essayé de détourner l'utilisation de cette fonction en faisant apparaître les fichiers avec l'option BrowseIncludeFiles mais ça ne fonctionne pas et me sort une erreur :

Code:

---

Le fichier spécifié est introuvable.

---

sur la ligne de code

Code:

---

Set objFichier = objShell.BrowseForFolder(&H0&, "Choisir le fichier", conReturnOnlyFSDirs + conNoNewFolderButton + conBrowseIncludeFiles)

---

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function funcSelectionFichier Const conReturnOnlyFSDirs = &H1 Const conNoNewFolderButton = &H200 Const conBrowseIncludeFiles = &H4000   Dim objShell, objFichier, objFichierChoisi   Set objShell = CreateObject("Shell.Application") Set objFichier = objShell.BrowseForFolder(&H0&, "Choisir le fichier", conReturnOnlyFSDirs + conNoNewFolderButton + conBrowseIncludeFiles)   If objFichier Is Nothing Then MsgBox "Vous n'avez rien sélectionné", vbCritical, "Abandon" Wscript.Quit Else Set objFichierChoisi = objFichier.Self funcSelectionFichier = objFichierChoisi.Path End If   Set objShell = Nothing Set objFichier = Nothing Set objFichierChoisi = Nothing End Function

---

Existe-t-il une fonction pour les fichiers directement implémentée ? ou bien faut-il que je modifie mon code (si oui, en quoi ?) ?
Par avance, merci.

Un lien sur la FAQ ici et 2 liens sur MSDN pour aider :
BrowseForFolder
BrowseInfo (les options)

Bonjour,

Peut-être là ?

http://www.informania-fr.com/windows...ident=rundll32

salut,
comme son nom l'indique BrowseForFolder n'est pas équivalent à BrowseForFiles :mrgreen:
deux solutions:
- écrire ou trouver un composant activex qui saura faire le boulot
ex: http://www.jsware.net/jsware/scripts.php3
- attaquer directement la comdlg32.dll "comme les grands"
voir l'exemple dans les contributions: http://www.developpez.net/forums/sho...d.php?t=333644
(profites-en c'est ma seule contrib à ne pas avoir été délestée...:aie::aie:)

:cry: C'est bien ce que je pensais, ça va être bien compliqué pour l'utilisation que je vais en avoir de ce script... Il est dommage qu'ils implémentent une sélection graphique de dossier mais pas de fichier... Tant pis, je vais me débrouiller autrement :P. En tout cas, merci beaucoup pour vos réponses

Salut,

voici une méthode que j'ai trouvé sur le net et qui me convient :

Code:

---

1 2 3

Set objDialog=CreateObject("SAFRCFileDlg.FileOpen") ObjDialog.OpenFileOpenDlg OpenFile=objDialog.FileName

---

Pour récupérer le nom du fichier selectionné, tu fais ca :

Code:

---

1 2	strFileName=objDialog.FileName MsgBox strFileName

---

en espérant que ca puisse t'aider.
A++

8O la classe ! Pile poil ce qu'il me fallait !! Merci beaucoup ! :king:

Bonjour,

Je me permets de relancer ce post, je souhaite également récupérer sinon un fichier au moins son nom, afin de l'incorporer dans une variable sans avoir à le taper.
Quand je prends le post ci-avant

Citation:

---

Salut,

voici une méthode que j'ai trouvé sur le net et qui me convient :

Code :

Set objDialog=CreateObject("SAFRCFileDlg.FileOpen")
ObjDialog.OpenFileOpenDlg
OpenFile=objDialog.FileName



Pour récupérer le nom du fichier selectionné, tu fais ca :

Code :

strFileName=objDialog.FileName
MsgBox strFileName

en espérant que ca puisse t'aider.

---

et que je mets le code à ma sauce, je me retrouve avec le message suivant "erreur d'execution 429" "Un composant ActiveX ne peut pas créer l'objet".


Comment contourner ce problème d'avance merci! Peut-être que cela n'est pas réalisable en VBA sous Excel?

Cordialement

J'ai résolu le problème avec

Code:

---

1 2 3 4

Set monraster_src = CreateObject("Shell.Application")   'Ouverture de la boîte de dialogue pour sélectionner le fichier voulu Set objFichier = monraster_src.BrowseForFolder(&H0&, "Veuillez indiquer le chemin d'accès au fichier " & descrFichier & " à importer", &H4000&)

---

Désolé