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
Partager