EXCEL 2007 - INSERER UNE IMAGE Résolu/Fermé

Question

Bonjour,

Sous EXCEL 2007, je cherche desesperement à insérer une image par VBA dans une feuille et cellule en particulier. j'ai mis un bouton sur la feuil1 et assigner la macro suivante:

j'ai essayé cela:

Sub TestInsertPicture()
InsertPictureInRange "D:\Documents and Settings\anna\Desktop\OW", _
        Range("B21"), True, True

End Sub

mais cela ne marche pas...
merci pour votre aide
Anna

Mike-31 · Answer

Salut,

Expliques ce que tu veux exactement faire, parce que pour mettre un photo dans une cellule, tu n'as pas besoin de VBA, et si tu veux afficher une image en fonction du contenu d'une cellule non plus

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

bonjour mike, merci de ta réponse. Einstein avait raison, par conséquent je vais expliquer un peu plus mon souci?.

J'ai mis un bouton dans ma feuil1 qui devrait faire cela:

- aller chercher l'image jpg dans le même repertoir que le fichier excel présent
- et la coller dans la cellule B21 de toutes les autres feuilles de mon classeur.

Pour le moment j'ai trouvé cela sur le net (auteur de la macro: JBOIGONTIER)

Sub ImportImages()
  repertoire = ThisWorkbook.Path & "\"
  nf = Dir(repertoire & "*.jpg") ' premier fichier
  Workbook.Sheets("AENA").cell("b21").Select
  Do While nf <> ""
    Set monimage = ActiveSheet.Pictures.Insert(nf)
    monimage.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
    ActiveCell.EntireRow.RowHeight = monimage.Height + 0
    nf = Dir ' suivant
    ActiveCell.Offset(1, 0).Select
  Loop
End Sub

j'ai modifier la ligne en gras pour essayer de selectionner une feuille en particulier et une cellule. Mais cela ne fonctionne pas. 

Merci pour votre aide

Anna

Anna · Answer

Bon j'ai résolou le souci, en partie:

Sub ImportImages()
  repertoire = ThisWorkbook.Path & "\"
  nf = Dir(repertoire & "*.jpg") ' premier fichier
  Sheets("AENA").Range("b21:C21").Select
  Do While nf <> ""
    Set monimage = ActiveSheet.Pictures.Insert(nf)
    monimage.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
    ActiveCell.EntireRow.RowHeight = monimage.Height + 0
    nf = Dir ' suivant
    ActiveCell.Offset(1, 0).Select
  Loop
End Sub

le souci maintenant c'est que l'image ne se place pas en B21:C21 !!!
vous savez?

Anna

Mike-31 · Answer

Re,

Pourquoi as tu mis ("b21:C21") si tu souhaites la coller en B21 ("B21") 

Sheets("AENA").Range("B21") .Select 


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

Bon ben en fait cela a marché une fois... bizarre...

maintenant erreur : Select method range class failed

Anna · Answer

merci pour l'info mike...

Mais je ne comprends pas pourquoi cela a marché une fois et la fois d'après j'ai une erreur (post ci-dessus) alors qu le code n'a pas changé???

Mike-31 · Answer

Tu dois avoir une erreur dans une ligne, ou ligne pas à sa place dans le code, exécutes ton code pas à pas détaillé pour trouver la ligne qui bloque

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

Sheets("AENA").Range("b21").Select 

c'est la que ca coince...

Anna · Answer

en fait le code marche qd je suis sur la feuille "AENA" mais ne marche pas quand je suis sur la feuil1 (la ou il y a mon bouton pour activer la macro...

a l'aide je pete un cable!

Mike-31 · Answer

Décompose cette ligne 

Sheets("AENA").Range("b21").Select 


comme cela

Sheets("AENA").Select
Range("b21").Select 

Tiens moi au courant

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

ça marche! c'était vraiment tou bête... je m'en souviendrai!
merci mike.

Reste que l'image ne se colle pas en B21...

Mike-31 · Answer

Alors mets ce code à la place des deux lignes que je t'ai donné, c'est plus propre

Application.Goto Sheets("AENA").Range("B21")


Mets ton statut en résolu, ou demande à la modération de le faire pour toi clic sur le triangle jaune en haut de ton post

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

Merci mike mais mon szouci n'est que partiellement resolu!

l'image se colle bien dans la feuille AENA, mais pas en B21 ! (j'ai beau changer la range dans la macro ca ne change rien de toute facon...)

Des idées?

Anna

Mike-31 · Answer

si ton fichier n'est pas confidentiel, mets une copie ainsi qu'une image dans un dossier, clic dessus, envoyer vers/dossier compressé et joint le lien pour le récupéter dans un post avec ce lien ou dans un message privé, clic sur mon pseudo et message privé

https://www.cjoint.com/

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

