Discussion :

[LatulipeNoir]

Bonsoir j’étais bloqué à cause d’une convertion d’échelle pour Des images jpg pour mo petit programme et j’ai trouvé ceci sur le forum》
Dim Img As WIA.ImageFile, IP As WIA.ImageProcess
Set Img = CreateObject("WIA.ImageFile")
'Création du gestionnaire de filtre
Set IP = CreateObject("WIA.ImageProcess")
'Chargement de l'image dans le conteneur
Img.LoadFile "F:\Creation produit \43325_10pic\43325_10pic_1.jpg"
'Ajoute le filtre pour redimensionner l'image (Scale)
IP.Filters.Add IP.FilterInfos("Scale").FilterID
'Définit la largeur maxi pour le redimensionnement
IP.Filters(1).Properties("MaximumWidth") = 90
'Définit la hauteur maxi pour le redimensionnement
IP.Filters(1).Properties("MaximumHeight") = 90
'remarque :
'Les proportions sont conservées. Le filtre prend en compte
'les ratios et adapte la taille pour ne pas dépasser les valeurs maxi définies.

'Application du filtre à l'image
Set Img = IP.Apply(Img)
'Enregistre l'image redimensionnée
Img.SaveFile "F:\Creation produit \43325_10pic\43325_10pic_1_R.jpg"
End Sub

Je l’ai appliqué à mon programme mais à chaque fois il bug sur le ”loadfile”, j’ai tout tenté, la bibliothèque est chargée je ne comprends pas.
Merci beaucoup si une personne peut me débloquer.

[Philippe Tulliez]

Bonjour,

Je l’ai appliqué à mon programme mais à chaque fois il bug sur le ”loadfile”, j’ai tout tenté, la bibliothèque est chargée je ne comprends pas

Qu'est-ce qui bogue ?
En général on reçoit un message d'erreur avec un numéro et un texte. Ce serait intéressant de connaître ces informations.

Même si l'erreur ne provient pas de là, vous mélangez du Late et du Early binding

Exemple en Late Binding (Ne nécessite pas le référencement de bibliothèque)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub t_1()
  Const SubFolder As String = "\Image\"
  Const ImageName As String = "SAM_Finger.jpg"
  Dim Img As Object
  Dim RootName As String
  Dim FullName As String
  RootName = ThisWorkbook.Path
  FullName = RootName & SubFolder & ImageName
  Set Img = CreateObject("WIA.ImageFile")
  Img.LoadFile FullName
  Set Img = Nothing
End Sub

Exemple en Early binding (Nécessite le référencement de la bibliothèque Microsoft Windows Image Acquisition Librairy v 2.0)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub T_2()
  Const SubFolder As String = "\Image\"
  Const ImageName As String = "SAM_Finger.jpg"
  Dim Img As New WIA.ImageFile
  Dim RootName As String
  Dim FullName As String
  RootName = ThisWorkbook.Path
  FullName = RootName & SubFolder & ImageName
  Img.LoadFile FullName ' Charge l'image
  Set Img = Nothing
End Sub

[LatulipeNoir]

Bonjour Philippe,

Merci pour ta réponse rapide, j'ai fait ce post en partant d'Excel par ce que dans les possibilités d'applications proposé ne figurait pas Access car en fait je suis dans Access.
j'ai coller ton code dans un module et j'ai eu le même résultat >>
Il doit y avoir quelque chose qui manque !!!??? mais quoi ??

[Philippe Tulliez]

Bonjour,

j'ai fait ce post en partant d'Excel par ce que dans les possibilités d'applications proposé ne figurait pas Access

Il y a un forum Access sur Developpez.com https://www.developpez.net/forums/f4...office/access/

J'ai mis le code dans un module standard dans Access et je n'ai pas d'avantage d'erreur avec ce code (testé sur une version 365)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t_1()
  ' Ne nécessite pas le référencement de bibliothèque
  Const SubFolder As String = "\Image\"
  Const ImageName As String = "SAM_Finger.jpg"
  Dim Img As Object
  Dim RootName As String
  Dim FullName As String
  RootName = CurrentProject.Path
  ' RootName = ThisWorkbook.Path
  FullName = RootName & SubFolder & ImageName
  Set Img = CreateObject("WIA.ImageFile")
  Img.LoadFile FullName
  Set Img = Nothing
End Sub

[LatulipeNoir]

Merci encore philippe,

je ne comprends pas pourquoi ca marche chez toi et pas chez moi, regarde le résultat>

[Philippe Tulliez]

Bonjour,
L'erreur a lieu sur quelle ligne parce-que sur l'image on ne voit rien. En principe quand il y a une erreur, la ligne est surlignée en jaune.

[LatulipeNoir]

toujours sur le loadFile>>

[Philippe Tulliez]

Bonjour,
J'avoue que je ne comprends pas.
Es-tu certains que le fichier image existe bien dans le répertoire ?
Par acquit de conscience je mettrais cette ligne, juste avant l'instruction qui provoque l'erreur

Code :

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

MsgBox ">" & FullName & "<"

En tous les cas, j'ai testé la procédure complète aussi bien dans Excel que dans Access et cela fonctionne parfaitement

La procédure testée dans Access 365 et placée dans un module Standard

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
24
25
26
27
28
Sub t_1()
  ' Ne nécessite pas le référencement de bibliothèque
  Const SubFolder As String = "\Image\"
  Const ImageName As String = "SAM_Finger.jpg"
  Dim Img As Object, IP As Object
  Dim RootName As String
  Dim FullName As String
  RootName = CurrentProject.Path
  FullName = RootName & SubFolder & ImageName
  Set Img = CreateObject("WIA.ImageFile")
  Set IP = CreateObject("WIA.ImageProcess")
  Img.LoadFile FullName
  ' Ajoute le filtre pour redimensionner l'image (Scale)
  IP.Filters.Add IP.FilterInfos("Scale").FilterID
  ' Définit la largeur maxi pour le redimensionnement
  IP.Filters(1).Properties("MaximumWidth") = 90
  ' Définit la hauteur maxi pour le redimensionnement
  IP.Filters(1).Properties("MaximumHeight") = 90
  ' remarque :
  ' Les proportions sont conservées. Le filtre prend en compte
  ' les ratios et adapte la taille pour ne pas dépasser les valeurs maxi définies.
  ' Application du filtre à l'image
  Set Img = IP.Apply(Img)
  ' Enregistre l'image redimensionnée
  FullName = RootName & SubFolder & "TestAccess.jpg"
  Img.SaveFile FullName
  Set Img = Nothing: Set IP = Nothing
End Sub

[LatulipeNoir]

Bonjour Philippe,

Un grand merci pour ta patience et ton aide qui m'a été cher, j'ai trouvé d'où venait le bug.
Au départ mes fichiers images viennent de la toile et ils sont au format *.*Web et moi comme j'avais remarqué que la commande "load File" ne les accepterait pas, j'ai simplement renommé l'extension en *.*JPG.
Et c'est pour cela que ça bloquait car le fichier avait toujours la signature de l'ancien format, du coup quand je repasse par une conversion classique comme Paint dans Windows en lui appliquant l'extension JPG tout fonctionne comme par miracle.
Je ne cherchais pas aux bons endroits mais grace à ton aide j'ai fini par trouver je te re-merci encore.

Cordialement, Mario.