Discussion :

[abennis]

Quelqu'un peut m'expliquer pourquoi ce code plante ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub insererImageDiagrammeBulle()
 
Dim nomFichier As String
 
With UserForm1.CommonDialogInsererImage
    .CancelError = False
    .DialogTitle = "Inserer une image"
    .Filter = "Images (*.bmp;*.jpg;*.gif;*.ico;*.png)|*.bmp;*.jpg;*.gif;*.ico;*.png|Tous les fichiers (*.*)|*.*"
    .FilterIndex = 1
    .InitDir = CurDir
    .Filename = ""
    .ShowOpen
    nomFichier = .Filename
End With
 
' Si choix = Ouvrir
If nomFichier <> "" Then
'Ligne qui fait planter le tout
    ActiveSheet.Shapes("ImageBulle").Picture = LoadPicture(nomFichier) 
End If
 
End Sub

L'erreur est la suivante :
"Propriété ou méthode non gérée par cet objet"

Pourtant : il y a bien une forme dont le nom est "ImageBulle" sur ma feuille.
D'ailleurs quand je fais un ActiveSheet.Shapes("ImageBulle").Select et que je l'exécute, c'est la bonne forme qui est sélectionée.

Ensuite cet objet ImageBulle a bien une propriété Picture, puisque c'est un objet de type Image , et je la vois bien cette propriété, lorsque j'affiche les propriétés de l'objet.

De plus y a meme pas 1h, je faisais le même code et ça marchait !

De quoi vous faire peter un cake, ce VBA
(Désolé pour ceux qui aiment, mais j'ai connu plus agréable, comme langage)

[abennis]

La ligne qui fait planter est celle-ci

Code :

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

ActiveSheet.Shapes("ImageBulle").Picture = LoadPicture(nomFichier)

Autre précision, j'utilise le débuggeur pour voire la valeur de nomFichier, et c'est parfaitement la bonne. (De toutes façons ce serait un autre message d'erreur si le problème venait de là)

[SilkyRoad]

bonsoir

Essaye

Code :

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

ActiveSheet.ImageBulle.Picture = LoadPicture(nomFichier)

par contre je vois que tu peux sélectionner des fichiers .ico et .png dans ta procédure: il me semble que le contrôle image n'accecpte pas ces types de fichier.


michel

[abennis]

Ca marche nickel
Merci

Merci aussi pr les .ico et les .png