XL 2016 renommer des images excel sur word

[momo2019]

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

 

[job75]

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 :

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.

 

[sousou]

Bonjour
Job, je n'avais pas compris la même chose? et surtout pas compris (word)
Enfin si ca peut servir....
Création des fichiers images en bmp

 

[job75]

Bonjour sousou,

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

A+

 

[job75]

Bonjour momo2019, sousou, le forum,

Une solution plus complète avec un document Word que l'on nomme "Images" :

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.

 

[momo2019]

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]

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 🙂

 

[sousou]

Bonjour
en théorie, c'était bien ma réponse

 

[job75]

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

 

[sousou]

Avec un peu de retard