Merci mike pour la proposition c'est très gentil mais le fichier est confidentiel et cela prendrait bcp de temps pour le rendre anonyme...

Mike-31 · Answer

Re,

Une autre approche, testes ce code, lorsque tu es dans le visual, même ta feuille nommé AENA garde sa denomination Excel et porte le Nom par exemple Feuil3(AENA), dans le code cidessous change Feuil2 par Feuilxxx

Sub test()
    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
     L = Feuil2.Range("B21").Left
    T = Feuil2.Range("B21").Top
    W = Feuil2.Range("B21").Width
    H = Feuil2.Range("B21").Height
    Image = Application.GetOpenFilename
    If Image <> False Then
    Feuil2.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

Merci mike mais je ne sais pas utiliser ce code, je ne le comprends pas...

Comment va t'il chercher mon image?

Mike-31 · Answer

Ce code sélectionne ta cellule et ouvre la boite de dialogue Fichier Ouvrir, à toi de sélectionner la photo.

Il est possible d'ajouter la sélection de la cellule cible dans une cellule par exemple la A1 dans laquelle on saisira B21 (ce qui ne rend pad le code macro figé sur la cellule B21 et donc en ressaisissant une autre référence en A1 le code s'exécutera sur la nouvelle référence etc ...) , il est également possible de paramétrer la taille de la ligne /colonne soit cellule de réception de la photo

Dans la soirée je regarde d'apporter l'équivalent afin d'afficher la photo qui se trouve dans le même répertoire

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

merci mike pour l'interet que tu porte à mo souci.

j'ai changé un peu mon code:

Sub ImportImages()

repertoire = ThisWorkbook.Path & "\"
nf = Dir(repertoire & "*.jpg") ' premier fichier
Sheets("AENA").Select
Range("b21").Select
Set monimage = ActiveSheet.Pictures.Insert(nf)
End Sub

voila... je suis pas experte comme tu peux le voir... mais j'essaie de bidouiller  :-)

Cette macro fonctionne bien, mais l'image ne se colle pas ou je voudrais (en B21, ou au dessus!, pas besoin de resizer ou de la mettre ailleurs...)

Merci

Mike-31 · Answer

Re,


J'ai cette ligne de ton code qui plante, comme je n'ai pas le code initial pourrait tu me dire
l'image que tu souhaites coller en B21 sur la feuille AENA, est elle dans le même répertoire, et à quoi correspond Pictures dans la ligne de ton code (une page de ton dossier nommé pictures !

et monimage es ce une plage nommée, j'ai l'inpression qu'il manque une variable, ou mal définie

Set monimage = ActiveSheet.Pictures.Insert(nf)

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

michel_m · Answer

bonjour,

j'ai ça qui trainait sur une étagère mais créé en 2003 (tu clique sue la cellule orange)... peut-être que sur 2007
https://www.cjoint.com/?gtsCUOQzuQ

Edit: 18:30 changé de lien (erreur dans le nom de la photo)

Mike-31 · Answer

Salut Michel_m

Merci de te joindre à cette discussion, c'est une autre approche de code, on pourrait en écrire des dizaines, mais le problème de Anna, attaché à ce code

Sub ImportImages() 
repertoire = ThisWorkbook.Path & "\" 
nf = Dir(repertoire & "*.jpg") ' premier fichier 
Workbook.Sheets("AENA").cell("b21").Select 
Do While nf <> "" 
Set monimage = ActiveSheet.Pictures.Insert(nf) 
monimage.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image 
ActiveCell.EntireRow.RowHeight = monimage.Height + 0 
nf = Dir ' suivant 
ActiveCell.Offset(1, 0).Select 
Loop 
End Sub 

elle l' a modifié ci-dessous, chez elle il à l'air de fonctionner, a part que l'image se colle de façon anarchique alors que chez moi je n'arive pas à afficher l'image, je pense à un problème de variable mais j'avoue que je fatigue

Sub ImportImages() 
repertoire = ThisWorkbook.Path & "\" 
nf = Dir(repertoire & "*.jpg") ' premier fichier 
Sheets("AENA").Select 
Range("b21").Select 
Set monimage = ActiveSheet.Pictures.Insert(nf) 
End Sub 

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

michel_m · Answer

excusez moi d'avoir dérangé....

michel_m · Answer

tout simplement j'ai lu la demande initiale:
je cherche  à insérer une image par VBA dans une feuille et cellule en particulier

