Enchainement macros

[Cruz]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

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

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

Quand je n'insère qu'un code sur les 3, celui-ci marche.
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

 

[Charly2]

Bonjour Cruz, bonjour à toutes et tous

As-tu seulement essayé la proposition faite par CBernardT ?

Inutile de multiplier les fils sur le même sujet, voir :
Ce lien n'existe plus.

Amicalement
Charly

PS : CBernardT attend peut-être une réponse de ta part... :whistle:

 

[DDalmont]

Bonjour cruz, le forum


Remplaces ton code par:

Activesheet.Pictures = Loadpicture(''D:\\2.bmp')

Cordialement

Denis