Word Macro insertion images

[AG664]

Bonjour.

Je pensais pouvoir me débrouiller tout seul mais a priori c'est un vrai métier
Voilà mon projet:
Je voudrais créer une macro dans un document générique qui insèrerait des images a des emplacements précis de ce document word.
1-Il y a une variable qui sera le chemin d'accès. Donc j'aurais voulu qu'il y ait une fenêtre qui s'ouvre au lancement de la macro (je pensais a userform) dans laquelle on indiquera ce chemin. (par ex: c:/documents/test/...)
2-Le nom des photos sera toujours le même.
3-Toutes les photos sont dans des sous dossiers de .../test/...
4- Donc il faudrait pour chaque emplacement que la macro récupère l'arborescence qu'on lui a rentré au départ, aller rechercher la photo coucou.jpg qui se trouve dans l'un des sous dossiers de c:/documents/test/ puis l'insérer

Pour infos...J'ai déjà créé les différents signets pour pointer l'emplacement des insertions.

Est ce que ca vous parait jouable ?
-----

[matthieu2]

Bonjour,

Etant donné ton pb tu peux ouvrir un "Browser" (je suis pas sur du terme) via le UserForm. L'utilisateur ira alors pointer le bon répertoire et la bonne image à insérer plutot que de faire un copier coller du chemin d'accès (moins de risque d'erreur de la part de l'utilisateur).

As tu déjà écrit un bout de code? si oui, merci de le poster.

[AG664]

Merci Mathieu.
Voici le code que j'ai réalisé a l'aide de l'enregistrement auto. Mais il n'y a pas de recherche de noms, ni la variable du chemin d'accés, en autre...

Sub transverses()
'
' transverses Macro
' Macro enregistrée le 15/11/2015 par BFR
'
    Application.WindowState = wdWindowStateMinimize
    Application.WindowState = wdWindowStateNormal
    Selection.GoTo What:=wdGoToBookmark, Name:="transverses"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\BFR\Desktop\Essai rapport auto Random\ANNEXES\Snapshot_results\transverses.JPG" _
        , LinkToFile:=False, SaveWithDocument:=True
        
' pentes Macro
' Macro enregistrée le 15/11/2015 par BFR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="PENTES"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\BFR\Desktop\Essai rapport auto Random\ANNEXES\Snapshot_results\pentes.JPG" _
        , LinkToFile:=False, SaveWithDocument:=True
        
        ' SPEC Macro
' Macro enregistrée le 15/11/2015 par BFR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="SPEC"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\BFR\Desktop\Essai rapport auto Random\ANNEXES\Snapshot_specification\CAPTURE1.JPG" _
        , LinkToFile:=False, SaveWithDocument:=True
End Sub
Sub MONITORING()
'
' MONITORING Macro
' Macro enregistrée le 15/11/2015 par BFR
'
    Selection.GoTo What:=wdGoToBookmark, Name:="MONITORING"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\BFR\Desktop\Essai rapport auto Random\ANNEXES\Photo_during_test\Monitoring.JPG" _
        , LinkToFile:=False, SaveWithDocument:=True
End Sub

[matthieu2]

Bonjour,

Je n'ai jamais travaillé avec l'enregistrement auto donc je suis pas sur que mon post t'aidera mais on tente quand même.

Dans cette ligne de code:

Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\BFR\Desktop\Essai rapport auto Random\ANNEXES\Snapshot_results\transverses.JPG" _
        , LinkToFile:=False, SaveWithDocument:=True

Je conseils de remplacer le code entre guillemets (qui est le chemin d'accès à l'image) par une variable que tu dois déclarer au début du code

Exemple:

Dim Chemin As String
Selection.InlineShapes.AddPicture FileName:= Chemin, LinkToFile:=False, SaveWithDocument:=True

Ensuite tu dois affecter à "Chemin" le chemin d'accès à ton image. Pour ça tu passe par le Userform.
Je ne sais pas faire apparaitre de fenêtre permettant d'aller pointer ta photo dans l'explorateur windows (mais je sais que ça existe. En cherchant un peu sur le net tu devrais trouver facilement.) donc on fait l'exemple avec une TextBox sur ta userform où l'utilisateur colle le chemin d'accès de ton image.

Après l'initialisation de ton String "Chemin", tu écris:

Chemin = TextBox.Value

Ce qui veut dire que la valeur de ta TextBox (le chemin d'accès) sera enregistré dans "Chemin".

Pour ce qui est du positionnement des images, là je n'ai jamais fais ça non plus donc peut pas t'aider plus.

[A voir en vidéo sur Futura]