Application.GetOpenFilename

Bonjour a tous,

J’utilise la fonction suivante

Option Explicit
Function Lire(ByVal NomFichier As String)

Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur  As String * 1

    '  Séparateur
    Separateur = "+"

    'Cells.Clear
    NumFichier = FreeFile
    iRow = 1

    Open NomFichier For Input As #NumFichier
        Do While Not EOF(NumFichier)
            iCol = 1
            Line Input #NumFichier, Chaine
            Ar = Split(Chaine, Separateur)
            For i = LBound(Ar) To UBound(Ar)
                Sheets("Feuil2").Cells(iRow, iCol) = Ar(i)

                iCol = iCol + 1
            Next
            iRow = iRow + 1
        Loop
    Close #NumFichier
End Function

la fonction "fonctionne" bien là pas de problème

j'essaie d'appeler la fonction avec Application.GetOpenFilename mais la je bloque

Sub Bouton1_Cliquer()

  Dim a As Variant, Nom As String

    Nom = ActiveWorkbook.Name
    ChDrive "C:"    ' Choix du lecteur
    ChDir "C:\Expair"    'Choix du répertoire
    a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
                                    , "Sélection de vos fichiers excel", , True)
Lire a

Si quelqu'un a une idée??

Merci de votre aide

Greg

bonjour,

le paramètre de getopenfilename doit être à false si tu ne permets de n'indiquer qu'un seul nom de fichier

a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
                                    , "Sélection de vos fichiers excel", , False)

Merci pour t'on aide acide sulfurique!!!!

Çà fonctionne super bien

Greg

erreur

Rechercher des sujets similaires à "application getopenfilename"