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.