Bonjour à tous,

Voilà j'ai un petit problème à l'intérieur d'un select case.

En effet, mon code me renvoie l'erreur d'execution 91.

Voilà le morceau de code ou ça bloque.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
29
30
31
32
Select Case m
    Case Is = 1
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\1.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 2
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\2.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 3
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\3.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 4
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\4.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 5
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\5.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 6
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\6.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
End Select