import images

[Mitch]

Bonjour,

je fait appel à vous car j'ai modifie mon tableau et maintenant la macro que m'avait gentiment founi Efgé ne fonctionne plus , j'ai beau chercher mais quelque chose m'échappe, j'ai rajouter des colonnes dans mon tableau, donc il suffit normalement de modifier le chiffre qui correspond à la ligne dans la macro, mais rien a faire

explication de la macro: Quand on clique sur le boutons (importer les images) ça ouvre une fenêtre pour chercher le dossier images,

une petite aide SVP

Merci

 

[Mitch]

Re : import images

Personne pour m'aider 🙁

 

[camarchepas]

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....

 

[Mitch]

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