Inserer des photos en fonction de son numero dans une celluleRésolu

Question

Bonsoir à tous,

Ma question n'est pas très clair car je ne savais pas comment la poser, mais je vous expliquer ce que je souhaite :

Je possède un tableau, chaque ligne de se tableau correspondent à un défaut, et fais donc l'objet d'un rapport.

A la fin de chaque ligne se trouve les numéro de photos associée a ce défaut.

Les photos sont stockées dans un dossier spécifiques.

j'ai créé un bouton nommé "créer fiche" (pour les rapports), je voudrais que les photo puisse s'ajouter dans leur cases respective sur les rapports mais je ne sais pas si cela est possible en VBA (bien que j'espère que oui), pourriez vous m'orienter à ce niveau ?

Je vous remercie tous pour votre aide

Bonne soirée

Whismeril · Answer

Bonsoir, voir ici
http://www.commentcamarche.net/forum/affich-31390609-insertion-et-generation-photos-legendes#1

niewbiesVBA · Answer

Merci mais je connais l'enregistreur de macro... mais mon probleme est lors de la génération du rapport...

ucfoutu · Answer

Bonjour,
J'ai des difficultés à tout saisir de ce que tu as exposé.
Qu'est ton "rapport" ? (une feuille Excel ? Autre (et quoi) ?) 
Si feuille Excel :
Quelle est ta difficulté ? ===>>>
- déterminer (pour la lire) la dernière colonne d'une ligne lue dans ton "tableau"  ?
- insérer dans une feuille Excel "Rapport" , à une cellule déterminée, une image dont tu connais le chemin complet ?
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

ce que nous attendons, ce sont les réponses précises, indispensables et purement techniques aux deux questions que je t'ai posées plus haut.
Par ailleurs : une image (photo) ne peut être identifiée que par un chemin d'accès (si fichier) ou par le contrôle qui la contient (si dans ton appli). Je ne comprends donc pas ce que tu veux dire par "son numéro".  Explique cela techniquement.

niewbiesVBA · Answer

Comment dire... 

Lorsque je fais mon inspection et que je trouve des défauts, je les prend en photo. et lorsque je rempli mon USF, je met les numero de ces photos dans leur textbox respective) (a ce stade ce ne sont que de simple numéro, elle n'ont aucun lien). 
Ensuite, en fin de journée, je transfert mes photos de ma carte memoire vers un dossier photo (leur numéro est identique).

Puis, je créé mes rapports, c'est à ce moment que je cherche une solution pour que les photos se mettent automatiquement dans mon rapport... et je ne sais pas comment procéder.

Est ce bon comme ça ? :)

ucfoutu · Answer

1) Ensuite, en fin de journée, je transfert mes photos de ma carte memoire vers un dossier photo (leur numéro est identique). 
 Si vers un dossier ===>>> tu as donc des noms de fichiers dans ce dossier. Si tu veux dire que ces noms de fichiers sont de simples numéros (tels 1, 2, 3, etc ...) ils n'en sont pas moins des NOMS (avec une extension). Et on s'y réfère en indiquant leur chemin d'accès (ex... C:\répertoire\dossier\2.jpg si le nom du fichier image est 2.jpg).
2) tu ne m'as toujours pas dit ce qu'étaient exactement :
- ton "tableau"
- ton "rapport"
3) Tu dis que tu mets le numéro de photo dans une textbox d'un userform. Ce qui y est mis n'y "vit" que pendant la session  ouverte. Ce numéro ne sera donc conservé en mémoire que si immédiatement inscrit sur une cellule d'une feuille de calcul, sur la ligne concernant l'inspection de tel produit. C'est alors, au moment de cette inscription, que tu peux adroitement mettre le chemin complet de cette image dans la cellule.
commence par cela.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Hé bien. 
Tu remplis donc le rapport d'un produit en lisant les cellules qui lui correspondant dans ton tableau et en :les copiant (sauf celle de la photo) là où tu veux dans ta feuille "rapport".
Quant à celle de la photo : si en cellule Y4,  tu connais son chemin d'accès :
Exemple : "C:	oto	iti\IMPG" & format(range("Y4").Value, "0000") & ".jpg"& "
correspondra au chemin "C:	oto	iti\IMPG0003.jpg si tu as 3 en cellule Y4
 Il ne te reste alors plus qu'à insérer dans ta feuille rapport un contrôle image (contrôle activex) à la propriété Picture duquel tu attribues ce chemin.

niewbiesVBA · Answer

Auriez-vous un exemple de code pour me permettre de démarrer, car j'avoue que je commence a me perdre.

Je vous remercie

ucfoutu · Answer

Exemple de code ?
Je ne vois vraiment pas comment je pourrais faire sans venir au-dessus de ton épaule et de ton clavier !
On va essayer :
1) Dans la feuille feuil1 d'un nouveau classeur nommé classeur1, mets ceci en cellule A1 : "toto" et en  cellule A2 : 4
et sauvegarde-le dans "C:\classeur1.xlsm" puis ferme-le

