Bonjour,
Pouvez vous m'aider concernant les image voila je souhaiterai avec une macro, importer toute mes photo que j'ai stocké dans un dossier (2500 photo)en colonne B jusqu’à la ligne 2500 en les dimensionnant dans les cellule est il possible de faire sa je vous remercie beaucoup si vous pouviez m'aider.
Bonjour
Si le but est d'insérer une photo par cellule, même en format réduit, la taille du fichier Excel risque de provoquer un plantage sévère !
Si tu veux insister, mets-toi en mode enregistrement de macro et insère une photo dans la 1ère cellule de la colonne puis arrête l'enregistrement.
Donne le code généré et on t'aidera pour le reste.
le code donne:
ActiveSheet.Pictures.Insert ("C:\Users\Desktop\Pictures\Do ssier photo\0001.JPG").Select
Il faut mettre tout le code, depuis le moment où tu cliques sur insérer une image jusqu'au moment où l'image s'insère.Envoyé par okyanus
au passage, dis-nous comment sont numérotées les images.
eh ben c'est ça activesheet.pictures.insert insérer l'image dans la feuille active puis le chemin menant à l'image sélectionné ("C:\Users\Desktop\Pictures\Do ssier photo\0001.JPG").Select
les images sont nommée très aléatoirement certains avec que des chiffres d'autre un mélange de chiffres et de lettres !
sub macro1
"eh ben c'est ça" activesheet.pictures.insert "insérer l'image dans la feuille active puis le chemin menant à l'image sélectionné" ("C:\Users\Desktop\Pictures \Do ssier photo\0001.JPG").Select
"les images sont nommée très aléatoirement certains avec que des chiffres d'autre un mélange de chiffres et de lettres !"
end sub
Là, il y a deux instructions distinctes que tu balances en vrac et dans le désordre. C'est mal barré pour écrire un programme Ca demande un peu plus de rigueur !
ok merci chef
j'ai finalement trouvé comment insérer les images dans une boucle voici le code:
Sub inserer_image()
rep = "C:\Users\Desktop\Fichier\ "
Fichier = Dir(rep & "*.jpg")
i = 2
Do While Fichier <> ""
Cells(i, 3).Value = Fichier
Cells(i, 3).Select
Set Image = ActiveSheet.Pictures.Insert(re p & Fichier)
Image.Name = Fichier
i = i + 1
Fichier = Dir
Loop
End Sub
Seulement je ne sais pas mettre les images avec une dimensions forcé genre 70*70 et centrer sur la cellule (horizontalement et verticalement)
Pouvez vous m'aider?
il y aquelques incohérences dans ton code mais bon...
Fais la manip "à la main" pour une seule image en mode enregistrement de macro. Tu auras le code nécessaire.
Finalement j’y suis arrivée avec votre aide seulement il me manque un dernier éléments pour finaliser mon projet
Voila le propos : j’ai nommé toutes mes images que je souhaite importer.
Toute les référence de mes images sont en colonne B et je souhaite que les images importés se place en face des des référence en colonne C plus précisément 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
Est t-il possible de faire cela ?
Remplace cette ligne :
parCode:Fichier = Dir(rep & "*.jpg")
Code:Fichier = Dir(rep & cells(i,2).value & ".jpg")
j'ai essauyé malheureusement ça marche pas comme sa
Que contient précisément la colonne B, juste des noms de fichiers ou autre chose ?
je résume la colonne b contient les référence de produit exemple mpcus1,mpcus2,mpcus3...( il y en a plus de 2500).
J'ai nommé les images que je veux importer de la meme maniere donc suivant les référence de la colonne b.
Sachant que je n'ai pas toutes les images correspondant au référence de la colonne b je souhaite que la macro importe les images qu'il trouve donc correspondant aux référence de la colonne b et qu'il le place sur la meme ligne mais en colonne c
Ca ne répond pas à ma question ou alors c'est du Javanais !
quel est exactement ta question il faut bien d'exprimer pour qu'on te comprend bien
Reprend le fil des messages #12, #13 et #14
lis bien les 14 premier mots du message #15 ça répondra a ta question
