Macro Excel de parcours de fichierRésolu

Question

Hello !



J'ai un ptit pb, je voudrais faire une macro Excel VB qui ouvre une
boite de dialogue de parcours de fichier, sauriez-vous comment faire
SVP ? 



Merci beaucoup !!!!

boudafc · Accepted Answer

Merci pour ta r&#233;ponse, en fait, je viens de trouver une solution !



Mais merci encore !

----------------------------------------------------------------------------

Sub Ouvrir_fichier()



    'Declare a variable as a FileDialog object.

    Dim fd As FileDialog



    'Create a FileDialog object as a File Picker dialog box.

    Set fd = Application.FileDialog(msoFileDialogFilePicker)



    'Declare a variable to contain the path

    'of each selected item. Even though the path is a String,

    'the variable must be a Variant because For Each...Next

    'routines only work with Variants and Objects.

    Dim vrtSelectedItem As Variant



    'Use a With...End With block to reference the FileDialog object.

    With fd



    'Pas de multi-selection de fichier

        .AllowMultiSelect = False

        .Filters.Add "Fichiers Log", "*.log", 1





        'Use the Show method to
display the File Picker dialog box and return the user's action.

        'The user pressed the action button.

        If .Show = -1 Then



           
'Step through each string in the FileDialogSelectedItems collection.

            For Each vrtSelectedItem In .SelectedItems



               
'vrtSelectedItem is a String that contains the path of each selected
item.

               
'You can use any file I/O functions that you want to work with this
path.

               
'This example simply displays the path in a message box.

                    MsgBox vrtSelectedItem

                 

                 



            Next vrtSelectedItem

        'The user pressed Cancel.

        Else

        End If

    End With





    'Set the object variable to Nothing.

    Set fd = Nothing



End Sub

----------------------------------------------------------------------------

jpleroisse · Answer

Bonjour,



Sub Ouvrir()

Application.Dialogs(xlDialogOpen).Show

End Sub

jpleroisse

valtrase · Answer

Oui, Mais ......
Pourquoi ne pas utiliser les fonctions int&#233;gr&#233;es &#224; excel avant de programmer en dur ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Macro Excel de parcours de fichier

3 réponses

Discussions similaires