Bonjour a tous,

Voici mon problème.J'ai développé une interface VBA sous excel 2003 et celle ci fonctionne tres bien..Malheureusement sous excel 2007, ça ne fonctionne pas

Avez vous déjà rencontré ce problème avec la fonction ( search ) ci-dessous

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
With Application.FileSearch                                                    ' Search the file
     .LookIn = Way                                                             ' In the same folder
     .SearchSubFolders = True                                                  ' In the under folder
     .Filename = RefIndusPart & ".jpg"                                         ' With the extension jpg
     If .Filename = ".jpg" Then
         PictureSparePart.Picture = LoadPicture()                              ' Display a white screen
         Label16.Visible = True                                                ' Visible label
         Label16.Caption = " Picture No Available. "                           ' Write the message
     Else
         If .Execute > 0 Then                                                      ' Si au moins un fichier est trouvé
            FullWay = .FoundFiles(1)                                              ' Définit le nom complet du fichier trouvé
            PictureSparePart.Picture = LoadPicture(FullWay)                       ' Display the picture
         Else
            PictureSparePart.Picture = LoadPicture()                              ' Display a white screen
            Label16.Visible = True                                                ' Visible label
            Label16.Caption = " Picture No Available. "                           ' Write the message
         End If
     End If
End With

Merci d'avance a tous ceux qui pourront m'aider