Problème d'ouverture fichier image sous excel

Résolu
Evicta -  
 Evicta -
Bonjour,

Je voudrais un petit programme dans excel en vba, pour faire un boutton qui me donne :

1. Clic sur le boutton
2. Ouverture d'une fenêtre
3. Je selectionne un fichier image .jpeg "par exemple"
4. Importation dans un emplacement bien precie sur m'a feuille

Mon problème:
5. Si je fait annuler sur cette fenêtre, j'ai une erreur d'execution 1004.

Le script que j'ai fait:

Private Sub CommandButton1_Click()
Dim image As String
image = Application.GetOpenFilename
Shapes.AddPicture image, True, True, 100, 122, 330, 246
End Sub

Merci, te me dire quoi rajouter pour ne plus avoir d'erreur .

3 réponses

  1.
    Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   1 529
     
    .
    0
  2. Armojax Messages postés 1863 Date d'inscription   Statut Membre Dernière intervention   1 529
     
    Bonsoir Evicta,

    Erreur de manip dans l'item du dessus !!!
    Conditionne ta ligne Shapes.AddPicture :
    If image <> "Faux" Then
  Shapes.AddPicture image, True, True, 100, 122, 330, 246
End If
    0
  3. Evicta
     
    Superbe, ca marcge nikel avec
    If image <> "Faux" Then

    MERCI Armojax ....
    0