Accès rapide à cellule nommée d'un autre classeur

[sergio_bzh]

Bonjour
J'écris en ce moment une macro dans un classeur "Classeur1" et je cherche à accéder à la valeur d'une cellule nommée dans un autre classeur déjà ouvert "Classeur2" pour ensuite écrire cette valeur dans mon classeur1.

Je peux toujours faire comme cela, 'plage' contenant le nom de ma cellule nommée :

Application.Screenupdating = False 
Workbooks("Classeur2.xls").Activate 
v = Application.Range(plage).Value
Workbooks("Classeur1.xls").Activate 
ActiveCell.Value = v

Cela fonctionne bien mais en fait c'est une boucle à faire quelques milliers de fois et de switcher sans arrêt entre les 2 classeurs prend pas mal de temps.

Je pensais que quelque chose comme ça allait fonctionner mais que nenni :

Workbooks("Classeur2.xls").Application.Range(plage).Value

Comment peut-on accéder plus rapidement à la cellule nommée d'un autre Classeur ?

Au passage, je trouve curieux que le Range d'une cellule nommée dépende de 'Application' et non pas de 'Workbooks' car le tableau des noms (Names) est propre à un workbook.

Merci.
Sergio

 

[Staple1600]

Re : Accès rapide à cellule nommée d'un autre classeur

Bonsoir



Workbooks("Classeur2.xls").[plage]

fonctionne ou pas?

Et
Workbooks("Classeur2.xls").Range("plage")

 

[BOISGONTIER]

Re : Accès rapide à cellule nommée d'un autre classeur

Bonjour,

x = Workbooks("classeur2.xls").Sheets("feuil1").Range("toto").Value

JB

 

[sergio_bzh]

Re : Accès rapide à cellule nommée d'un autre classeur

Rien ne fonctionne, j'ai essayé un peu tout :

Nam est donc le nom d'une variable et 'Activ' est le nom d'une cellule nommée contenu dans Nam :

            Workbooks(xlName).Range("""" & Nam & """").Value
            Workbooks(xlName).Range("Activ").Value
            Workbooks(xlName).[Activ].Value
            Workbooks(xlName).["Activ"].Value

Range n'étant pas une propriété de Workbooks, j'ai toujours l'erreur "Propriété ou méthode non géré par cet objet".

Et pour le code suivant , je n'essaie pas car cela ne dépend pas des Worksheets et je ne sais pas dans quelle Worksheet est ma cellule nommée :

Workbooks("classeur2.xls").Sheets("feuil1").Range( "toto").Value

En tous cas, merci pour les réponses.

 

[Pierrot93]

Re : Accès rapide à cellule nommée d'un autre classeur

bonsoir à tous

peut être comme ceci, si j'ai bien compris :

Workbooks("classeur1.xls").Sheets("Feuil1").Range("A1").Value = _
    Workbooks("classeur2.xls").Names("plage").RefersToRange.Value

"plage" étant une plage nommée d'une seule cellule.

bonne soirée
@+

Edition : .value au lieu de .value2

 

[sergio_bzh]

Re : Accès rapide à cellule nommée d'un autre classeur

Excellent !

Pour 3600 boucles je suis passé de plus de 30 secondes d'exécution à moins de 10 secondes.

Merci !
Sergio