Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enchainement macros

Cruz

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

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

Nous a quittés en 2006
Repose en paix
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:
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…