Enchaînement macros

[Cruz]

Bonjour tout le Monde
J'ai une macro du style:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range('A1') = 1 Then
Range('B1').Select
Activesheet.Picures.Insert(''D:/1.bmp')
End If

If Range('A2') = 1 Then
Range('B2').Select
Activesheet.Picures.Insert(''D:/2.bmp')
End If

If Range('A3') = 1 Then
Range('B3').Select
Activesheet.Picures.Insert(''D:/3.bmp')
End If
End Sub

Mais lorsque les 3 macros doivent s'activer, la première image s'insert, et un message affiche:
Erreur d'execution '-2147417848 (80010108):
La méthode 'Insert' de l'objet 'Pictures' a échoué

aidez-moi svp
merci d'avance a+
cruz

 

[dg62]

bonsoir Cruz


as-tu essayé de mettre Pictures dans ton code à la place de 'picures'

(''D:/1.bmp')


doit s'écrire :

('d:\\1.bmp')

Message édité par: dg62, à: 05/11/2005 18:52