Compatibilité avec excel 2007
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:
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