Bonjour, cliquez-ici pour vous inscrire et participer au forum.
  • Login:



+ Répondre à la discussion
Page 1 sur 2 1 DernièreDernière
Affichage des résultats 1 à 15 sur 19

Images-excel VBA 2016

  1. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Images-excel VBA 2016

    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.

    -----

     


    • Publicité



  2. cherbe

    Date d'inscription
    janvier 2015
    Localisation
    Quelque part en Lorraine
    Messages
    1 607

    Re : Images-excel VBA 2016

    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 Pape a probablement un ordinateur cantique.
     

  3. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    le code donne:
    ActiveSheet.Pictures.Insert ("C:\Users\Desktop\Pictures\Do ssier photo\0001.JPG").Select
     

  4. cherbe

    Date d'inscription
    janvier 2015
    Localisation
    Quelque part en Lorraine
    Messages
    1 607

    Re : Images-excel VBA 2016

    Citation Envoyé par okyanus Voir le message
    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.
    au passage, dis-nous comment sont numérotées les images.
    Le Pape a probablement un ordinateur cantique.
     

  5. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    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 !
     


    • Publicité



  6. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    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
     

  7. cherbe

    Date d'inscription
    janvier 2015
    Localisation
    Quelque part en Lorraine
    Messages
    1 607

    Re : Images-excel VBA 2016

    Citation Envoyé par okyanus Voir le message
    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
    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 !
    Le Pape a probablement un ordinateur cantique.
     

  8. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    ok merci chef
     

  9. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    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?
     

  10. cherbe

    Date d'inscription
    janvier 2015
    Localisation
    Quelque part en Lorraine
    Messages
    1 607

    Re : Images-excel VBA 2016

    il y aquelques incohérences dans ton code mais bon...
    Citation Envoyé par okyanus Voir le message
    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?
    Fais la manip "à la main" pour une seule image en mode enregistrement de macro. Tu auras le code nécessaire.
    Le Pape a probablement un ordinateur cantique.
     

  11. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    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 ?
     

  12. cherbe

    Date d'inscription
    janvier 2015
    Localisation
    Quelque part en Lorraine
    Messages
    1 607

    Re : Images-excel VBA 2016

    Citation Envoyé par okyanus Voir le message
    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
    Remplace cette ligne :
    Code:
    Fichier = Dir(rep & "*.jpg")
    par
    Code:
    Fichier = Dir(rep & cells(i,2).value & ".jpg")
    Le Pape a probablement un ordinateur cantique.
     

  13. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    j'ai essauyé malheureusement ça marche pas comme sa
     

  14. cherbe

    Date d'inscription
    janvier 2015
    Localisation
    Quelque part en Lorraine
    Messages
    1 607

    Re : Images-excel VBA 2016

    Que contient précisément la colonne B, juste des noms de fichiers ou autre chose ?
    Le Pape a probablement un ordinateur cantique.
     

  15. okyanus

    Date d'inscription
    février 2014
    Messages
    11

    Re : Images-excel VBA 2016

    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
     


    • Publicité




Poursuivez votre recherche :




Sur le même thème :




 

Discussions similaires

  1. Actu - Les plus belles images de science de 2016
    Par RSSBot dans le forum Commentez les actus, dossiers et définitions
    Réponses: 0
    Dernier message: 30/12/2016, 15h20
  2. Transit de Mercure devant le soleil, 9 mai 2016 : vos images
    Par lmdlg dans le forum Matériel astronomique et photos d'amateurs
    Réponses: 10
    Dernier message: 10/05/2016, 21h36
  3. Excel - Insérer des images sur une feuille selon des cases cochées sur une autre
    Par diesel52 dans le forum Logiciel - Software - Open Source
    Réponses: 8
    Dernier message: 24/09/2013, 17h53
  4. Images pdf (ou jpg) et base de données excel
    Par charlie1712 dans le forum Logiciel - Software - Open Source
    Réponses: 4
    Dernier message: 15/02/2012, 08h28