Bonjour à tous,

Je travaille actuellement sur une macro assez longue qui comporte à son début une ouverture de fichier si dans un dossier predefine, un mot est compris dans le workbook en question.

Je suis donc parti sur cette macro, qui check bien tous les dossiers du fichier mais cependant n'ouvre rien meme quand un fichier comporte le "NomTypeProduit"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Magic_Open(ByVal NomDossier As String, ByVal NomFichier As String, ByVal NomTypeProduit As String)
 
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim r As Long
 
Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(NomDossier)
 
    For Each Fichier In DossierSource.Files
        If Fichier Like "?" & NomTypeProduit & "?" Then
        Application.Workbooks.Open Fichier
        End If
    Next Fichier
 
End Function
merci d'avance