captation des noms de photos

[olivier30000]

Bonjour,
Je vous explique ce que je souhaite réaliser.
Premièrement je suis, par rapport à vous un débutant, tenez compte de cette information dans vos réponses.
J'ai un fichier Excel, avec 15 colonnes et 2000 lignes, toutes sont remplies correctement.
Il se présente comme ceci :
Réf, produit, description, etc. et photo1 jusqu'à photo10.
Voici ma question:
Je dois remplir les références des photos, dont le dossier se situe dans mon dossier image, attention pas les photos, juste le nom la photo, ex : blabla.jpg. comment importer le nom de la photo et venir le mettre dans la bonne cellule de mon tableau Excel. Par réf, j'ai 5 à 6 photos à venir insérer ?
J'ai parcouru le forum et j'ai rien trouvé qui puisse me renseigner, évidement, ne connaissant pas la solution, il m'est difficile de trouver la bonne solution.
Merci de vos réponses.
Cordialement
Olivier

 

[morinn]

Re : captation des noms de photos

Je n'ai pas tout compris à ton objectif.

En A1 par exemple tu as la référence "125125" et un dossier image nommé 125125 dans lequel tu as des photos et tu veux que le nom de ces photos apparaissent dans la ligne 1 selon la référence 125125 ?

 

[olivier30000]

Re : captation des noms de photos

oui, c'est à peu prêt cela,

Ref	Nom du produit	description	etc,	etc,	image1,	image2	image3				image10
1212	machin bleu	super pour été	etc,	ect,	1212machinbleu(1).jpg	1212machinbleu(2).jpg	1212machinbleu(3).jpg				etc
1214	machin red	super pour été	etc	etc	1214machinred(1).jpg	etc	etc
1215	etc	etc	etc
1234	etc	etc	etc

je voudrais incorporer les références des photos, qui sont dans mon dossier image sur l'ordinateur, dans les cellules de l'article écrit en rouge sur le tableau d'exemple, ci-dessus.
Dans mon dossier d'image, les références des photos portent le nom de l'article, comme dans le tableau ci-dessus, et tout classé par ordre alphabétique.

 

[morinn]

Re : captation des noms de photos

Il faut créer une macro qui va récupérer les noms donc je te donne la base a adaptée

'liste des fichiers 
Set fs = Application.FileSearch 
Var = "c:\Mes Documents\Mes Images\" 
With fs 
.LookIn = Var 
.Filename = "*.jpg" 

If .Execute > 0 Then 

For x = 1 To .FoundFiles.Count 
cells(x,1)=.FoundFiles(x) 
Next x
Else 
MsgBox "aucun fichier" 
End If 
End With

Comme tu veux aller dans une cellule précise qui serait ici B2 puis B3 etc par exemple, il faut que tu appliques cette macro à la plage de cellule concernés (For each cell in Range(XX:XX))
et donc que tu rajoutes un & nom à la fin de var où nom serait la valeur de la cellule XX.
C'est une base car ensuite tu sois appliquer ta macro à ton fichier. Quand il trouve un .jpg le mettre dans la bonne cellule.

Est ce que cette base te conviens ?
Est ce que tu veux qu'on ailles plus avant ?

 

[olivier30000]

Re : captation des noms de photos

Merci morinn,
C'est pointu...

je vais essayer de réaliser ton code, je reviendrais te donner des nouvelles.

bonne journée
olivier

 

[morinn]

Re : captation des noms de photos

De rien,
n'hésites pas à revenir, cela me fait moi aussi progresser.

 

[olivier30000]

Re : captation des noms de photos

ok pas de problèmes