Macro Résolu/Fermé

Question

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?

pou pouille · Answer

bonjour, je croi qu'il faut remplacer 0 par False ^^
edit : heu j'ai rien dis c'est pas ca la réponse

pijaku · Answer

Salut,
Essaye ceci :

If .Show = -1 Then 
TheFile = .SelectedItems(1) 
Else 
TheFile = "0"
MsgBox ("aucun fichier image choisi") 
Sheets("données").Range("L1").Value = "..." 
Sheets("accueil").Select 
Exit Sub 
End If  
End With 
 
C'est sensiblement la mêmee chose mais déjà t'évite un If... End If

Farfadet88 · Answer

Ca ne marche pas non plus

Macro

3 réponses

Discussions similaires