Demander a l'utilisateur d'entrer une variable (VBA)

[Smirnoff]

Bonjour,

voila je ne m'y connais pas trp en VBA et j'ai besoin de vos lumiere ...

voici mon code
*
Option Private Module

Sub CommentaireMonique()
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
.Width = 95.8
.Height = 127.3
.Fill.UserPicture _
""
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 14: .Color = vbRed
End With
End With
End With
cmt.Text Text:=""
SendKeys "%IM"
End Sub
*

voila
et ceci
.Fill.UserPicture _
""

j'aimerais savoir si il y aurais moyen de faire apparaitre une "popup" demandant l'url a l'utilisateur.
Je m'explique
Le code VBA si dessus permet de creer une fenetre "Commentaire" Vierge
le code .Fill.UserPicture _
"" permet d'entrer l'emplacement d'une image.
exemple
.Fill.UserPicture _
"c:\mes images\image1.jpg" ou encore "http://monlien.com/image1.jpg" et de la designer comem motif de remplissage

j'aimerais bien qu'au moment ou on arrive a ces lignes
.Fill.UserPicture _
""
que le code VBA s'arrete, demande a l'utilisateur (via popup ou autre) d'entrer le chemin d'acces de l'image, et de continuer son script
ce ki permetrai de cree un champ commentaire avec une image definie par l'utilisateur(mais restant dynamyque).
j'espere avori ete assez explicite

merci d'avance

 

[Franck]

Salut

J'ai eu le même pb et je l'ai résolu grace à la ligne suivante


dlgAnswer = Application.Dialogs(xlDialogInsertPicture).Show


J'espère que cela solutionnera ton pb

A+

Franck

 

[myDearFriend]

Bonjour smirnoff, Franck, le Forum.


En complément de la réponse de Franck, tu pourrais peut-être envisager aussi une solution comme ci-dessous :

Sub CommentaireMonique()
Dim Adr As Variant
Adr = Application.InputBox("Adresse URL :", "Saisissez l'adresse URL...", , , , , , 2)
If Adr <> False Then
If Adr <> "" Then
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
With .OLEFormat.Object
With .Font
.Name = "Times New Roman": .Size = 14: .Color = vbRed
End With
End With
.Fill.UserPicture Adr
End With
cmt.Text Text:=""
SendKeys "%IM"
End If
End If
End Sub

Nb : Ben là, tu m'as appris quelque chose smirnoff, je ne savais pas qu'on pouvait entrer une adresse URL pour un Gif dans un commentaire... c'était d'ailleurs la réponse à ta question Lien supprimé. Merci à toi pour ce tuyau...


Cordialement,
Didier_mDF

 

[Smirnoff]

Merci a vous 2, j'a finalement choisit la solution numero 2.

Ps au Nb: oui bha j'ai longtemps cherchez pour trouver la reponse
enfin voila encore merci