Incertion image dans un fichier

Bonjour,

J'aimerai pouvoir afficher une image dans une formulaire excel, image qui change selon un nom dans une cellule de base, ou j'introduit les noms des images que j'ai dans un fichier sur mon disque dur.

Cette image peuvent changer pour chaque fiche excel, elle ont toutes les mêmes dimensions à la base.

Merci de m'aider j'ai chercher sur plusieur forum et j'ai rien trouvé.

Merci

Alain

bonjour

combien d'image ?

il existe une solution sans vba mais pour une question de poids de fichier il vaut mieux etre raisonnable

dit quoi

cordialement

j'ai une base de donnée pour inventorier mes trains miniature, j'ai une fiche par loco ou wagon j'aimerai quand la fiche correspondant dans une cellule apparaisse l'image selon le nom qui ce trouve dans un cellule que j'ai nomer image. c'est une image par fiche.

Pour explication complette:

sur l'onglet cartothèque j'affiche la carte correspondante a mon numéro d'inventaire, dans la cellule photos il y as le nom avec le chemin ou ce trouve l'image. ensuite je clic sur imprimer la fiche et je passe en consultation ou la j'aimerai que l'image s'affiche comme le model de la loco orange et blan.

autrement j'ai préparer un lien FRM qui ouvre une mise en page VB,

1) j'arrive pas à afficher les données

2) Nom plus l'image

Comment faire?

Je mais ma base de donnee en PJ.

Merci

re

je ne comprend pas grand chose dans ton systeme

mais si tu prends le temps de te confectionner une banque de photo sur une feuille ajoutée dans le meme fichier

avec une cellule n° d'inventaire et dans la cellule d'a coté la photo : voici une solution simple

j'ai adapté la demo pour 2 photos seulement donc 2 n°d'inventaire

cordialement

Hello,

Merci pour l'aide.

C'est pas ca que je cherche exactement

Je recommence:

Page Menu --> je choisi Nouvelle fiche ou consultation fiche

Ex: Nouvelle fiche:

J'introduit les valeurs dans les cellules de la colone "C" libre ou menu déroulent.

en cellule C25 j'aimerai introduire le nom de la photo qui correspond au model.

Ex: RE_4/4_Swissexpresse.JPG !! ATTENTION je ne veux pas voir l'image seulement indiquer le nom.!!

Toutes les photos seront dans un dossier sur mon disque dure au même format.

Ensuite je fais enregistrer Fiche ce qui me gener un numéro d'inventaire CFI.

Page Cartothèque

je choisi le numéro d'inventaire du modéle qui m'interesse.

les valeurs s'affiche dans le formulaire

De la j'aimerai pouvoir Imprimer la fiche, soit directement avec le bouton imprimer ou via le bouton FRM.

Bouton "Imprimer la fiche" --> Rempli les cellules de l'onglet Consultation

Bouton "FRM" ouvre visuale basic (le remplissage des valeur ne fonctionne pas je sais pas comment faire)

Pour ma base de donnée j'ai besoin du bouton Imprimer ou FRM pas des deux!!. J'ai crée le FRM si c'est plus simple pour afficher une photo que par excel.

Onglet consultations --> visualise la fiche avec une mise en page pour impression en A4 paysage. Et c'est dans ce formulaire que j'aimerai que la photo s'affiche.

Voila je sais pas si c'est possible.

Alors j'ai crée le bouton "FRM" pour ouvrire VB si c'est plus facile pour les photos.

Merci de m'aider je séche sur la solution.

Alain

Bonsoir

A tester

Bonjour Banzai64,

Merci pour l'aide sur ma base de donnée.

Malheureusement ca fonctionne pas chez moi je sais pas pourquoi ca me dit image enexitante.

J'ai mis le chemin ou ce trouve les images sur mon pc.

c:\photos\1.jpg

Quand je fais imprimer j'ai le message d'erreure "image enexistante"

