Pb avec Thisworkbook .range("Nom")

Bonjour,
J'ai un code

Code:

---

If Range("CheminArchives") <> "" Then

---

qui teste la valeur d'une cellule nommée, sur la Feuille Active.

je souhaite qu'il le fasse sur le classeur exécutant la macro donc thisworkbook

mais thisworkbook.Range("CheminArchives") provoque une erreur car range n'est pas une méthode valide.

ThisWorkbook.Sheets("paramètres").Range("CheminArchives") --> fonctionne

Mais comment coder cela sans préciser la feuille ?

Bonjour Oliv,

Peut-être un truc comme ça, mais s'il y a plus simple je suis preneur aussi ;)

Code:

---

1 2 3 4 5 6 7

With ThisWorkbook For Each n In .Names If n.Name = "CheminArchives" Then Chemin = n.RefersToRange.Value End If Next n End With

---

bonjour

histoire de pas faire d'erreurs

Code:

---

If activeworkbook.sheets(nom de ton sheets). Range("CheminArchives") <> "" Then

---

au plaisir

Citation:

---

Envoyé par tototiti2008

Bonjour Oliv,

Peut-être un truc comme ça, mais s'il y a plus simple je suis preneur aussi ;)

Code:

---

1 2 3 4 5 6 7

With ThisWorkbook For Each n In .Names If n.Name = "CheminArchives" Then Chemin = n.RefersToRange.Value End If Next n End With

---

---

Salut,
c'est bien mais c'est lourd

Bonjour,
Voici une exemple de code qui renvoie la valeur d'une cellule nommée sans préciser la feuille

Code:

---

MsgBox Range(ThisWorkbook.Names("wkDate")).Value

---

Il faut bien entendu que cette cellule nommée soit de portée Classeur

Bonjour Philippe,

Merci ;)

ou comme ça (dès fois on boucle on ne sait pas pourquoi :D)

Code:

---

ThisWorkbook.Names("toto").RefersToRange.Value

---

car ton écriture risque de ne pas pointer sur le bon classeur, mais sur le classeur actif

Bonjour,

Effectivement tu as absolument raison.
Voilà ce que c'est de ne pas pousser les tests plus à fond

Citation:

---

Envoyé par tototiti2008

Code:

---

ThisWorkbook.Names("toto").RefersToRange.Value

---

---

ça j'achète !!Merci à vous 2