Passage d'une macro de Excel à outlook

Bonjour,

Ma macro suivant fonctionne parfaitement sous Excel, mais me renvoie une erreur 438 'propriété ou methode non gérée par cet objet',lorsque j'essaye dans Outlook. Je ne comprend pas du tout d'où viens l'erreur :/

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub text()   Dim oFS As Office.FileSearch Dim i As Integer 'Set oFS = Application.FileSearch   With Application.FileSearch   .NewSearch .FileType = msoFileTypeAllFiles .Filename = "270001153.pdf" .LookIn = "C:\Documents and Settings\f-freyssinier\Desktop\Factures" .SearchSubFolders = True .Execute For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i End With     End Sub

---

Chipss,

En utilisant une application Excel cela marche! :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub text()   Dim oFS As Office.FileSearch Dim i As Integer Set appExcel = CreateObject("Excel.application") Set oFS = appExcel.FileSearch   With oFS   .NewSearch .FileType = msoFileTypeAllFiles .FileName = "270001153.pdf" .LookIn = "C:\Documents and Settings\f-freyssinier\Desktop\Factures" .SearchSubFolders = True .Execute For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i End With appexcel.Quit   End Sub

---