Message "erreur d'exécution 13"

Version imprimable

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:

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

31/08/2018, 11h07
Menhir

Citation:

Envoyé par steph_5

Code:

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

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:

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

31/08/2018, 11h32
steph_5

@MarcelG

J'ai tapé le code envoyé, je reçois comme message d'erreur cette fois "erreur dexécution 1004"...
31/08/2018, 11h49
MarcelG

Salut

Code testé.
Sur quelle ligne s'arrête le débogueur?
31/08/2018, 12h05
steph_5

@Marcelg

sur la ligne : With ActiveSheet
31/08/2018, 12h11
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

Désolé quand j'ai dit novice... Suis vraiment novice...

La ligne surlignée en jaune est : Public Sub img_essai().

Le message d'erreur est : erreur d'exécution '1004' erreur définie par l'application ou l'objet

Voilà le code retranscris
Code:

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 = "C:\Users\STEPH\Pictures\fms\" 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

Via ton explorateur sur le nom de l'image, clic-droit/Propriétés/Sécurité
Sélectionner intégralement le nom de l'objet + copie(CTRL+C)

Dans une procédure
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Option Explicit Public Sub img_essai() dim lecontrole as string lecontrole = "effectuer ici le collage CTRL + V" (ne pas oublier les 2 double quotes) Dim chemin As String Dim NomImage As String Dim Image As String chemin = "C:\Users\STEPH\Pictures\fms\" Image = ".jpg" NomImage = ActiveSheet.[A2] Dim concat as string concat = chemin & NomImage & Image If concat = lecontrôle Then MsgBox "OK" Else MsgBox "KO" end if End Sub
Regarde aussi si la feuille active est bien celle contenant l'information en "A2"
Par prudence, mieux vaut la nommer dans la procédure

Reviens en retournant le contenu du message (OK ou KO)