Bonjour, j'ai donc fait ma Macro qui marche bien, mais la dernière étape coince.
J'ouvre une boîte de dialogue pointant un dossier, contenant lui même des photos rangés dans l'ordre croissant (mais on s'en fiche).
La boîte de dialogue me sort la bonne adresse, que je veux utiliser dans mon InLineShapes pour mettre la photos à un signet.
Mais l'adresse est pas bonne. Je bloque dessus, je ne vois pas où je commet une erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Public Sub Test() MsgBox "Répertoire:" & vbCr & UnRepertoireChoisi() ActiveDocument.Bookmarks("photo1").Range _ .InlineShapes.AddPicture FileName:=UnRepertoireChoisi() & "\1.jpg" End Sub Public Function UnRepertoireChoisi() As String ' renvoie le chemin d'un répertoire sélectionné With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Choisir le répertoire de travail" .Show UnRepertoireChoisi = .SelectedItems(1) End With End Function
Merci pour votre aide!
Partager