Sujet Précédent Sujet Suivant

Récupérer image dans Word

Résolu/Fermé
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - Modifié le 10 sept. 2021 à 23:07
m@rina Messages postés 21541 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 février 2025 - 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:

3 réponses

Réponse 1 / 3
m@rina Messages postés 21541 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 février 2025 11 399
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

1
Réponse 2 / 3
m@rina Messages postés 21541 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 février 2025 11 399
14 sept. 2021 à 17:59
Bonjour

Les signets se nomment signet1 et signet2 ? Toujours ?

m@rina
0
Réponse 3 / 3
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
14 sept. 2021 à 18:10
Bonjour m@rina, bonjour à tous,

les signets se nomment texte1 et texte2 toujours

cordialement
0