Récupérer image dans Word

Fermé

mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - Modifié le 10 sept. 2021 à 23:07
m@rina Messages postés 20040 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 - 15 sept. 2021 à 15:33

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 :

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

A voir également:

Récupérer image dans Word
Supprimer une page word - Guide
Recuperer video youtube - Guide
Espace insécable word - Guide
Comment récupérer un compte facebook piraté - Guide
Recuperer message whatsapp - Guide

3 réponses

Réponse 1 / 3

m@rina Messages postés 20040 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
14 sept. 2021 à 17:59

Bonjour

Les signets se nomment signet1 et signet2 ? Toujours ?

m@rina

Réponse 2 / 3

mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
14 sept. 2021 à 18:10

Bonjour m@rina, bonjour à tous,

les signets se nomment texte1 et texte2 toujours

cordialement

Réponse 3 / 3

m@rina Messages postés 20040 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 19 avril 2024 11 269
15 sept. 2021 à 15:33

Bonjour

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters