macro 2003

[michelbezoteaux@gmail.com]

Bonjour a toutes et a tous

voila cette partie de code fonctionné impecablement sur 2003, et me génère une erreur sur 2010 :
--------------------------------
Sheets("Feuil1").Cells.Delete
ActiveWorkbook.Save
Repère = Range("A1").Address
With Application.FileSearch
.LookIn = "C:\Resnet"
.FileType = msoFileTypeAllFiles
.Execute
----------------
La ligne :
With Application.FileSearch

est en jaune avec le message : Cet objet ne gère pas cette action

bien sur la macro est plus longue mais ne va pas plus loin pour le moment.

Si l'un d'entre vous connais la solution je lui en serais reconnaissant.

Cordialement
Michel

 

[job75]

Re : macro 2003

Bonjour Michel, bienvenue sur XLD,

Vous êtes nouveau, sachez qu'avec le moteur de recherche (la loupe en haut à droite) on trouve très vite ce qu'on veut.

Par exemple 30 s pour trouver ce fil :

https://www.excel-downloads.com/threads/application-filesearch.146520/

A+

 

[michelbezoteaux@gmail.com]

Re : macro 2003

Bonsoir et merci,

effectivement je suis nouveau et n'ai pas l'habitude des forums.
Je ne sais ni ou ni quoi chercher.
Je vais essayer le lien.

Encore merci
Michel