Comment utiliser Application.FileSearch dans Excel2007

[Didier59]

Bonjour

Je suis nouveau dans ce forum
Je viens d'acquerir Excel2007 etant sous Excel2003 avant
Si je lance un fichier je me trouve devant plein d'erreur
l'une des erreurs est l'utilisation de Application.FilesSearch
Cette commande est dans la version Excel2007 'Caché'
Existe t'il une solution pour activer les fonctions cachées dans
Excel2007

Merci d'avance pour resoudre mon petit problème

Ci dessous le petit morceau de programme qui me pose soucis


' Cas du classeur 'Calcul2.xls' ouvert
Set Fichier = Workbooks("calcul2.xls")
' Suppression de la gestion des erreurs
On Error GoTo 0
' Ouverture du classeur 'Calcul2.xls'
If Fichier Is Nothing Then
With Application.FileSearch
.LookIn = ActiveWorkbook.Path
.Filename = "Calcul2.xls"
If .Execute > 0 Then
Workbooks.Open Filename:="Calcul2.xls", Password:="Didier"
Else
MsgBox "Le fichier 'Calcul2.xls' n'existe pas", vbOKOnly, _
"FICHIER INCONNU"
Application.Quit
Exit Sub
End If
End With
End If

 

[dixit]

Re : Comment utiliser Application.FileSearch dans Excel2007

bonjour et bienvenue sur le forum,
j'en étais resté au fait que Filesearch n'existait plus dans Excel2007.
à suivre
bye
[edit] trouvé avec Google :
http://silkyroad.developpez.com/vba/classefilesearch/