Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lecture d'une plage nommée dans un autre classeur ouvert

Lecture d'une plage nommée dans un autre classeur ouvert

2 réponses
Avatar
Corona
Excel 2000 SP-3
Bonjour,
J'essaye en vain de lire la valeur d'une plage nommée dans un autre
classeur ouvert que celui qui est actif.
Lorsque le classeur est actif cela fonctionne.
Quelqu'un a t'il déjà eu ce problème et aurait trouvé une solution.
Merci
Philippe

Le code
Sub Text()
Dim wkb As String, Txt1 As String
wkb = "AnalyseCop.xls": Txt1 = "Date"
MsgBox Range(Workbooks(wkb).Names("pnTest"))
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonjour Corona,

'------------------
Sub Text()

Dim wkb As Workbook
Set wkb = Workbooks("AnalyseCop.xls")
MsgBox wkb.Names("pnTest").RefersTo

End Sub
'------------------

OU

'------------------
Sub Text()

MsgBox Workbooks("AnalyseCop.xls").Names("pnTest").RefersTo

End Sub
'------------------


Salutations!



"Corona" <Philippe Tulliez> a écrit dans le message de news:
Excel 2000 SP-3
Bonjour,
J'essaye en vain de lire la valeur d'une plage nommée dans un autre
classeur ouvert que celui qui est actif.
Lorsque le classeur est actif cela fonctionne.
Quelqu'un a t'il déjà eu ce problème et aurait trouvé une solution.
Merci
Philippe

Le code
Sub Text()
Dim wkb As String, Txt1 As String
wkb = "AnalyseCop.xls": Txt1 = "Date"
MsgBox Range(Workbooks(wkb).Names("pnTest"))
End Sub
Avatar
Corona
Merci MichDenis,
J'avoue que ne pensais pas à cette solution.
Philippe

"MichDenis" a écrit dans le message de news:

Bonjour Corona,

'------------------
Sub Text()

Dim wkb As Workbook
Set wkb = Workbooks("AnalyseCop.xls")
MsgBox wkb.Names("pnTest").RefersTo

End Sub
'------------------

OU

'------------------
Sub Text()

MsgBox Workbooks("AnalyseCop.xls").Names("pnTest").RefersTo

End Sub
'------------------


Salutations!



"Corona" <Philippe Tulliez> a écrit dans le message de news:

Excel 2000 SP-3
Bonjour,
J'essaye en vain de lire la valeur d'une plage nommée dans un autre
classeur ouvert que celui qui est actif.
Lorsque le classeur est actif cela fonctionne.
Quelqu'un a t'il déjà eu ce problème et aurait trouvé une solution.
Merci
Philippe

Le code
Sub Text()
Dim wkb As String, Txt1 As String
wkb = "AnalyseCop.xls": Txt1 = "Date"
MsgBox Range(Workbooks(wkb).Names("pnTest"))
End Sub