Récupérer image dans Word

Résolu
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 23658 Date d'inscription   Statut Contributeur Dernière intervention   -
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 23658 Date d'inscription   Statut Contributeur Dernière intervention   11 458
 
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 23658 Date d'inscription   Statut Contributeur Dernière intervention   11 458
 
Bonjour

Les signets se nomment signet1 et signet2 ? Toujours ?

m@rina
0
Réponse 3 / 3
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   11
 
Bonjour m@rina, bonjour à tous,

les signets se nomment texte1 et texte2 toujours

cordialement
0

Discussions similaires

Colis shein terminal fret
Lele -
bazfile -

1 réponse