Discussion :

[Mielure]

Bonjour,

"Desole mais je n'arrive pas à faire fonctionner les balises dans IE 8"

j'utilise le code récuperé sur les cours du site:

http://silkyroad.developpez.com/VBA/...cEditor/#LIV-A

Ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub creationMacro()
Dim X As Integer
 
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
 
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

Le fichier contenant le code est utilisé par plusieures utilisateurs sur different postes, et sur certain poste la macro renvoie une erreur 1004 au niveau de cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule

Sur mon poste aucun probléme.
Tous les postes sont de même configuration et la réference:

"Microsoft Visual Basic for Applications Extensibility 5.3"

et bien active comme demandé au debut du cour.
Alors si quelqu'un peu m'apporter un peu d'aide je l'accepterai avec plaisir.
Par avance merci.

Ps: en même temps si vous pouvez me dire comment faire fonctionner les balises dans IE 8.
Merci

[Mielure]

Resolu.
La réponse ce trouve ici:

http://excel.developpez.com/faq/?pag...SourcesFiables

Il faut cocher les deux cases de l'onglet source fiable.

Cordialement.