XL 2013 Inserer images

[maval]

Bonjour

J'ai sur ma feuille "Liste" deux listes déroulante pour choisir:

1° le continent "G2"
2° le pays "G3"

A l'aide de mon bouton j'ouvre le dossier correspondant au pays ou sont logé mes images.jpg ainsi que les noms des images.

J'aimerais pouvoir copier toutes les images de ce répertoire et les coller dans la feuille nommé "Modele" E5:E69 et G5:G69 en sachant que les images sont des billets et que l'on a recto verso.


Je vous remercie

 

[sousou]

bonjour
il faudrait savoir:
1/ dans tes dossiers, y a t-il que des images de billets?
2/ Quel plan de numérotation pour ces images (Recto?, Verso?)
3/ les tailles des images (Constantes? proportionH/v??

 

[maval]

Bonjour sousou

1/ Non il y a des images en JPg et des fichiers
2/Les non se compose comme ceci:
afrique_occidentale_francaise_1_franc_1944_recto.jpg
afrique_occidentale_francaise_1_franc_1944_verso;jpg3/
Non les tailles des images dépend du pays
Voila je me tiens à ta disposirion si tu a besoin
@+

 

[maval]

Voila a quoi ressemble les billets

 

[sousou]

Re
Voici un essai joint.
réinitialise dans le programme ta variable dossier, car pour mes essais je l'ai changée.
A voir si ça fonctionne pour la taille des images .Tu devras peut-être améliorer le traitement.
Ici j'adapte la taille des images à la taille de tes cellules.
J'ai oublié de mettre des annotations!

 

[maval]

Re,

J'ai changer la variable dossier sa ouvre le dossier et rien peut être que j'ai omis quelque chose?
@+

 

[sousou]

Re
As-tu supprimer cette ligne
'ThisWorkbook.FollowHyperlink Dossier

 

[maval]

Re,

Et bien oui puis j'ai supprimer ton adresse

 

[sousou]

Etonnant car pour mois cela fonctionne!
Essai de mettre des points d’arrêts pour voir ce qui se passe.
Voici le fichier tel qu'il devrait fonctionner.
Tu peux supprimer le on error, car ça peux cacher des dysfonctionnements...

 

[maval]

Re

Attend tu fait quoi parce que si ont fait la même chose pour mettre les images, je vais sur la feuille "liste" je recherche sur la liste déroulante le continent et après le pays.
@

 

[sousou]

Oui c'est cela, sauf que dans mon cas je ne traite pas le dossier comme toi, je n'ai qu'un dossier.
Je ne fait que clique sur le bouton
1: vérifie ton chemin de dossier en mettant un msgbox dossier
2 suis le déroulement de la procédure en pas à pas

 

[maval]

Re,
Quand je demande à la liste déroulante 1°Afrique 2° Afrique Occidentale Française.
Quand je click sur le bouton la msgbox dossier: elle me donne exactement le chemin:
J:\Dossier_Monnaies\continent\Afrique Occidentale Française
@+

 

[sousou]

Essai d'ajouter un "\" comme ci-dessous
dossier = "J:\Dossier_Monnaies\continent\" & ActiveSheet.Range("G2") & "\" & ActiveSheet.Range("G3") & "\"
dossier devrait être égal à
J:\Dossier_Monnaies\continent\Afrique Occidentale Française\

 

[maval]

re

Ahhh beaucoup mieux la j'ai bien les images mais pas au bon endroit la première est au "E6" c'est à dire entre les case sa doit être juste une petite modif

 

[sousou]

Ouai! mon calcul de la position d'image n'est pas bon
essai comme ceci.
La modif concerne tout ce qui concerne nimage maintenant posimage

Sub copier(dossier)
posimage = 0
fich = Dir(dossier)
While fich <> "" 'pour chaque fichier terminant par recto.jpg
'place l'image
If LCase(Right(fich, 9)) = "recto.jpg" Then
Call place(dossier & fich, posimage)
posimage = posimage + 2
End If
fich = Dir

Wend
End Sub


Sub place(fich, posimage)
With Sheets("modele")
.Activate
'calcul de la cellule ou ranger l'image
col = 5
lg = posimage + 5
Cells(lg, col).Select
'insersion de l'image
Set img = .Pictures.Insert(fich)
'Redimensionnement
img.Width = ActiveCell.Width
img.Height = ActiveCell.Height

'Même procédure pour l'image verso
fichv = Left(fich, Len(fich) - 9) & "verso.jpg"
col = 7
.Cells(lg, col).Select
Set img = .Pictures.Insert(fich)
img.Width = ActiveCell.Width
img.Height = ActiveCell.Height
End With
End Sub