Je sais pas ou est l'erreur.

Si tu as un ptit coup pour m'aider c'est cool merci, Bonne journée

Alain

Bonjour

ce n'est pas le chemin qu'il faut marquer (dans l'exemple que je t'ai fournit)

C'est juste le nom de l'image (exemple : Loco Bwxyz 893)

L'image doit être dans le même répertoire du programme principal dans un dossier nommé "Trains"

Bonne journée

Problème:

je n'ai pas les droits d'auteur sur le PC, et je ne peut enregistrer un fichier à la source. Et il possible de corriger dans excel l'emplacement du dossier photos?

Merci

Alain

Bonjour

Bien sur tu peux modifier le chemin de stockage

Il faut changer dans la procédure Sub imprimer_fiche() le chemin

  '
  ' Répertoire à actualiser
  '
  Image = ThisWorkbook.Path & "\Trains\" & Range("C25")

Il faut que tu remplaces ThisWorkbook.Path & "\Trains\" par ton chemin

Sinon si dans la colonne "Photos" tu y stockes le chemin complet tu peux juste faire

  ' Répertoire à actualiser
  '
  Image =  Range("C25")

Bonne journée

Oupi Merci Merci Merci

C'est du tonner de dieu enfin les images oupi.

UN GRAND MERCI MERCI MERCI.

heu je peut abuser un ptit coup encore??

il y as possibliter dans ta macro de centrer les images sur la page consultations?

Merci milles fois de l'aide

Bonjour

Oui il est possible (je pense) de centrer l'image, il suffit de connaitre ses dimensions et les dimensions de la plage de réception

Si tu peux joindre 2-3 images afin de faire des tests (soit ici sur le forum ou par Mail (par l'intermédiaire du forum))

A suivre

Hello voici les photos.

Un grand merci de l'aide que tu m'a apporter sur ma base de données.

@+

Alain

Bonsoir

remplaces cette partie du code dans Sub imprimer_fiche()

Zone de réception : H2:K16

    
Sub imprimer_fiche()
.
.
'
' Partie à remplacer
'
    On Error Resume Next
    With .Pictures.Insert(Image).ShapeRange
      .Left = Ws.Range("H2").Left + Ws.Range("H2:K2").Width / 2 - .Width / 2
      .Top = Ws.Range("H2").Top + Ws.Range("H2:H16").Height / 2 - .Height / 2
    End With
    If Err.Number > 0 Then
      MsgBox "Image inexistante"
    End If
'
' Fin de la partie à remplacer
'
    Application.CutCopyMode = False
    .Select

  End With
End Sub

Bonne soirée

T'ai un dieu d'excel toi.

Tu le connais sur le bout des doigts?

MERCI MERCI MERCI MERCI.

Je sais je vais abuser, j'aimerai modifier un truc dans la recherche sur la page cartothèque tu peut m'aider encore un ptit coup?

Pour recherche une fiche dans la base de donnée j'ai crée les 2 fleches +1 -1 dans la recherche. j'aimerai aussi avoir une case ou je peut directement taper le numéro et que les données s'affiche c'est possible?

Merci.

Si ca t'embete pas de souci je me contenterai des flèches.

ENCORE UN GRAND MERCI pour l'aide.

Bonsoir

Juste une idée comme ça

Pourquoi ne pas redéfinir param_num_ligne

Tu le places dans la page "Cartotèque" (je le verrai bien en C4)

param_num_ligne =Cartothèque!$C$4

Ensuite (pas obligatoire) pour gérer les limites il faudrait passer par une petite macro évènementielle

A toi de voir si ce cela te convient ou si tu as une autre vision de la choooose

Bonne soirée

Hello merci pour la réponse malheureusement le numéro n'ai pas le même que mon numéro d'inventaire. Et de plus il est à l'inverse des entrées dans la base de donnée.

Merci quand même pour l'aide apporter au reste de la BD.

Encore un grand merci

Bonne journée

Alain