Discussion :

[steph_5]

Bonjour,

Novice en VBA, quelqu'un pourrait-il m'aider à résoudre le message d'erreur suivant : erreur d'exécution 13. Je souhaite que mon image s'insère dans la cellule C7

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub validation_Click()
 
Dim chemin As String
Dim NomImage As String
Dim Image As String
 
chemin = "C:\Users\STEPH\Pictures\fms\"
NomImage = Range("A2")
Image = ".bmp,.jpg"
 
ActiveSheet.Shapes.AddPicture Filename:=chemin & NomImage & Image, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=("C7"), Top:=("C7"), Width:=("C7"), Height:=("C7")
End Sub

[Menhir]

Code :

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

Image = ".bmp,.jpg"

Il est improbable que ton image ait cette extension.
Vérifie l'extension dans le nom de ton fichier.

De plus, tes paramètres Left, Top, Width et Height sont incohérents.
Regarde la syntaxe de AddPicture ici : https://msdn.microsoft.com/fr-fr/vba...e-method-excel

[MarcelG]

Bonjour,

Sauf erreur,

Il semble que les propriétés Top, Left... aient une mauvaise syntaxe
Ta variable image est soit ".bmp", soit ".jpg"

Essaie

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
Option Explicit
 
Public Sub img_essai()
 
 Dim chemin As String
 Dim NomImage As String
 Dim Image As String
 
 chemin = "lechemin\"
 Image = ".jpg"
 
 With ActiveSheet
      NomImage = .[A2]
      .Shapes.AddPicture Filename:=chemin & NomImage & Image, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=.Range("C7").Left, Top:=.Range("C7").Top, Width:=.Range("C7").Width, Height:=.Range("C7").Height
 End With
 
End Sub

[steph_5]

@MarcelG

J'ai tapé le code envoyé, je reçois comme message d'erreur cette fois "erreur dexécution 1004"...

[MarcelG]

Salut

Code testé.
Sur quelle ligne s'arrête le débogueur?

[steph_5]

@Marcelg

sur la ligne : With ActiveSheet

[MarcelG]

Cela m'étonne que le débogueur s'arrête à la déclaration de procédure.
Je voulais signifier "Quelle ligne est surlignée en jaune lorsque la procédure est activée"

D'autre part, peux-tu retourner
- le libellé entier du message d'erreur
- l'intégralité de ton code