[VBA-E] Macro Insertion image

Version imprimable

24/05/2006, 16h25
dafalri

[VBA-E] Macro Insertion image

Bonjour a tous,

Voila je voudrais inserer automatique, enfin en lancant une macro, les images d'un repertoire.
Mais le nom de l'image correspond au contenu de la cellule A.
Par exemple jai une liste de reference (de 10011 a 10062) et je lance ma macro qui va me rechercher l'image 10011.jpg etc... Mais il faut que le nom de limage soit 10011 et pas 810011 ou 100118.

Jai quelque petite chose avec Application.FileSearch mais ca bloque si la recherche renvoie 810011.

?!.?
Merci
24/05/2006, 16h42
SfJ5Rpw8

Citation:

Envoyé par dafalri

Jai quelque petite chose avec Application.FileSearch mais ca bloque si la recherche renvoie 810011.

tu peu nous la montrer la petite chose... sinon pour lister les fichiers.. tu as la commande Dir.. qui est plus simple..

PS: Pourrai-tu modifier le titre de ton post en y rajoutant le tag approprié... [VB6],[VBA-E]...

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub photo()
'
' photo Macro
' Macro enregistrée le 23/05/2006 par A.Calvet
 
Dim cel As Range
 
For Each cel In Selection
 
Set fs = Application.FileSearch
 
 
With fs
.LookIn = "e:\images\"
.MatchTextExactly = True
.Filename = cel & ".jpg"
 
 
 
If .Execute > 0 Then
 
ActiveSheet.Pictures.Insert("e:\images\" & cel & ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 113.25
Selection.ShapeRange.Width = 113.25
Selection.ShapeRange.Rotation = 0#
 
Else
With fs
.LookIn = "e:\images\"
.MatchTextExactly = True
.Filename = cel & Modul(cel) & ".jpg"
If .Execute = 1 Then
 
ActiveSheet.Pictures.Insert("e:\images\" & cel & Modul(cel) & ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 113.25
Selection.ShapeRange.Width = 113.25
Selection.ShapeRange.Rotation = 0#
 
End If
End With
End If
 
ActiveCell.Offset(1, 0).Range("A1").Select
End With
Next
End Sub

24/05/2006, 17h20
SfJ5Rpw8

j'ai du mal à comprendre le but final de la procédure ?
que fait la fonction Modul(..

ton code me semble bien compliquè.. si c'est juste pour prendre le nom du fichier dans ton tableau excel.. tester si le fichier existe ( tu peu utilise dir..) et puis le placer dans ton tableau... je comprends pas pourquoi tu fait un filesearch... les images ne sont pas directement sous le répertoires \image\ ? il y as d'autre sous-répertoire ?