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 : Sélectionner tout - Visualiser dans une fenêtre à part
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