Ouverture de fichier avec "like"

Version imprimable

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:

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

17/07/2017, 11h30
Invité

Bonjour

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

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

Philippe
17/07/2017, 11h38
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:

1 2 Worksheets("Control").Select Magic_Open(START_FILE_CAP_FLOOR, END_FILE_CAP_FLOOR, TYPE_FILE_CAP_FLOOR, CURRENT_CURRENCY)
17/07/2017, 11h55
Invité

Re

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

CURRENT_CURRENCY n'a rien à faire là.

Philippe

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

Code:

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

17/07/2017, 12h02
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
17/07/2017, 12h14
CIOLK

Même en modifiant Magic_Open en Sub, j'ai la meme erreur.

Cependant je precise que meme si Magic Open est une function, elle est appellee dans une Sub
17/07/2017, 12h21
Invité

Citation:

Envoyé par CIOLK

Même en modifiant Magic_Open en Sub, j'ai la meme erreur.

Remets tout le code que tu as modifié

Citation:

Cependant je precise que meme si Magic Open est une function, elle est appellee dans une Sub

Cela n'a rien à voir.

Il faudrait que tu donnes plus de détails sur tes erreurs, est-ce que les valeurs passées en paramètres sont bonnes ?
Dossier avec le chemin complet par exemple.

De plus si tu trouves ton fichier avec TypeProduit, tu regardes également s'il contient Devise ????

Pas clair tout cela.

Philippe
17/07/2017, 12h22
Gfacro

Pas d ordi à dispo pour tester ma réponse

Je pense que le souci est ton for each, fichier ne doit pas contenir ton chemin de répertoire. Il faut l ajouter dans le open.

Quand vous dites rencontrer une erreur, pensez à bien préciser le message.
17/07/2017, 12h25
CIOLK

Citation:

Il faudrait que tu donnes plus de détails sur tes erreurs, est-ce que les valeurs passées en paramètres sont bonnes ?
Dossier avec le chemin complet par exemple.

Alors les 4 variables sont bien des strings tout comme dans Magic_open. Le Dossier pointe sur un repertoire dont le nom est dans une cellule de la feuille Excel. Le repertoire n'est pas le souci.

Citation:

De plus si tu trouves ton fichier avec TypeProduit, tu regardes également s'il contient Devise ????

Oui tout à fait, il faut pour l'ouverture, le bon produit et la bonne devise.

La function Magic_Sub fonctionne, le souci est l'appel de cette function. Au début j'ai mis : Magic_Open(START_FILE_CAP_FLOOR, END_FILE_CAP_FLOOR, TYPE_FILE_CAP_FLOOR, CURRENT_CURRENCY).Open mais j'avais un "424 Objet requis" à la fin.
17/07/2017, 12h27
Invité

Citation:

Envoyé par Philippe JOCHMANS

Remets tout le code que tu as modifié

Et les données dans le variables que tu passes en paramètre.

Philippe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Call_File
 
Application.ScreenUpdating = False
 
Dim CURRENT_CURRENCY As String: CURRENT_CURRENCY = Range("B1").Value 'Valeur = "EUR"
Dim TYPE_FILE_CAP_FLOOR As String: TYPE_FILE_CAP_FLOOR = Range("L2").Value 'Valeur = "CAPFLOOR"
Dim START_FILE_CAP_FLOOR As String: START_FILE_CAP_FLOOR = Range("M2").Value 'Valeur = "M:\DossierDepart\Taux"
Dim END_FILE_CAP_FLOOR As String: END_FILE_CAP_FLOOR = Range("N2").Value 'Valeur = "M:\DossierArrivee\Taux"
 
Worksheets("Control").Select
Magic_Open(START_FILE_CAP_FLOOR, END_FILE_CAP_FLOOR, TYPE_FILE_CAP_FLOOR, CURRENT_CURRENCY).Open
 
 
Application.ScreenUpdating = True
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
            Exit Function
            End If
        End If
    Next Fichier
 
End Function

17/07/2017, 12h35
Invité

Re

Pourquoi le .Open à la fin de de l'appel ?

Test :

Code:

Call Magic_Open(START_FILE_CAP_FLOOR, END_FILE_CAP_FLOOR, TYPE_FILE_CAP_FLOOR, CURRENT_CURRENCY)

et remplace Function par Sub.

Ta variable NomFichier ne sert à rien.

Philippe
17/07/2017, 12h37
CIOLK

cela fonctionne merci !!

Ps : pour NomFichier, elle va servir !