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

[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

[Invité]

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

Remets tout le code que tu as modifié

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

[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.

[CIOLK]

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.

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.

[Invité]

Remets tout le code que tu as modifié

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

Philippe

[CIOLK]

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
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 :

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
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

[Invité]

Re

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

Test :

Code :

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

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

[CIOLK]

cela fonctionne merci !!

Ps : pour NomFichier, elle va servir !