Bonjour à tous,

J'ai écrit un programme en VB sous Excel 2003 qui me permettait de faire une modification des caractérisques des images. Je veux l'exécuter sous Excel 2007 mais le programme me génère une erreur de bibliothèque inconnue.
Voici le code du programme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub redimensionnerImage()
    Dim Img As WIA.ImageFile, IP As WIA.ImageProcess
    Set Img = CreateObject("WIA.ImageFile")
    Set IP = CreateObject("WIA.ImageProcess")
    Img.LoadFile ("D:\image\photo.JPG")
    IP.Filters.Add IP.FilterInfos("Scale").FilterID
    IP.Filters(1).Properties("MaximumWidth") = 2500
    IP.Filters(1).Properties("MaximumHeight") = 2500
    Set Img = IP.Apply(Img)
    Img.SaveFile "D:\image1\photo.JPG"
End Sub
L'erreur concerne les bibliothèques ImageFiles, ImageProcess qui n'existeraient pas à partir de Office 2007.

Merci d'avance de votre apport.