erreur 1004 insertion image

[Domi]

Bonjour,

J'ai une erreur 1004 dans une macro VBA, qui me permet d'inserer une image d'un répertoire afin d'avoir une mise en page standard (soit 6 images ou 4 images par page).
J'aimerais pouvoir également supprimer les images précédemment insérées si je me suis trompée.

Voici l'extrait de mon code :

Private Sub CommandButton1_Click()
Range("B11").Select

If Dir(ActiveWorkbook.Path + "\avant\crosseg.jpg", vbNormal) = "" Then
'message d'erreur
MsgBox "La photo 'crosseg' n'a pas été correctement nommée"

Else
ActiveSheet.Pictures.Insert(ActiveWorkbook.Path + "\avant\crosseg.jpg").Select

'redimensionnement de l'image
Selection.ShapeRange.Width = 240.66
Selection.ShapeRange.Height = 180.85

'réduction du poids de l'image par collage spécial
pos1 = Selection.Left
pos2 = Selection.Top
Selection.Cut
ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
DisplayAsIcon:=False
Selection.Left = pos1
Selection.Top = pos2
Selection.ShapeRange.ZOrder msoSendToBack

'cadre noir autour de la photo
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

End If
____________

Merci de me donner votre avis, vos conseils.

 

[Nairolf]

Re : erreur 1004 insertion image

Ton erreur arrive à quel moment du code?

 

[Domi]

Re : erreur 1004 insertion image

BONJOUR

j'ai résolu mon souci, car j'avais protégé la feuille en question.
merci