Excel 2003 a 2010...erreurs sur macros

[choupi_nette]

Bonjour le Forum,
Je suis en train de tester mes macros (faites precedemment sous Excel 2003 grace à l'aide fournie sur ce forum) et entre Windows 7 et Excel 2010 j'ai quelques bugs


par exemple pour le code suivant j'ai d'entrée une erreur :

Runtime error 445: object doesn't support this action

Public Monfic As String
Sub ListeFichiers_rech()

With Application.FileSearch
.NewSearch
.LookIn = "C:\Users\Choupi\Desktop\Bio"
.Filename = "*.*"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True

If .Execute < 14 Then
MsgBox ("not enough Bio images")
GoTo LAFIN:
End If

End With

Quelqu'un aurait une idée pour corriger cela ?
merci

 

[david84]

Re : Excel 2003 a 2010...erreurs sur macros

Bonjour,
sauf erreur de ma part, FileSearch n'est plus supporté par Excel depuis la version 2007.
Regarde ce fil pour une éventuelle solution.
A+

 

[choupi_nette]

Re : Excel 2003 a 2010...erreurs sur macros

Merci pour la réponse mais je ne vois pas comment reporgrammer mes commandes pour traduire cela en version 2010.

Public Monfic As String
Sub ListeFichiers_rech()

With Application.FileSearch
.NewSearch
.LookIn = "C:\Users\Choupi\Desktop\Bio"
.Filename = "*.*"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True

If .Execute < 14 Then
MsgBox ("not enough images")
End If
End with

Quelqu'un saurait traduire cela ?
Car meme le If .Execute < 14 Then
Ca ne passe pas sous Excel 2010
Merci d'avance