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.
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.[/quote]
Salut le forum
N'ayant pas Excel 2007 je tente quand même une réponse
...
ActiveSheet.Pictures.Insert("C:\Travail\Drapeau\Argentine.gif").Select
With Selection
.Name = n
.Top = Cells(n, 4).Top
.Left = Cells(n, 4).Left
End With...Mytå
merci beaucoup, en + de m'avoir répondu sur les 2 forums où j'ai posté ^^
ca marche très bien