Excel 2003 a 2010...erreurs sur macros

choupi_nette · 22 Octobre 2012

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

Code:

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 · 22 Octobre 2012

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 · 23 Octobre 2012

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.

Code:

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

Excel 2003 a 2010...erreurs sur macros

choupi_nette

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

choupi_nette

XLDnaute Occasionnel

Discussions similaires

Excel 2003 a 2010...erreurs sur macros

choupi_nette

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

choupi_nette

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency