Discussion :

[Olivierbd80]

Bonjour,

Je souhaite insérer des photos sur Excel depuis un fichier spécifique. Ce dossier comprend toutes des photos issues d'un endoscope pour lequel une dénomination et une codification a été créée. J'arrive à présent à sélectionner mon dossier mais j'ai un code d'erreur à un moment donné. L'idée est de charger ces photos et de les placer sur une ligne en fonction de la codification (il peut y avoir plusieurs photos pour un même élément et donc les photos devront être en ligne à partir d'une certaine colonne. Je ne suis pas un spécialiste des macros et après plusieurs heures de recherche, je bloque sur cette erreur.

Merci d'avance pour votre aide!



For t = 0 To 59 '54

ligneCorrespondante(t) = Range(codification(t)).Row

Chemin = selDossier & "\" & image(t)


colonne = firstColumInsertImage

For i = 1 To 30

If i >= 10 Then
zero = ""
Else
zero = "0"
End If

chemincomplet = Chemin & zero & i & ".JPG"


If Len(Dir(chemincomplet)) > 0 Then
Gauche = ActiveSheet.Cells(ligneCorrespondante(t) + 1, colonne).Left + margeGauche
haut = ActiveSheet.Cells(ligneCorrespondante(t) + 1, colonne).Top + margeHaut
colonne = colonne + 1



End If
'------

Set im = ActiveSheet.Shapes.AddPicture(chemincomplet, False, True, Gauche, haut, largeurImage, hauteurImage)

im.Name = codification(t) & "_" & zero & i & "_Endo" ' je mets le nom en commençant par la codification pour pouvoir la faire bouger correctement après

compteimage = compteimage + 1