[VBA] Remplacer "=XXX.xls!maplage"

Bonjour,

j'ai un code qui créer un graphique, les valeurs correspondent à une plage nommée

ActiveChart.SeriesCollection(1).Values = "=Modèle.xls!nomplage"

Voila ma question : Quelle est la syntaxe pour remplacer le Modèle.xls par un ThisWorkbook ou autre afin d'exporter le code dans n'importe quel fichier ?

Merci pour vos réponses

Amicalement,

Calagan

Bonjour,

Sans fichier.... à essayer

ActiveChart.SeriesCollection(1).Values = Workbooks("Modèle.xls") & "!nomplage"

ou

ActiveChart.SeriesCollection(1).Values = ThisWorkbook.Name & ".xls" & "!nomplage"

Si ok, clique sur le V vert pour cloturer le fil.

Amicalement

Salut Dan, merci pour ta réponse !

Malheureusement ça ne fonctionne pas, il n'arrive pas à définir la propriété Values.

Amicalement,

Calagan

Bonjour à tous,

Un oubli du "=" peut-être ? Essaie avec ça :

ActiveChart.SeriesCollection(1).Values = "=" & ThisWorkbook.Name & ".xls!nomplage"

Par contre, si le nom du fichier contient un espace, il faudra mettre le nom du fichier entre 2 apostrophes.

Salut vba-new,

Désolé, ça ne fonctionne pas non plus.

N'y a t-il pas un moyen en dimensionnant tout ça ?

Je vais essayer ça

Amicalement,

Calagan

edit : Non non en fait c'était vraiment simple et moi comme un *** j'avais pas essayé avant de vous embêter

il suffisait de faire

ActiveChart.SeriesCollection(1).Values = nomplage

Ma foi, désolé d'avoir posté pour rien

Merci pour vos réponses rapides !

Amicalement,

Calagan