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
Partager