je croyais que mon truc répondait  à la demande ( clic sur une cellule au lieu d'un bouton) sur XL 2003, c'est tout, alors je me suis dit que peut-^etre ca pourrait marcher sur 2007...

comme apparemment c'était pas la demande, donc j'avais foutu le B. et je  m'en suis excusé, pas de quoi s'inquiéter...

Mike-31 · Answer

Re Michel_m,

L’exemple que tu as donné, comme celui que j'ai donné d'ailleurs fonctionnent parfaitement, ce qui m'énerve, c'est que le code récupéré par Anna marche aléatoirement sur sa machine et ne pas pouvoir afficher quoi que ce soit sur ma machine et surtout trouver l'erreur.

C'est pour cela également que je lui avais demandé de mettre un petit fichier montage sur le forum.

Demain je ne suis pas là, mais il faut trouver l'erreur


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

oula je vois que mon souci a interessé! Merci a vous deux!

pour le moment j'en suis à ce stade: j'ai modifié mon code pour intégrer l'image, et la placer sur la cellule B21. Cela a marché durant une heure, puis je l'ai enregristré en format 2007, et ce matin le MEME CODE ne fonctionne plus et bloque a la ligne en gras ci-dessous.

Quelques précisions: l'image que je souhaite intégrer est placée dans le meme repertoire que le classeur EXCEL, d'où repertoire = ThisWorkbook.Path & "\"  et nf = Dir(repertoire & "*.jpg").

voici la dernière version du code (avec la ligne qui bloque maintenant, en gras):

Sub ImportImages()
Application.ScreenUpdating = False
repertoire = ThisWorkbook.Path & "\"
nf = Dir(repertoire & "*.jpg")
Sheets("AENA").Select
Set monimage = ActiveSheet.Pictures.Insert(nf)
With monimage
.Top = Sheets("AENA").Range("B21").Top
.Left = Sheets("AENA").Range("B21").Left
End With
Application.ScreenUpdating = True
End Sub

je le repete: ce code a déjà fonctionné mais ne fonctionne plus!!! pourquoi?????

Mike-31 · Answer

Salut,

Pour ne rien te cacher, chez moi c'est pareil quelque soit la version Excel, lorsque le code marche, et sans raison il se met à planter et toujours à la même ligne. Sincèrement tu devrais regarder le code proposé par Michel_m sur le post 21 ou le mien sur le post 16 qu'il suffira d'adapter mais rien de bien important, en plus il est possible de paramétrer facilement la taille de la cellule cible et éventuellement choisir son image

Enfin tu vois
A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

aarrgghh !! je me demandes quand pourquoi ce code fonctionne toute un après midi et subitement ca bloque...!!!

Bon je vais me pencher sur vos proposition de codes... Merci bcp! mais je suis qd meme très ennuyée que le mien soit si capricieux!!

Si qq un à une idée du pourquoi... Merci

Anna

Mike-31 · Answer

Salut,

regardes ce code, il t'ouvre Mes documents pour un éventail de choix important, mais peut se limiter à une adresse ciblée ou dans le genre de ton code pour incruster l'image contenue dans le répertoire, d'entrée dans ce code deux lignes sont inutile qui servent à dimensionner la cellule de réception

Sub Insertion_Image_Aux_Dimension_Cellule()
    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
                        'Dimensionne la cellule
                        
      ActiveCell.Offset().RowHeight = 63.75
ActiveCell.Offset().ColumnWidth = 13.86
                  'ou
   ' Rows("21:21").RowHeight = 63.75
    'Columns("B:B").ColumnWidth = 13.86
                        'sélectionne la cellule de réception
    L = Feuil2.Range("B21").Left
    T = Feuil2.Range("B21").Top
    W = Feuil2.Range("B21").Width
    H = Feuil2.Range("B21").Height
    Image = Application.GetOpenFilename
    If Image <> False Then
    Feuil2.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Anna · Answer

Merci mike, je vais essayer dans la journée. Je te tiens au courant...

Merci encore

Anna

Anna · Answer

merci a mike et michel.

j'ai resolu mon souci...

Anna

AstouWAR · Answer

Je cherche à visualiser à l'impression les commentaires insérés sur feuille de calcul Excel, comment m'y prendre

Mike-31 · Answer

Salut,

Tu aurais du ouvrir ta propre discussion et non relancer une ancienne qui est en statut résolu.
enfin regarde si c'est ce que tu cherches

Sous Excel 2007 et 2010 
Onglet Mise en Mise en page/module mise en page soit on clic sur Imprimer les titres soit on active l'assistant de mise en page grâce au petit carré avec la flèche en bas à droite du module. 
Dans l'assistant, onglet Feuille on trouve Commentaire, choisir le mode d'impression en fin de page ou tel qu'ils sont sur la page, dans ce cas, ils doivent être affichés sur la feuille. 

Sous Excel 2003 il faut passer par Fichier/Mise en page 

ATTENTION DE DESACTIVER CETTE FONCTION SINON LES COMMENTAIRES SERONT AUTOMATIQUEMENT IMPRIMES A CHAQUE IMPRESSION.