Discussion :

[jojo86]

Bonjour,

Voici mon réel problème :

J'ai trois fichiers qui sont tous plus ou moins liés.

Un fichier A un fichier B

Lorsque j'ajoute un nouveau Mois dans mon Fichier A, je viens ajouter une colonne dans le fichier B avec, dans quelques cellules de B, des valeurs de A.
Ca fonctionne bien, mais lorsque je passe à l'année suivante, toutes mes formules changent et passent à l'année suivante, donc j'ai une erreur #REF!

Par exemple, je fais correspondre mes valeurs par cette commande :

Code :

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

1
2
3
4
5
6
 
Sub Test ()
Dim CheminFichier As String
'Par programmation j'ai déjà ouvert le classeur sur lequel j'apporte mes modifications et c'est lui le classeur actif
CheminFichier = ActiveWorkbook.Path
Cells(5, 1).FormulaR1C1 = "='" + CheminFichier + "\[NomDeMonFichier2009.xls]" + NomDeMaFeuil2009 + "'!R3C11"

Ce code fonctionne bien, et dans le fichier B la formule de la cellule apparait de cette façon :

Code :

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

='[NomDeMonFichier2009.xls]NomDeMaFeuil2009'!$K$3

Jusqu'ici pas de soucis, mon problème intervient lorsque je ferme mon fichier 2009 et que j'ajoute une colonne 1er Janvier 2010 dans mon fichier B.

La commande d'ajout de la colonne est toujours la même sauf que cette fois, nous travaillons sur un autre fichier (le fichier 2010)

A partir de là, toutes mes anciennes Formules changent de valeur pour celle-ci :

Code :

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

='[MonFichier2010.xls]#REF'!$K$3

Voila, donc je suppose qu'excel essaye de faire un truc intelligent... Mais j'arrive pas à comprendre pourquoi il le fait et Surtout, comment arrêter cela !

Merci d'avance.

[mercatog]

peut-être à la place de

Code :

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

Cells(5, 1).FormulaR1C1 = "='" + CheminFichier + "\[NomDeMonFichier2009.xls]" + NomDeMaFeuil2009 + "'!R3C11"

mettre

Code :

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

Cells(5, 1).FormulaR1C1 = "='[" thisworkbook.fullname & "]" & NomDeMaFeuil2010 &"'!R3C11"

[jojo86]

Et non...

Toujours pas...

[mercatog]

Insuffisant comme réponse; très insuffisant même
NomDeMaFeuil2010 existe bien?
un pas pas te donne quoi?

.....

[jojo86]

En faite je pense avoir mis le doigt sur le soucis avec ta methode...

Lorsque j'utilise ta commande, je viens juste d'ajouter le nouvel Onglet, et donc NomDeMaFeuil n'apparait dans le classeur qu'à la fin de la macro...

Pourtant la commande est bien lancée après l'ajout de l'onglet, mais si j'utilise ta commande j'ai une fenetre qui s'ouvre me demandant de choisir un fichier et un nom de feuille, et si je le fais, je m'apperçois que MaFeuille2010 n'est pas encore présente.

Une solution?

J'ai tenté d'inserer un "RefreshAll" mais mon classeur reste identique jusqu'à la fin de ma macro...