XL 2016 renommer des images excel sur word

momo2019

XLDnaute Nouveau
bonjour , je souhaiterai savoir comment à partir d'un fichier excel (voir fichier attaché ) ,avoir le résulat ( voir fichier image joint ) dans un dossier "images" quand on a plus d'une centaine d'images et ref
merci
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour momo2019, le forum,

Pourquoi vouloir renommer les images ? Certains noms sont en chinois, c'est très bien.

Maintenant si vous voulez les copier et coller dans un document Word utilisez cette macro :
VB:
Sub CopierCollerDansWord()
Dim Wapp As Object
[A3:B3].CurrentRegion.Copy
Application.DisplayAlerts = False 'si un document Word est ouvert
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
Wapp.Visible = True
Wapp.Documents.Add.Content.Paste
Application.CutCopyMode = 0
End Sub
Bonne journée.
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour sousou,

Oui ce n'est pas clair, dans le titre on parle de Word et ensuite de dossier "images"...

A+
 

job75

XLDnaute Barbatruc
Bonjour momo2019, sousou, le forum,

Une solution plus complète avec un document Word que l'on nomme "Images" :
VB:
Sub CopierCollerDansWord()
Dim Wapp As Object, Wd As Object, i&
Application.ScreenUpdating = False
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
Wapp.Visible = True
Set Wd = Wapp.Documents.Add
For i = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
    Rows(i + 1).Insert
    Rows(i + 1).RowHeight = 20
    Cells(i + 1, 1) = Cells(i, 2)
    Cells(i + 1, 1).HorizontalAlignment = xlCenter
    Cells(i + 1, 1).VerticalAlignment = xlCenter
    Cells(i, 1).Resize(2).CopyPicture 'photo des 2 cellules
    Wd.Range(0, 0).Paste
    Rows(i + 1).Delete
Next
Wapp.Documents("Images").Close
Wd.SaveAs ThisWorkbook.Path & "\Images" 'enregistrement
End Sub
Fichiers (2) et (2 bis).

Bonne journée.
 

Fichiers joints

momo2019

XLDnaute Nouveau
Bonsoir a tous et a toutes.
merci pour vos réponses.je me rend compte que je me suis mal exprimer.
donc sur le fichier excel j'ai une colonne images et une colonne ref.
je veux enregistrer toutes les images dans un dossier et que chaque image ait comme nom la valeur "ref" qui lui correspond .
merci
 

momo2019

XLDnaute Nouveau
Bonsoir a tous et a toutes.
merci pour vos réponses.je me rend compte que je me suis mal exprimer.
donc sur le fichier excel j'ai une colonne images et une colonne ref.
je veux enregistrer toutes les images dans un dossier et que chaque image ait comme nom la valeur "ref" qui lui correspond .
merci :)
 

job75

XLDnaute Barbatruc
Oui sousou et arrange quand même ton code pour que les graphiques ne s'accumulent pas en haut à gauche ;)
 

Discussions similaires


Haut Bas