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
 

Pièces jointes

  • modele de base.xlsx
    57.2 KB · Affichages: 11
  • Capture.PNG
    Capture.PNG
    19.8 KB · Affichages: 12

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.
 

Pièces jointes

  • Copier-coller dans Word(1).xlsm
    75.6 KB · Affichages: 10

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.
 

Pièces jointes

  • Copier-coller dans Word(2).xlsm
    77.2 KB · Affichages: 5
  • Copier-coller dans Word(2 bis).xlsm
    77.5 KB · Affichages: 5

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 :)
 

Discussions similaires