Discussion :

[Denis_67]

Bonjour,

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

Code :

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

Application.Dialogs(xlDialogInsertPicture).Show

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

Merci
Denis

[patricktoulon]

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 :

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

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 :

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

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

[Denis_67]

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 :

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

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

[patricktoulon]

re
bonjour denis

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

Code :

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

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

autant pour moi j'ai confondu avec strreverse

[unparia]

Bonjour
C'est quoi, cette syntaxe ?

Code :

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

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).