BOnjour tout le monde, bonjour le Forum,
Je suis un peut embarrassé, parce que mon problème est tout simple, et que malgrès tout je trouve pas la réponse:
Au moyen de cette formule, j'ouvre une fenêtre de recherche qui me permet d'insérer une image. Ce que j'aimerais c'est qu'elle ouvre directement le répertoire que je veux, respectivement le bon fichier où il y a les photos, sans que l'utilisateur doivent trouver lui-même. Y a-t-il un moyen d'insérer un chemin dans la programmation?
Merci d'avance!
Je suis un peut embarrassé, parce que mon problème est tout simple, et que malgrès tout je trouve pas la réponse:
Au moyen de cette formule, j'ouvre une fenêtre de recherche qui me permet d'insérer une image. Ce que j'aimerais c'est qu'elle ouvre directement le répertoire que je veux, respectivement le bon fichier où il y a les photos, sans que l'utilisateur doivent trouver lui-même. Y a-t-il un moyen d'insérer un chemin dans la programmation?
Code:
Sub Bildeinsetzer_button_click()
Dim Choix
With ActiveSheet
Choix = Application.GetOpenFilename("Bilddatei(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Bild Auswahl", , False)
If Choix = False Then GoTo folge2:
On Error GoTo folge
.Shapes("Werkstückbild").Delete
folge:
Range("h21").Select
.Pictures.Insert(Choix).Name = "Werkstückbild"
.Shapes("Werkstückbild").Width = 280
'.Shapes("Werkstückbild").Height = 50
End With
End Sub
Merci d'avance!