Images

es ce une macro?

Et ça c'est quoi!!!!

https://forums.commentcamarche.net/forum/affich-34298313-images#1

Je ne comprends pas, c'est un classeur Excel que j'ai mis. Tu n'as pas besoin de l'ouvrir avec Open pour ensuite le copier sur Excel.
Il suffit de l'ouvrir avec Excel; Je l'ai enregistré, en Excel 2003 pour que tout le monde puisse s'en servir.

@+

@cs_Le Pivertdésolé cs_ le pivert es ce que cette macro fonctionne chez toi, moi j'ai un problème avec la liste index elle ne passe pas

@KARPUZvoici une version différente:

http://www.cjoint.com/c/GAyu2HbfMkQ

Essaie la

@cs_Le Pivertje t'en remercie cs_le pivert il ne sert à rien de m'envoyer plus d'exemples il faut que je suivent une paire de tuto avant de comprendre les codes que tu m'envoie, de plus il y a des sub et end sub à la suite dans ce code difficile de comprendre pour l'instant de quoi il s'agit je reviendrais dessus dans quelque semaine

bonjour, as-tu essayé d'enregistrer une macro pendant que tu changeais les dimensions? cela va sans doute t'aider à comprendre comment le faire en VBA.

Voilà un exemple:

http://www.cjoint.com/c/GBspMtT6PBQ

@cs_Le Pivertil y a des sub l'un a la suite est ce que c'est un piège?
ton exemple ne fonctionne pas ou alors il faut le sacrément le modifier afin de l'adapter a ce que je veux faire ce qui dépasse mes capacité comment je peux le faire à partir du code que j'ai créer voici le code:

Sub inserer_image()

rep = "C:\Users\erdogan\Pictures\branchement provisoire de goutiere\"
'rep = "C:\Users\erdogan\Pictures\photo matiere premiere accessoire outillage\matiere premiere\raccords cuivre\photo decoupe et retouche pour catalogue excel\"
'Fichier = Dir(rep & "*.jpg")

Fichier = Dir(rep & Cells(i, 2).Value & "*.jpg")

i = 2

Do While Fichier <> ""

Cells(i, 3).Value = Fichier

Cells(i, 3).Select
Set Image = ActiveSheet.Pictures.Insert(rep & Fichier)
Image.Name = Fichier

ActiveSheet.Shapes(Fichier).LockAspectRatio = msoFalse
ActiveSheet.Shapes(Fichier).Height = 70
ActiveSheet.Shapes(Fichier).Width = 70
'Rows(i & ":" & i).RowHeight = 100
Columns("C:C").ColumnWidth = 14
Rows.RowHeight = 100
'ActiveSheet.Shapes(Fichier).AutoShapeType = msoShapeRoundedRectangle
ActiveSheet.Shapes(Fichier).IncrementLeft 15.5
ActiveSheet.Shapes(Fichier).IncrementTop 15.5

i = i + 1
Fichier = Dir

Loop

End Sub

j’ai en B2 la référence 123 il faut que l’image nommé 123 se place en cellule C2 et ainsi de suite

Mon code fonctionne très très bien. il suffit de chercher ton dossier images!

il y a des sub l'un a la suite est ce que c'est un piège?

Tu ne serais pas un peu parano. Il y a une sub pour chercher le dossier image et une sub pour importer ces images. Le reste sert à réinitialiser la feuille si on le désire. Quand on fait du vba il faut savoir lire les macros, c'est la moindre des choses. C'est ma dernière intervention, voici une seule sub, comme cela tu ne pourras pas te tromper:

Sub ImportImages()
Dim start As Single
Dim répertoirePhoto, nf As Variant
Dim img As Object
Dim Derlig As Integer
ActiveSheet.DrawingObjects.Delete
  répertoirePhoto = "C:\Users\erdogan\Pictures\branchement provisoire de goutiere\"
  nf = Dir(répertoirePhoto & "*.jpg") ' premier fichier
  Range("C1").Select
  start = Timer
  Do While nf <> ""
    Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & nf)
    img.Top = ActiveCell.Top
    img.Left = ActiveCell.Left
    img.Height = 70
    img.Width = 70
    img.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
    ActiveCell.Offset(0, -1) = Application.Proper(Left(nf, Len(nf) - 4))
    ActiveCell.EntireRow.RowHeight = img.Height
    ActiveCell.EntireColumn.ColumnWidth = (img.Width / 5.5) - 0.2
    nf = Dir ' suivant
    ActiveCell.Offset(1, 0).Select
  Loop
  Worksheets("Feuil1").Columns("B:B").AutoFit
   Derlig = Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
 MsgBox "Importation de " & Derlig & " images en " & Round(Timer - start, 2) & " sec", vbDefaultButton1, "Importer images"
End Sub

Ps dans le code que tu as montré, il n'y a aucune variable déclarée. Apprends toi à mettre Option Explicit au début de ton module.

bonsoir, c'est probablement parce que tu ne cherches pas un petit coup de pouce.
nous demandes-tu si c'est possible de faire cela, ou nous demandes-tu de le faire pour toi?
cs_Le Pivert t'a très gentiment donné un exemple qui montre que c'est possible, et que tu peux adapter pour réaliser ce que tu souhaites. Je suis surpris que cela ne t'aide pas du tout.