Discussion :

[Thulkash]

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 :

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

Le fichier spécifié est introuvable.

sur la ligne de code

Code :

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

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

Voici mon code :

Code :

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

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)

[pc75]

Bonjour,

Peut-être là ?

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

[omen999]

salut,
comme son nom l'indique BrowseForFolder n'est pas équivalent à BrowseForFiles
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...)

[Thulkash]

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 . En tout cas, merci beaucoup pour vos réponses

[RadPAT]

Salut,

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

Code :

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

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 :

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

1
2
strFileName=objDialog.FileName
MsgBox strFileName

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

[Thulkash]

la classe ! Pile poil ce qu'il me fallait !! Merci beaucoup !

[Ted37]

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

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

[Ted37]

J'ai résolu le problème avec

Code :

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

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é