Erreur d'excution 10004 avec VBA excel Résolu/Fermé

Question

Bonjours, 

J'ai probléme donc je ne trouve, ni la raison, ni la solution. 
Si quelqu'un à une idée , elles est la bienvenue Merci. 

J'ai 2 "sub" dans un module qui qui fonctionne.
Lorsque je les utilise comme sous-programme appartir d'une userform. Ca plante et j'ai le message d'erreur d'excecution '1004'. 

PS : Quand je fais le programme principal au pas à pas je n'ai pas ce probléme 

Sub G_Lien() 
                    'Création de Groupe_L 
  HHH = ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1) 
                    Nom_GL = "=" & ActiveSheet.Name & "!" & HHH 
                    Application.ActiveWorkbook.Names.Add Name:="Groupe_L", RefersToR1C1:=Nom_GL 
End Sub 

 Sub G_LienAddition() 
                    'Modification de Groupe_L 
  PPP = "," & ActiveSheet.Name & "!" & ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1) 
                   Nom_GL = Nom_GL & PPP 
                    Application.ActiveWorkbook.Names.Add Name:="Groupe_L", RefersToR1C1:=Nom_GL 
End Sub 

Merci pour votre reponse
Iama
Configuration: Windows Vista / Internet Explorer 7.0

pijaku · Answer

Salut,
Lorsque je les utilise comme sous-programme appartir d'une userform  quel est ton code d'appel de ces macros? Quel code as tu placé dans ton UserForm?

iama · Answer

Bonjours Pijaku, excuse si je te réponds tardivement et merci ne te pencher sur mon cas

Si j'ai bien compris ta demande de renseignement :

J'arrive sur la macro suite à un click sur un bouton. Il y a une boucle dans cette macro, mais le problème est identique que je mette le sous programme dedans ou non.

Par ailleurs si je modifie  les sous-programmes qui me posent problème comme suit, et que j'en rajoute un avant le dernier sub de la macro.
L'instruction   " Range("Nom_GL").Select" de ce dernier, me donne le message d'erreur suivant : 
Erreur d'exécution `1004
La méthode « range ` de l'objet `_Global' a échoué »

Si cela te  permet de trouver le problème ... Merci.
Il me manque peut-être beaucoup de connaissance de base.

Sub G_Lien()
                    'Création de Groupe_L
  HHH = ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1)
                    Nom_GL = "=" & ActiveSheet.Name & "!" & HH                 
End Sub


Sub G_LienAddition()
                    'Modification de Groupe_L
  PPP = "," & ActiveSheet.Name & "!" & ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1)
                   Nom_GL = Nom_GL & PPP
End Sub

Sub G_LienCreation()
                    `Nommer  Groupe_L                 
                   Range("Nom_GL").Select
                    Application.ActiveWorkbook.Names.Add Name:="Groupe_L", RefersToR1C1:=Nom_GL
End Sub

Erreur d'excution 10004 avec VBA excel

2 réponses

Discussions similaires