Bonjour,
Merci pour les informations, je n'arrive pas à visualiser toutes les pages mais j'avance...
J'ai trouver comment insérer les images dans le classeur excel avec une image par cellule.
J'aimerais aussi faire correspondre le nom de l'image dans la même cellule mais je ne sais pas ou regarder dans le lien ci-dessus pour trouver.
Est-ce que quelqu’un a une idée?
Sub Insertion_images()
Workbooks.Add
Cells.Select
Selection.ColumnWidth = 48
Selection.RowHeight = 190
Range("A1").Select
tableauListe = Application.GetOpenFilename("Fichiers jpg (*.jpg), *.jpg", , , , True)
col = Int(Sqr(UBound(tableauListe, 1))) + 1
For i = LBound(tableauListe, 1) To UBound(tableauListe, 1)
ActiveSheet.Pictures.Insert(tableauListe(i)).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 184#
Selection.ShapeRange.Line.Weight = 1#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.Style = msoLineSingle
ActiveCell.Offset(0, 1).Select
If ActiveCell.Column = col + 1 Then ActiveCell.Offset(1, -col).Select
Next
End Sub
Par la suite je souhaiterais faire l'opération inverse donc sortir les JPG mais avec une correspondance de la colonne A de la première feuille c'est à dire le numéro interne. Mais je ne suis pas encore à ce stade dans ma recherche... je n'ai pas beaucoup d'expériences en VBA.
Merci pour votre aide.
YC