Récupérer image dans Word
Résolu
Bonjour,
J’ai réalisé une petite macro a l’aide de la création auto sur Word, pour importer une image dans mon document.
Ça marche bien, mais il me manque une petite fonction et je ne trouve pas la solution sur les forums ou internet.
Voici le code :
Ce que j’aimerais ajouter, c’est la création du nom de l'image à partir des signets (text1 et text2) automatiquement, comme noté en commentaire dans la macro
Merci pour l'aide
Cordialement
J’ai réalisé une petite macro a l’aide de la création auto sur Word, pour importer une image dans mon document.
Ça marche bien, mais il me manque une petite fonction et je ne trouve pas la solution sur les forums ou internet.
Voici le code :
Sub mise_en_place_image()
Dim chemin, nom_fichier As String
'nom_fichier = (nom signet1 qui est text1)+ un blanc + nom signet2 qui est text2 + " img"
Selection.GoTo What:=wdGoToBookmark, Name:="image1"
chemin = "C:\Users\HP\"
nom_fichier = "mon image.png"
Selection.InlineShapes.AddPicture FileName:= _
chemin & nom_fichier _
, LinkToFile:=False, SaveWithDocument:=True
' sauvegarde et fermeture du doc Word, a voir commande qu'il faut faire ?
End Sub
Ce que j’aimerais ajouter, c’est la création du nom de l'image à partir des signets (text1 et text2) automatiquement, comme noté en commentaire dans la macro
Merci pour l'aide
Cordialement
3 réponses
-
ModérateurBonjour
Les signets se nomment signet1 et signet2 ? Toujours ?
m@rina
-
Bonjour m@rina, bonjour à tous,
les signets se nomment texte1 et texte2 toujours
cordialement -
ModérateurBonjour
Voici une macro qui donne le nom du fichier, si j'ai bien compris...
Sub image()
Dim signet1 As String, signet2 As String, chemin As String, nom_fichier As String
chemin = "....\"
signet1 = "texte1"
signet2 = "texte2"
With ActiveDocument.Bookmarks
If .Exists(signet1) Then image1 = signet1 Else Exit Sub
If .Exists(signet2) Then Image2 = signet2 Else Exit Sub
End With
nom_fichier = signet1 & " " & signet2 & ".png"
MsgBox chemin & nom_fichier
End Sub
m@rina
