Discussion :

[maxicobra]

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!

[maxicobra]

Personne pour ce problème?

Qui je pense ne doit pas être grand chose en plus...

[Heureux-oli]

Salut,

Tu dois avoir une autre erreur qu'un problème de code.

Je viens de faire quelques tests pour confirmer mes impressions.

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
Sub Testoli()
Selection.InlineShapes.AddPicture FileName:=MonRep & "\a.png"
 
End Sub
 
 
Function MonRep() As String
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
With oDlg
    .Show
End With
 
MonRep = oDlg.SelectedItems(1)
 
End Function

J'ai une image png sur le c:\temp, je choisis ce répertoire et la concaténation du fichier et du chemin fonctionne bien, l'image est correctement insérée.

Mon code est similaire au tien.

Essaie de midifier et de le faire avec un FilePicker pour voir ce que ça donne lorsque tu sélectionnes le fichier et pas le répertoire.

[maxicobra]

Merci pour la réponse, je vais essayer ça.
Pour le FilePicker cependant, il faut que je choisisse dans mon cas non pas un fichier, mais un dossier (le fichier est ajouté à la suite dans la macro).

J'essaye ça merci.

[maxicobra]

J'ai essayé, toujours la même erreur, le code:

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
21
Public Sub Test()
 
 
 
 
Selection.InlineShapes.AddPicture FileName:=MonRep & "\1.jpg"
 
 
End Sub
 
Function MonRep() As String
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
With oDlg
    .Show
End With
 
MonRep = oDlg.SelectedItems(1)
 
End Function

[maxicobra]

J'ai essayé avec une photo en local, et ça marche!

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
21
22
Public Sub Test()
 
 
 
 
ActiveDocument.Bookmarks("photo1").Range _
.InlineShapes.AddPicture FileName:=MonRep & "\1.jpg"
 
 
End Sub
 
Function MonRep() As String
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
With oDlg
    .Show
End With
 
MonRep = oDlg.SelectedItems(1)
 
End Function

Mais mes photos sont sur un serveur, et une adresse serveur marche pas. Ce que je comprends pas, c'est que quand je met l'adresse (serveur) en dur dans le InLineshapes ça marche, mais si j'utilise MonRep & "1\1.jpg" ça ne fonctionne pas.


Edit: l'inexplicable est apparu, maintenant ça fonctionne sur le serveur. Je comprendrai je pense jamais ^^

Merci pour l'aide!