2) dans la feuille feuil1 d'un classeur classeur 2, insère un contrôle image nommé image1 cellule C5
et sauvegarde-le dans "c:\classeur2.xlsm" puis ferme-le 
3) mets une image nommée toto.0004.jpg" dans C:\

Dans une macro de ton classeur1 :
ATTENTION : j'ai écrit à main levée et sans rien pouvoir vérifier, sauf à écrire moi-même tout sur ma machine (classeurs, image, etc ..., ce que je ne vais tout de même pas faire !)

  dim tata As workbook  set tata = workbooks.open("c:\classeur2.xlsm")  with tata.worksheets("Feuil1")    .range("C1").value = range("A1").value    .image1.picture = loadpicture("C:	oto" & format(Range("A2").value, "0000") & ".jpg")  end with

Voilà un exemple. Il devrait "marcher". Analyse-le et comprends-le.
Aller plus loin serait impensable sans venir physiquement chez toi !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

niewbiesVBA · Answer

Merci pour cette aide, je vais travailler la dessus, ce sera bon école pour moi, et reviendrais te donner le résultat... je pense que je devrais m'en sortir car rien qu'en lisant le code, je me suis fais une idée de son fonctionnement...

petit mot pour rire... voulez vous mon adresse (je rigole biensure)...

Je vous remercie beaucoup...

Bonne soirée

ucfoutu · Answer

Bon ...
Je vois ce matin que j'ai mis un \ de trop dans :
loadpicture("C:	oto\" & format(Range("A2").value, "0000") & ".jpg")
 le second est bien sûr à supprimer 
J'avais par ailleurs oublié de mettre C1 entre guillemets et parenthèses ===>>> j'ai corrigé mon code plus haut
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

niewbiesVBA · Answer

Bonjour ucfoutu,

Désolé pour ce temps d'absence (les joies du travail en déplacements ainsi que les formations de dernière minute)... je me remet donc depuis aujourd'hui sur le code que vous m'avez fourni...

J'ai donc essayé de le mettre en place en suivant vos conseils, j'ai compris sont fonctionnement à quelques détails près...

Au niveau du nom de la photo :

mets une image nommée toto.0004.jpg" dans C:\ 

Je l'ai fais, mais lorsque je lance ma macro, il ne me trouve pas le fichier, à noter que les photos en question seront nommé ainsi :
102-00104 (le 102- change tous les jours sur l'appareil photo) et la suite est le numéro de photo

Ensuite, les entêtes de colonne sont Photo1 pour la photo n°1, photo2 pour la numéro 2 et ainsi de suite jusqu'à la numéro 5, de ce fait je placerais donc 5 contrôles Image

Pour l'histoire qu'il ne me trouve pas le fichier, j'ai modifier dans le format de cellule "A2" du classeur1 en nombre sans virgule, mais le résultat est le même... aurais-je mal compris certaines chose ?

Merci de votre patience

A bientôt

ucfoutu · Answer

Que t'affiche donc, dans l'exemple que je t'ai montré plus haut :
msgbox "C:	oto" & format(Range("A2").value, "0000") & ".jpg"
 ?

niewbiesVBA · Answer

Bonsoir ucfoutu,

Tout d'abord, je viens encore de faire preuve d'une nulité sans nom...

J'avais pour dis l'autre jour que cette commande était d'un pratique !!

Voici le retour de cette dernière :

C:\Users\moi\Documents	oto.jpg

il cherche donc un fichier nommé toto.jpg

Peut-être serait-ce toto.0004.jpg qui le dérangerait ?

Merci

ucfoutu · Answer

cela veut dire que rien n'est présent (vide) dans la cellule A2.
Cela peut arriver si le code est lancé depuis une autre feuille que celle dont la cellule A2 contient 4.
Pour éviter ce piège, force donc la main en imposant le nom de la bonne feulle. Imaginons que le nom de cette feuille soit "titi" ===>>
.image1.picture = loadpicture("C:	oto" & format(worksheets("titi").Range("A2").value, "0000") & ".jpg")
regarde ce que cela donne, maintenant et dis-moi

ucfoutu · Answer

on va même forcer encore un peu plus la main, ainsi :
  dim tata as Workbook, moi As Workbook  set moi = thisworkbook ' ===>>> le classeur de départ, donc   set tata = workbooks.open("c:\classeur1.xlsm")  with tata.worksheets("Feuil1")    .range("C1").value = moi.worksheets("titi").range("A1").value '=== je force la main ici     .image1.picture = loadpicture("C:	oto" & format(moi.worksheets("titi").range("A2").value, "0000") & ".jpg") ' ===>> et là  end with
remplace bien sûr titi par le nom de la feuille qui contient la cellule A2 où tu as écrit 4.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

niewbiesVBA · Answer

Bonjour ucfoutu,

Donc, je tiens à te remercier pour le code, je te retourne maintenant le resultat... (j'ai quand même cherché un peux en utilisant tes précieux conseils)

au départ le code ne fonctionnais toujours pas, j'ai donc retourné le code dans tous les sens et :

j'ai corrigé cette ligne :

set tata = workbooks.open("c:\classeur1.xlsm")
par
Set tata = Workbooks.Open("c:\Users\moi\Documents\classeur2.xlsm")

a partir de là il ne me trouvait toujours pas le fichier, j'ai donc placé le msgbox et, il m'as retourné toto0004.jpg et non toto.0004.jpg, j'ai alors renommé l'image en toto0004.jpg, maintenant le code fonctionne à merveille, le voici :

Private Sub CommandButton1_Click()Dim tata As Workbook, moi As WorkbookSet moi = ThisWorkbook  Set tata = Workbooks.Open("c:\Users\moi\Documents\classeur2.xlsm")  With tata.Worksheets("Feuil1")    .Range("C1").Value = moi.Worksheets("Feuil1").Range("A1").Value    .image1.Picture = LoadPicture("C:\Users\moi\Documents	oto" & Format(moi.Worksheets("Feuil1").Range("A2").Value, "0000") & ".jpg")  End WithEnd Sub

Voilà, donc maintenant, le code étant fonctionnel, il me reste plus qu'à l'adapter en lui faisant comprendre que c'est pour chaque ligne de la base BDD étant donné que chaque ligne correspond à un rapport... (je sens que c'est là que les choses vont se corser)

Merci pour tout, c'est vraiment très sympas de votre part

A très bientôt (puis-je garder ce fil ouvert, il peut encore être utile ;) )

ucfoutu · Answer

Non. Ferme-le maintenant, pour libérer cette discussion.
Il est utile tel quel.

niewbiesVBA · Answer

ucfoutu,

J'ai écris ce bout de code (pas encore testé)... est il de la bonne forme (voir si j'ai bien compris)

