Discussion :

[Chipss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Chipss]

En utilisant une application Excel cela marche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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