question sur getopenfilname Résolu/Fermé

Question

Bonjour, 

Je suis au début du début en VBA.
Je veux inserer une image dans une cellule active excel, issue d'un fichier image bien précis.
J'ai copier sur ce forum un code qui marche bien mais j'aurais voulu que l'utilisateur aille directement au bon fichier image plutot que d'avoir le choix entre pleins de fichiers. A quel endroit de la macro peut on écrire le nom du fichier image ?
Merci par avance.

Configuration: Windows 7 / Firefox 16.0

pijaku · Answer

Bonjour,

J'ai copier sur ce forum un code qui marche bien 
Peux tu, afin que nous répondions à ta question, nous donner ici ce fameux code qui marche si bien?

1chticanon · Answer

Bonjour, il y a celui-ci :

Public Sub insere_image()
Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
With Selection.ShapeRange
.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez
.Top = ActiveCell.Top ' haut de la cellule
.Left = ActiveCell.Left ' gauche de la cellule
.Height = ActiveCell.RowHeight ' hauteur de la cellule
.Width = ActiveCell.Width ' largeur de la cellule
End With
With Selection
.PrintObject = True ' l'objet est imprimé en même temps que le document
.Placement = xlMoveAndSize ' manière dont l'objet est lié aux cellules
End With
End Sub

ou celui-là :

Private Sub Triangleisocèle3_Clic()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
'Dimensionne la cellule
ActiveCell.Offset().RowHeight = 63.75
ActiveCell.Offset().ColumnWidth = 13.86
'sélectionne la cellule de réception
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
End If
End Sub


j'aurais voulu déposer aussi la feuille de calcul sur laquelle je travaille mais je ne sais pas si on peut déposer un fichier excel sur cette page du site, je n'ai pas trouvé. En gros, j'essaie de faire un bon de commande de menuiseries et je voudrais selectionner le type de fenêtre (2vantaux ou 1 vantail par exemple) dans un fichier image et que cela apparaisse dans la cellule active.
L'idéal étant que la macro s'execute non pas en cliquant sur une forme mais directement dans la cellule active et que le nom de la fenêtre soit lié à l'image (par exemple je selectionne l'image correspondant à un carré et un texte est déposé dans une autre cellule qui decrirait l'image en inscriavant le mot "carré".
Je ne sais pas si je suis clair ?...

1chticanon · Answer

Merci pour le tuyau je ne connaissais pas ce site.
Je ne joint que la feuille de calcul, le fichier image n'est pas encore fait.
Voici- le lien : 
https://www.cjoint.com/?0LewdeM7MPm

1chticanon · Answer

Bonsoir Heliotte et merci de t'intéresser  à mon problème :

Moi quand j'execute la macro, cela ouvre le répertoire "mes documents", je suis donc obligé d'aller chercher le dossier voulu qu'on pourrait nommer "images fenêtres" par exemple parmis tous les dossiers. 
Moi je voudrais que la macro ouvre directement le dossier ciblé "images fenêtres" et qu'on aperçoive toutes les images. Il n' y aurait plus qu'à cliquer sur la bonne image pour qu'elle soit automatiquement insérée dans la cellule active de la feuille excel.

1chticanon · Answer

Bonjour et merci pour ta réponse rapide,
mais comme je maitrise le vb comme le russe, je voulais savoir ou je place ces ligne dans le code que j'ai déjà ?
Désolé de poser des question basiques, mais je ne suis qu'un menuisier qui essaie de toucher au monde obscure de la programmation ...

1chticanon · Answer

Merci Heliotte !
J'ai collé tes 2 lignes avant l'application getopenfilename, et ... Ca marche !
J'ai encore pleins d'autres questions mais je le ferai plus tard je vais fermer le sujet et le mettre en "résolu".
Juste comme ça , faut combien de temps pour maitriser VB parce que j'ai pris VB6 pour les nuls et même cet ouvrage me parait complexe. J'en ai marre de faire du copier -coller de morceaux de code, c'est frustrant !

Question sur getopenfilname

6 réponses