Ouverture d'une boite de dialogue permettant de sélectionner un fichierRésolu

Question

Bonjour,

Je suis d&#233;butant en vbs, et malgr&#233; toutes les recherches que j'ai pu faire jusqu'&#224; pr&#233;sent, je n'ai pas trouv&#233; de solution satisfaisante, donc je tente ici !!

Je souhaiterais faire appara&#238;tre &#224; l'&#233;cran une bo&#238;te de dialogue permettant &#224; l'utilisateur de s&#233;lectionner un fichier dans une arborescence. Je voudrais &#233;galement r&#233;cup&#233;rer le nom et le chemin du fichier s&#233;lectionn&#233;. 

Lors de mes recherches, j'ai trouv&#233; que OpenFileDialog permettrait d'ouvrir une telle bo&#238;te. Mais comme je suis totalement novice en vb, je ne sais pas du tout comment l'utiliser ! Est-ce que quelqu'un conna&#238;t la d&#233;marche &#224; suivre pour utiliser OpenFileDialog, ou pour ouvrir ma bo&#238;te de dialogue d'une autre fa&#231;on ??

Merci d'avance

cs_Willi · Accepted Answer

Salut,
Il y a pas mal d'exemples si tu recherches sur google.

En voici un
-----------------------------------------------------
Dim ObjFSO
Set ObjFSO = CreateObject("UserAccounts.CommonDialog")


ObjFSO.Filter = "Fichier texte|*.txt|Fichier Word|*.doc|All Files|*.*"


ObjFSO.FilterIndex = 3


InitFSO = ObjFSO.ShowOpen


If InitFSO = False Then
    Wscript.Echo "Script Error: Please select a file!"
    Wscript.Quit
Else
    Wscript.Echo "You selected the file: " & ObjFSO.FileName
End If

micmerle · Answer

Salut,
Pour des raisons? pas r&#233;ussi &#224; t&#233;l&#233;charger la biblitoh&#232;que pour avoir les common dialog. Par d&#233;pit, j'ai trouv&#233; ce code qui marche bien aussi. A nettoyer un peu peut etre.

Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
     Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long


Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
 End Type



Public Function GetTheFileName(ByVal filter As String) As String


 Dim F As OPENFILENAME
 Dim R As Long
 Dim fileName As String
 Dim myFileExtension As String
 Dim myDefaultTitle As String
 Dim index As Integer
 
 With F
    .lStructSize = Len(F)
    .lpstrFile = Space$(1024) & vbNullChar & vbNullChar
    .nMaxFile = Len(.lpstrFile)
    .lpstrFileTitle = vbNullChar & Space$(512) & vbNullChar & vbNullChar
    .nMaxFileTitle = Len(.lpstrFileTitle)
    '.nFileExtension = fileExtension '
    'name of root folder....
    .lpstrInitialDir = ActiveWorkbook.Path
    '.lpstrInitialDir = "c:\ emp" & vbNullChar & vbNullChar
    .lpstrFilter = filter ' "Text file (*.txt)" + Chr$(0) + "*.txt" + Chr$(0)
    'dialog box
    .lpstrTitle = "Select a file"
 End With


 R = GetOpenFileName(F)
 
 If R Then
    fileName = Application.WorksheetFunction.Clean(F.lpstrFile)
    
    'get the file extension
    index = 1
    Do Until (Right(fileName, index) Like "*.*")
        index = index + 1
    Loop
    myFileExtension = Replace(Right(fileName, index), Chr$(0), "")
    
    'check if extension included
    index = 1
    If fileName Like "*.*" Then
        Do Until (Right(fileName, index) Like "*.*")
            index = index + 1
        Loop
        myFileExtension = Right(fileName, index)
        fileName = Replace(fileName, myFileExtension, "")
    End If
    fileName = fileName & myFileExtension
Else
    fileName = vbNullString
End If


GetTheFileName = fileName


End Function

cs_Willi · Answer

250449  micmerle  => C'est du vb et johann91 cherche pour du vbs

johann91 · Answer

Impeccable merci pour &#224; tous pour vos r&#233;ponses. micmerle c'est exactement ce qu'il me fallait.

Ouverture d'une boite de dialogue permettant de sélectionner un fichier

4 réponses

Discussions similaires