Insert picture

Bonjour,

J'essaie de mettre une macro qui va chercher des photos à partir de numero de styles.

Par contre, mon fichier excel contient qu'une partie des numéro que je retrouve dans mon folder pictures.

Ex: je veux inclure la photo 10003939, mais le fichier s'appelle en fait 10003939_000_df.

Comment lui dire d'utiliser qu'une partie du nom et prendre la première photo qui commence pareil?

Sub Addpictures()

[...]

Path = "\\saneth03\StylesImage\"

Filename = (Worksheets("TOP 30").Cells(i, j).Value

ActiveSheet.Pictures.Insert(Path & Filename & *.jpg).Select

Selection.ShapeRange.LockAspectRatio = msoFalse

Selection.ShapeRange.Height = 117

Selection.ShapeRange.Width = 79

Comment utiliser l'astérisque pour qu'il prenne la premiere photo incluant le filename?

Merci!

Bonjour,

la suite de ton numéro semble être un "compteur" ,

10003939_000 est donc le premier ?!

tu peut aussi tester si le fichier existe...

tu peut aussi utiliser "Dir" , dans ce cas tu regarde si la première partie "10003939" est dans le nom du fichier avec "InStr"

la fonction Left(NomFichier,8) te donnes aussi "10003939"

@+JP

J'ai déjà essayer la formule avec le left.

ActiveSheet.Pictures.Insert Left(Path + Filename + ".jpg", 8).Select, mais les photos n'apparaissent pas

Je vais essayer de comprendre le DIR!

Merci,

Bonjour,

left() te donnes les caractères de gauche , 8 te donnes le 8 caractères de gauche

Left(Path + Filename + ".jpg", 8) te donnes C:\.... puisque tu as Path + ...

pour Dir,

If Len(Dir("c:\Instructions.doc")) = 0 Then
   Msgbox "This file does NOT exist."
Else
   Msgbox "This file does exist."
End If

essais :

If Len(Dir(Path & Filename?".jpg")) = 0 Then

pour chaque fichier il faut faire Dir

tu peut faire une boucle tant que Dir <> ""

@+JP

merci!

Rechercher des sujets similaires à "insert picture"