Discussion :

[d.martin77]

Bonjour, j'ai besoin d'un petit coup de main

Je voudrais, au grand plaisir de mon patron, insérer, à même mon formulaire (userform) une fenêtre d'explorateur windows pour aller sélectionner un fichier d'image quelque part sur mon ordinateur, qui serait lui même inséré dans mon document word. Puisque l'emplacement et le nom du fichier image changeront d'utilisation en utilisation, je veux recourir à une fenêtre type "explorateur windows"

Pour le moment, je ne suis pas à la recherche d'un code tout fait, seulement d'un petit coup de pouce comme: quel fonction utiliser, quel type de champ insérer dans mon document word, quel est la fonction qui fait apparaître le dit explorateur, comment associer le path/filename de l'image choisie à une variable, etc.

Merci

d.martin77

[clementmarcotte]

Bonjour,

Pour utiliser des boîtes de dialogues toutes faites dans VBA, tu peux passer par

Application.FileDialog

L'IntelliSense va te guider pour les paramètres à ajouter

Cet exemple (pris dans l'aide de VBA) montre comment afficher la boîte de dialogue Open (Ouvrir) et permettre à un utilisateur de sélectionner plusieurs fichiers à ouvrir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ShowFileDialog()
     Dim dlgOpen As FileDialog
     Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
     With dlgOpen
          .AllowMultiSelect = True
          .Show
     End With
End Sub

[Sepia]

Salut d.martin77,

Tu as essayé de faire un simple truc comme insérer une image qui contiendrait un texte d'invitation du style "Cliquez ici pour choisir une image" puis d'utiliser le menu contextuel "Remplacer image".

L'intérêt c'est que tu n'as rien à faire (à part l'image et l"insérer dans ton formulaire) ==> pas de code (donc assez simple pour la maintenance ) et c'est Word qui fait tout le boulot comme tu as décrit. On choisit une image n'importe où sur le disque et n'importe quelle image.

Il est important d'essayer de faire faire à Word ce qu'il sait faire plutôt que d'essayer de trouver un code qui de toute façon fournira surement par un "Insérer image" ou un "Remplacer image". C'est beau Word (quand ça marche)

@+