Nom du fichier image chargé par la fonction Application.Dialogs(xlDialogInsertPicture).Show

Version imprimable

13/02/2018, 12h39
Denis_67

Nom du fichier image chargé par la fonction Application.Dialogs(xlDialogInsertPicture).Show

Bonjour,

Je n'ai pas trouvé dans l'aide MS Application.Dialogs pouvait renvoyer le nom du fichier image chargé.

Code:

Application.Dialogs(xlDialogInsertPicture).Show

Quelqu'un peut-il me dire si c'est possible et si oui comment.

Merci
Denis

bonsoior je ne sais pas si on peut récupérer le path avec le dialo insertpicture
cela dit tu peux utiliser d'autre dialogs qui te le permettent

en voici au moins deux

Code:

1
2
3
4
5
6
Sub methode1()
    Pic = Application.GetOpenFilename("Image Files (*.jpeg;*.jpg;*.emf;*.wmf;*.gif), *.bmp")
    MsgBox Pic
    'tu l 'insert ou pas come tu veux
    'If Pic <> False Then ActiveSheet.Pictures.Insert(Pic).Select
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub methode2()
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show = -1 Then
            MsgBox .SelectedItems(1)
            'tu l 'insert ou pas come tu veux
            'ActiveSheet.Pictures.Insert(.SelectedItems(1)).Select
        End If
    End With
End Sub

;)

Merci Patrick,

J'ai adopté la première solution (en ajoutant BMP dans la liste!) et en ajoutant l'extraction du nom de fichier que je veux tester.
ca donne au final

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Pic = Application.GetOpenFilename("Image Files (*.bmp),*.bmp")
    If Pic <> False Then
 
' lecture du nom
   Dim MonFichier As String
   MonFichier = Mid(Pic, InStrRev(Pic, "\") + 1)
  MsgBox MonFichier
 
If MonFichier = environ("username") & ".bmp"    
    ActiveSheet.Pictures.Insert(Pic).Select
Else msgbox "Ce fichier n'est pas le bon"
Exit Sub
End If

14/02/2018, 09h22
patricktoulon

re

re
bonjour denis

heu.... ca me parait pas tres catolique ca tu veux chopper quoi avec ton mid

Code:

MonFichier = Mid(Pic, InStrRev(Pic, "\") + 1)

autant pour moi j'ai confondu avec strreverse

Bonjour
C'est quoi, cette syntaxe ?
Code:

1 2 3 4 5 If MonFichier = environ("username") & ".bmp" ActiveSheet.Pictures.Insert(Pic).Select Else msgbox "Ce fichier n'est pas le bon" Exit Sub End If
Ce n'est pas sérieux ... (ni soigneux).