import images

Re : import images

Personne pour m'aider 🙁

Re : import images

Bonjour,

N'ayant pas tout le contexte local (Fichiers , arborescence et autre), pour taider , il faudrait nous dire ou ça plante , message d'erreur si il y en a , ou ce que ça fait ou ce que ça fait pas .

Le code étant lourd et pas optimisé du tout, l'on cherche une aiguille dans une botte de foin.

Si tu nous décris mieux ton problème , plein d'aide tu recevras . ( Benoit Pi 7 , je crois)

Efgé (Mes respect du matin Efgé) t'as surement fourni un code en effet, mais toute modification de fichier ou mauvaise adaptation trouvée ci et là, font effectivement qu'un réglage , voir une optimisation ou une réécriture sont à prevoir....

Re : import images

Bonjour et merci de me répondre, voici le message d'erreur (l'indice n'appartient pas à la sélection) et voici la macro , en rouge la partie qui bloque
En colonne A j'ai des chiffres et les images correspondant à ces chiffres ce place a partir de la colonne BG (erreur de ma part sur la macro j'ai mis 54 et BG correspont à 59 )

Private Sub CommandButton2_Click()
Dim Rep$, Fichier$
Dim D As Object, i&, j&, c As Variant, Tmp As Variant

Set D = CreateObject("Scripting.dictionary")

With Application.FileDialog(msoFileDialogFolderPicker)
.ButtonName = "OK"
.InitialFileName = ThisWorkbook.Path & " \ "
.Title = "Sélectionnez un dossier"
.Show
If .SelectedItems.Count > 0 Then
Rep = .SelectedItems(1): If Right(Rep, 1) <> "\" Then Rep = Rep & "\"
End If
End With

If Rep = "" Then Exit Sub

Fichier = Dir(Rep & "*.*")
Do While (Len(Fichier) > 0)
Tmp = Split(Fichier, "-")
D(Tmp(0)) = D(Tmp(0)) & Tmp(1) & ";"
Fichier = Dir() 'prochain fichier
Loop

ReDim TabReport(1 To D.Count, 1 To 10)

With Sheets("Nouveaux-articles")
For Each c In D.Keys
Tmp = Split(D(c), ";")
For i = 2 To .Cells(Rows.Count, 1).End(1).Row
If CStr(.Cells(i, 1).Value) = CStr(c) Then
For j = LBound(Tmp) To UBound(Tmp) - 1
TabReport(i - 1, j + 1) = c & "-" & Tmp(j)
Next j
GoTo Suite
End If
Next i
Suite:
Next c
Flag = True
.Cells(2, 54).Resize(UBound(TabReport, 1), UBound(TabReport, 2)) = TabReport
Flag = False
End With
End Sub