Macro

Bonjour,

On m'a donné et j'ai modifié cette macro pour aller chercher une image et l'insérer en commentaire d'une cellule:

Private Sub CommandButton2_Click()
Dim TheFile As String
Dim chemin As String
chemin = "C:\"

Sheets("données").Select
Range("L1").Select
Selection.ClearComments

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = chemin
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Sheets("données").Range("L1").Value = "..."
Sheets("accueil").Select
Exit Sub
End If
Range("l1").AddComment
Sheets("données").Range("L1").Comment.Shape.Fill.UserPicture TheFile
Sheets("données").Range("L1").Value = "Photo"
Range("l1").Comment.Visible = True
Range("l1").Comment.Shape.Select True
Selection.ShapeRange.ScaleWidth 3.77, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 4.57, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.94, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.07, msoFalse, msoScaleFromTopLeft
Sheets("accueil").Select
End Sub

Elle marchait bien mais depuis peu la partie soulignée en gras me fait planter Vbasic

Pouvez vous m'aider?
--
Après Open Office essayez Opin Offece :P

Configuration: ...