XL 2019 Selection de fichiers du répertoire

escouger · 4 Décembre 2020

Bonjour,
Je voudrais simplement sélectionner des fichiers avec un filtre sur leurs nom noms avec GetOpenFileName.
Je recherche tous les fichiers du répertoire sur lequel je suis positionné dont le nom commence par "20" et qui sont suffixés par xlsm .
Voici mon code:

Sub modif()

Sheets("Lanceur").Select
currentpath = ThisWorkbook.Path
nom_fichier = ActiveWorkbook
SetUNCPath currentpath
vardir = currentpath
ChDir (vardir)

Dim fichiersel As Variant

fichiersel = Application.GetOpenFileName(filefilter:="Classeurs Excel Spéciaux (20*.xlsm),20*.xlsm")
If fichiersel = False Then
MsgBox ("aucun fichier sélectionné!")
Exit Sub
Else
End If

Merci de m'aider à dépasser ce point.

patricktoulon · 4 Décembre 2020

bonjour un exemple simple multi select

VB:

Sub ouvre2()
'ouverture un !! ou !!! plusieurs !!  fichiers en gardant la touche control appuyée
    Dim filetoopen As Variant, i&
    ChDrive ("G:\")    'cible le dique dur
    ChDir "G:\vba excel"    'cible le dossier par defaut en le mettant comme dossier courant
    filetoopen = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier", , True)
    If IsArray(filetoopen) Then
        For i = LBound(filetoopen) To UBound(filetoopen)
            MsgBox filetoopen(i)
        Next
    ElseIf Not IsArray(filetoopen) Then
        If filetoopen = False Then Exit Sub
        MsgBox filetoopen
    End If
End Sub

escouger · 4 Décembre 2020

Merci pour cette réponse rapide.
Néanmoins cela ne correspond pas 100% à ce que je souhaite faire.
En effet je ne souhaiterais obtenir que les fichiers suffixés par "xlsm" mais aussi ceux dont le nom commence par "20".
Or si je remplace
"Text Files (*.txt), *.txt", 1, "ouvrir un fichier", , True)
par
"Excel Files (20*.xlsm), 20*.xlsm", 1, "ouvrir un fichier", , True)
j'obtiens tous les xlsm, même ceux dont le nom ne commence par 20.

XL 2019 Selection de fichiers du répertoire

escouger

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

escouger

XLDnaute Occasionnel

Discussions similaires