Sub creer_fiche_Click(Control As IRibboncontrol)Dim bdd As Workbook, fvierge As WorkbookDim rep As StringDim Classeurpath As StringDim Classeurphoto As StringDim accessibilite, inaccessibilite, accespart, accescom, faiencage, ecaillage, cloqgonf, eclatbeton, betonautre As StringDim niveau, atelier, SALLE1, SALLE2, betoncom, traversante, nontraversante, noncaracterisable, infiltrante, enreseau As StringDim sup1mm, inf1mm, emax, emaxsalle2, corrosion, pasdacier, acierapparent, naturelle, rougeatre, blanchatre As StringDim trace, pastrace, coulure, humidite, seche, efflorescence, aureole As StringDim nfiche, nb, chemin, salle1_3R, salle1_zone4, salle1_feu, salle1_ext, salle1_123 As StringDim salle2_3R, salle2_zone4, salle2_feu, salle2_ext, salle2_123, murN, murO, murS, murE, PLANCHER As StringDim RADIER, PLAFOND, POTEAU, POUTRE, INTERIEUR, remarques As String'chemin = Sheets("BDD").Range("AZV1").Value (en prévision, ne sert a rien pour le moment)nb = Sheets("BDD").Range("AZT1").Value'i est le nombre de fissures, la ligne de départ est 5, le nombre de fissures est n'ligne_fin = 5 + nb - 1ligne_fin = Cells.Find("*", Range("B1"), , , xlByRows, xlPrevious).Row  rep = Environ("USERPROFILE") & "\"  Classeurpath = rep & "\Documents\HagueInspection\Fvierge.xlsm  Classeurphoto = rep & "\Documents\HagueInspection\PhotosSet bdd = ThisWorkbookSet fvierge = Woorkbooks.open(Classeurpath) With fvierge.Worksheets("Fvierge")  For i = 5 To ligne_fin   'ici j'écris le code qui remet toutes les valeurs de BDD vers le Rapport   'Et le code qui mettra les photos au bon endroit   .image1.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BH" & i").Value, "0000") & ".jpg")   .image2.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BI" & i").Value, "0000") & ".jpg")   .image3.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BJ" & i").Value, "0000") & ".jpg")   .image4.Picture = LoadPicture(Classeurphoto & Format(bdd.Worksheets("BDD").Range("BK" & i").Value, "0000") & ".jpg")End WithNext iEnd Sub

Merci

ucfoutu · Answer

Ben ...
Pour te répondre avec certitude, il me faudrait avoir tout entre les mains. Ce que je n'ai pas !
Je ne peux donc que faire quelques remarques :
- Dès lors que la variable rep contient (puisque tu l'y as mis) un "\", tes chemins classeurpath et classeurphoto  seront nécessairement faux, puisque contenant deux "\" successifs !
La simple utilisation de msgbox classeurpath et msgbox classeurphoto mettrait cet aspect en évidence.
- je note au passage que ton chemin classeurphoto, qui semble être celui d'un classeur, est sans extension !
- pourquoi, d'ailleurs, définir Rep ?
Ouvre ton aide VBA à la rubrique Application.path ===>> cette propriété te retourne le chemin du classeur concerné. Si tes deux classeurs sont tout simplement mis dans le même dossier (qui sera précisément application.path)
Procéder ainsi t'évitera de nombreuses mésaventures, notamment en cas de distribution de ton projet.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Inserer des photos en fonction de son numero dans une cellule

23 réponses

Votre réponse

Discussions similaires