Pb por trouver un fichier bis

[Antoine]

bonsoir le forum,

j'ai tjs un Pb pour trouver un fichier(classeur) dans un repertoire.
voici le code:

Sub Contrat()
mon_fichier = v1 & v2
Range("a20") = v1
Range("a21") = v2
Range("a22") = Chem1
Range("a23") = mon_fichier
Range("a24") = ChT
With Application.FileSearch
.NewSearch
.LookIn = Chem1
.SearchSubFolders = True
.Filename = "mon_fichier*ChT.xls"
If .Execute > 0 Then
FiA = .FoundFiles(1)
MsgBox (FiA & " fichier trouvé")
Workbooks.Open FiA
Else:
FiA = "création_de_fichier" & ChT
MsgBox (FiA & " fichier créer")
Workbooks.Open FiA
End If
End With
End Sub

toutes les variables sont définies Public, les Range du début et les MsgBox sont uniquement pour visualiser ces variables pendant la phase de développement et n'existeront plus par la suite.

mon soucis est, que la procédure va toujours dans la partie ELSE la boucle IF alors que des fichiers existent.

Merci de vos conseils.

 

[michel]

bonsoir Antoine

je viens de tester ta macro et cela fonctionne chez moi

peux tu préciser les versions de Windows et d'Excel que tu utilises

dans le lien ci dessous tu trouveras les remarques de @+Thierry au sujet des bugs , lors de l'utilisation de "FileSearch"

Lien supprimé


bonne soiree
MichelXld

 

[Antoine]

Bonsoir Michel et le forum,

content de voir que cela fonctionne Michel, j'utilise w2k et office 2003.
Merci pour l'info, je vais voir le site.

Antoine