Pb d'insertion d'image avec une macro sur Excel 2007
Bonjour,
je viens de passer à la version Excel 2007, et une macro que j'utilisais depuis des années, ne fonctionne pas avec cette version.
Ma macro permettait de mettre des drapeaux sur des cellules.
Par exemple, la macro mettait un drapeau français sur une cellule .fr.
Sur Excel 2007, l'image ne s'insère plus dans la cellule sélectionnée mais toujours au même endroit (sur une cellule non sélectionnée).
Voilà le principe de ma macro, ca efface toutes les images puis ca remet les drapeaux sur les cellules où il y a besoin.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Dim Obj As Shape
Dim n, nbcolonne, m As Integer
nbcolonne = 1400
n = 2
m = 183
For Each Obj In Worksheets("Fournisseur").Shapes
If Obj.Type = msoPicture Then Obj.Delete
Next Obj
'Argentine
For n = 2 To nbcolonne
If Cells(n, 4) = ".arg" Then
Cells(n, 4).Select
ActiveSheet.Pictures.Insert("C:\Travail\Drapeau\Argentine.gif").Select
Selection.Name = n
End If
Next n
End Sub |
Si quelqu'un peut m'aider, ca serait sympa.
Merci d'avance
