[XL-2016] Ignorer une extension

Ignorer une extension

Bonjour,
Je suis entrain de créer un petit module pour importer tous les modules d'un dossier nommé "Temp".
Mais je voudrais qu'il m'ignore une extension ".frx"

Alors j'en appel a vous car je ne sais comment mis prendre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(xTemp) ' xTemp correstpond à ThisWorkbook.Path & "\Temp"
    For Each Fichier In dossier.Files
        Mdl = Mid(Fichier.Name, 1, InStrRev(Fichier.Name, ".") - 1) ' Nom du fichier sans l'extension
        'Vérifier si le fichier existe
        If VerifierExistenceModule(Mdl) = True Then
            'Si module existe on le supprime
            With ThisWorkbook.VBProject.VBComponents
                .Remove .Item(Mdl)
            End With
        End If
        'Install les modules trouver dans \temp
        ThisWorkbook.VBProject.VBComponents.Import Fichier
    Next

merci a vous ;)

Citation:

Envoyé par chrisl0

Mais je voudrais qu'il m'ignore une extension ".frx"

Bonjour,

Code:

if not right(fichier.name,3) = "frx"

j'ai resolus mon probleme avec ceci

Code:

1
2
3
4
5
6
7
 
       For Each Fichier In dossier.Files
        If Fichier.Name Like "*.frx" Then
            Exit For
        ElseIf Fichier.Name Like "*.frm" Or Fichier.Name Like "*.bas" Then
            ThisWorkbook.VBProject.VBComponents.Import Fichier
        End If