Discussion :

[Oliv-]

Bonjour,
J'ai un code

Code :

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

 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 ?

[tototiti2008]

Bonjour Oliv,

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

Code :

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

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

[patricktoulon]

bonjour

histoire de pas faire d'erreurs

Code :

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

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

au plaisir

[Oliv-]

Bonjour Oliv,

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

Code :

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

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

[Philippe Tulliez]

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

Code :

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

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

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

[tototiti2008]

Bonjour Philippe,

Merci

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

Code :

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

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

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

[Philippe Tulliez]

Bonjour,

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

[Oliv-]

Code :

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

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

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