Insérer photo d'apres code

Bonjour le forum,

Je trouve pas alors voici ma question:

- Soit une fiche disons "client" qui serait éditée grâce a son code composé...

Comment du même code composé peut-on insérer, a un emplacement fixe, sa photo en bonne taille, qui bien sur serait dans un fichier sur le disque Dur ?

Ce qui revient a dire qu'a chaque nouveau code composé une nouvelle fiche apparaît avec tous les renseignements et la photo au bon format et au bon endroit.

La même question peut être faites avec une photo hébergée ?? mais bon, a partir du code !! je sais pas ??

merci de votre aide.

Edition: Par Mytå, déplacement de la ficelle

Salut Vazivoir et le forum

As-tu regardé le fichier proposée pas Alain0654 : Le fichier

La ficelle du fichier : https://www.excel-pratique.com/forum/viewtopic.php?t=67

Mytå

Bjour,

Oui.

je suis géné car je n'ai pas compris comment cela fonctionne en regard de ma demande.

Si tu veux bien m'éclairer.

je te remercie

Salut le forum

Une autre solution peut-être plus accessible et sans macro : Lien image dans une cellule

Mytå

Bsoir,

je te remercie, j'ai fais un progrès.

Cependant, je dois faire apparaitre une photo en fonction d'un numéro composé.

comme je demandais:

"- Soit une fiche disons "client" qui serait éditée grâce a son code composé...

Comment du même code composé peut-on insérer, a un emplacement fixe, sa photo en bonne taille, qui bien sur serait dans un fichier sur le disque Dur ? "

Est ce possible selon toi ? si oui, comment faire ?

d'avance merci.

Salut le forum

Ca manque d'information...

Le code composé est le nom de la photo ?

Si je te donnes se code tu ne sauras surement pas quoi en faire.

Sub Ajout_Image()
Dim NomImage As String
Dim Repertoire As String

On Error Resume Next
ActiveSheet.Shapes("Image 1").Cut
NomImage = Range("A1")
Repertoire = "C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\"
ActiveSheet.Pictures.Insert(Repertoire & NomImage & ".jpg").Select
Selection.Name = "Image 1"
Selection.ShapeRange.LockAspectRatio = msoFalse
With ActiveSheet.Shapes("Image 1")
    .Top = Range("C3").Top
    .Left = Range("C3").Left
    .Height = Range("C3:C13").Height
    .Width = Range("C3:F3").Width
End With
End Sub

Sinon reviens avec un début de fichier.

Mytå

Merci Myta,

Tu as raison, je te joins un fichier(rectifié pour la cause).

en D4 je compose le code client (c'est un numéro d'ordre dans un fichier)

ensuite tous les renseignements viennent d'une feuille "fichier"

J'ai besoin que la photo apparaisse aussi si possible à l'endroit indiqué et au bon format (ceci pour éviter de le faire manuellement) (s'il faut organiser le fichier "photo" d'une certaine manière, cela est possible)

Si tu as besoin de renseignements complémentaires, bien sur je te les donnes.

Je te remercie bcp

https://www.excel-pratique.com/~files/doc/COPIE_FICHIER_pr_Myta.xls

Salut Vazivoir et le forum

Ta photo pour la fiche mise en exemple (89), tu vas la chercher ou et quel

est son nom, afin de pouvoir te donner une solution.

Mytå

Bsoir et merci Myta de bien vouloir t'en occuper,

Chaque photo est différente bien sur.

Toutes les photos peuvent être dans un répertoire sur un DD différent d'ailleurs et chacune des photos peuvent être nommées comme tu le souhaites mais elles sont forcément différentes. ex: 89 = photo de GUILLOTIN 62 = photo de DUCHMOL etc....

En l'occurence dans mon exemple voici le chemin de la photo :

D:\PHOTOS du TENNIS (Toutes)\COMITE 2007-2008\ANDRE GUILLOTIN 11-11-07 (5)___OK.jpg

merci encore a+ de te lire

Salut le forum

Vazivoir une version à tester

https://www.excel-pratique.com/~files/doc/Image_Vazivoir.xls

Tu reviens si des problèmes

Mytå

Merci Myta,

Je suis sur que tu as fais un truc super, mais voila , moi,je ne suis pas "super", car j'apprends, et je ne demande que ça.

J'ai donc ouvert ton fichier et malgré que la photo soit bien à l'adresse que je t'ai indiqué, je n'ai rien vu comme photo apparaitre sur ma fiche !!

Bon normalement comme essai je devrai voir ?

Ensuite il me faudra tranférer sans doute la macro dans le vrai fichier mais on verra.

Si tu as la patience de me guider, je te remercie .

à te lire.

Salut Vazivoir et le forum

Tu as surement des problèmes au niveau des macros.

1.-Outils > Options > Sécurité > Sécurité des macros > Cocher moyen

2.-A l'ouverture du fichier Activer les macros

3.-Change la valeur de ta cellule(D4) et la photo devrait apparaitre

Mytå

Re Myta,

J'ai fais et refais maintes fois et je ne vois rien venir.

Le réglage etait deja sur moyen.

J'ai bien activé les macros

J'ai changé x fois le n°

et rien !!

que puis-je faire ?

merci

re Vazivoir

Le problème vient du nom de la photo ou du répertoire.

J'ai pris le nom et le prénom en concatener avec un joker *.jpg

Je ne vois pas le problème.

Mytå

P.S. Enregistre le fichier avant de le lancer (IE n'est pas Excellent)

Bjour,

Je suis sincèrement largué!!

J'ai essayé de tout vérifié en fonction de ce que tu dis mais je ne trouve pas!!

Le rep le fichier sont bons j'ai même fais un reenregistrement pour voir...

Le chemin semble bon..

Tu me parles de :

J'ai pris le nom et le prénom en concatener avec un joker *.jpg

tu as remarqué a ce sujet que la photo est identifiée avec le prénom d'abord .. je dis cela par hasard ??

Enfin j'utilises Mozilla sur un ordi et IE sur l'autre.

Subsidièrement peux tu me dire où doit apparaître la photo selon toi ?

merci encore de ton aide.

Bsoir le forum,

Bon, moi comme vous voyez je suis en rade!!

Si Myta est occupé, y a t -il qu'elqu'un qui peux me mettre sur une ou des pistes pour voir pourquoi ça marche pas ?? merci

C'est dommage d'en rester là car Myta semble sur de lui; Malheureusement, je m'en sors pas !!

je joins le fichier au cas ou:

https://www.excel-pratique.com/~files/doc/Image_Vazivoir_2_.xls

merci de votre aide

Salut Vazivoir et le forum

Je ne t'ai pas oublier, le problème vient du joker (*) qui ne fonctionne pas.

Pour la photo elle devrait apparaitre en I4:I5

Sois tu renomes tes photos ANDRE GUILLOTIN 11-11-07 (5)___OK.jpg en ANDRE GUILLOTIN.jpg

ou tu attends un peu et je tente de contourner le problème avec un recherche.

Mytå

Salut le forum

Une version qui devrait résoudre le problème : Le fichier

Mytå

Yooo!!

que c'est beau quand ça fonctionne......... super la photo apparaît.

Beau travail Myta.

Il me reste maintenant à copier les modules dans le vrai classeur n'est ce pas ?

il y aura t-il des modifs à faire ?

Bon je vais essayer déja de copier.

Merci

a+

Re le forum

Zazivoir, si les cellules restent les mêmes non.

Dans le module de la feuille la cellule D4 est le code que tu entres.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4")) Is Nothing Then
    Call Ajout_Image
End If
End Sub

Dans le module 1.

Mytå