Message pour @+Thierry

[Antoine]

bonsoir a toutes et tous,

j'ai lu tes messages avec Riri, et j'ai un Pb similaire à savoir: ma procedure ne trouve pas les fichiers existant. j'ai été en contact avec Michel qui a testé ma procédure sans problème et m'a renvoyé vers toi.
j'ai w2k SP4 et office 2003 SP1 et voici ma proc.

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:
MsgBox (FiA & " fichier créer")
FiA = "Chemin" & ChT
Workbooks.Open FiA
End If
End With
End Sub

peux tu me donner un coup de main,merci.

 

[michel]

Re: recherche classeur dans repertoire

rebonjour Antoine

je t'ai répondu ici

Lien supprimé


bon week end
MichelXld

 

[@+Thierry]

Bonjour Michel, Antoine, le Forum

Tiens absolument par hazrd je tombe là dessus, comme quoi il est absolument innefficace d'essayer de m'interpeller directement.

Donc je pense que ce problème est réglé... (il y a bien eu un bug d'XP sur le FileSearch... !!!)

Bon Je vous laisse, Bon App
@+Thierry