Discussion :

[CIOLK]

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

[Invité]

Bonjour

Tu utilises très mal l'opérateur LIKE.

Un tuto à lire sur le sujet : http://loufab.developpez.com/tutorie...operateurlike/

Philippe

[CIOLK]

En effet !

je viens de me render compte de l'erreur, il fallait utiliser "*" plutôt que "?"

Merci de ta rapidité, je n'avais pas vu ce tuto.

Cordialement

ps : la macro fonctionne, mais l'appel de function non (erreur de syntaxe)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Control").Select
Magic_Open(START_FILE_CAP_FLOOR, END_FILE_CAP_FLOOR, TYPE_FILE_CAP_FLOOR, CURRENT_CURRENCY)

[Invité]

Re

Tu as 3 paramètres à ta fonction et tu veux en passer 4.

CURRENT_CURRENCY n'a rien à faire là.

Philippe

[CIOLK]

j'ai ajouté dans la function une 4e variable ,donc current currency n'est pas le souci.

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
18
19
Function Magic_Open(ByVal NomDossier As String, ByVal NomFichier As String, ByVal NomTypeProduit As String, ByVal Devise 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
            If Fichier Like "*" & Devise & "*" Then
            Application.Workbooks.Open Fichier
            End If
        End If
    Next Fichier
 
End Function

[Invité]

Re

D'abord ce n'est pas une fonction que tu dois utiliser mais une routine Sub.

Une fonction est faire pour retourner une valeur, une routine pour faire une action.

Philippe