Discussion :

[Chamboultou]

Bonjour à Tous

Mon problème est le suivant :
Lorsque je copie une feuille depuis un classeur "Base" dans un autre fichier "Titi" en conservant les formules, je récupère plein de références à l'ancien classeur "Base" du genre :

Code :

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

=INDEX('[Base.xlsm]BW'!$F:$F;EQUIV(CONCATENER($A10;$C10;E$2);'[Base.xlsm]BW'!$G:$G;0))

Je voudrais les supprimer et que Titi calcule tout grâce à ses feuilles à lui (il a aussi un onglet BW).
Donc je pensais remplacer [Base.xlsm] par rien dans les formules tout simplement et du coup avoir :

Code :

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

=INDEX('BW'!$F:$F;EQUIV(CONCATENER($A10;$C10;E$2);'BW'!$G:$G;0))

Mais lorsque j'emploie ce code :

Code :

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

1
2
3
Workbooks.Open Filename:="K:\DIDIER D\Titi.xlsx"
Workbooks("Base.xlsm").Sheets("CA par taux").Rows("4:174").Copy Destination:=Workbooks("Titi.xlsx").Sheets("CA par taux").Range("A4")
Range("A4:AA174").Replace What:="[Base.xlsm]", Replacement:="", LookAt:=xlPart

Cela ne fonctionne pas,

Par contre j'en suis pas loin car quand je la relance depuis le Titi qui s'est ouvert ça fonctionne.
Comment faire pour que cela fonctionne du premier coup ?

Merci beaucoup pour votre aide

Titi.xlsxBase.xlsm

[MarcelG]

Bonjour,

2 méthodes à mon avis.

- Balayer les cellules spéciales détenant une formule
(je ta laisse traduire)
et leur affecter leur valeur par

Code :

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

.Value = .Value

- Modifier la liaison du classeur.
Remplacer le classeur annexe par lui-même.
L'enregistreur de macro t'indiquera la méthode.

[Chamboultou]

Bonjour Marcel

D'apres ce que je comprends, ta solution 1 serait de remplacer toutes les cellulles qui posent pb par leur valeurs.
Or ca ne va pas car je dois absolument garder les formules, donc conserver le lien vers l'onglet BW mais du nouveau fichier.
Faire comme si une image du fichier d'origine été créée.
Idem si je supprime la liaison dans base j'obtiens une valeur et donc plus de calculs depuis BW!Titi
Donc ca va pas non plus..

Ta solution 2 est celle que j'essaye de mettre en place mais je rame depuis 2 jours
Tu crois que si je remplace Base! par Titi! ca fonctionnerait ?

Cordialement
Didier

[MarcelG]

Salut,

Les "Replace" sont parfois galère.

Passe par l'enregistreur.
Tu modifies la liaison du classeur Titi avec Base en Titi avec Titi.
Théoriquement, la liaison devrait être supprimée.
(Voir dans "Fichier")

[Chamboultou]

Oui par l'enregistreur ça marche mais j'ai un code à rallonge :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Workbooks.Open Filename:="K:\DIDIER D\Modele cadrage DD.xlsx"
Sheets("CA par taux").Select
Windows("Base DURE.xlsm").Activate
Rows("4:174").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Modele cadrage DD.xlsx").Activate
ActiveWindow.SmallScroll Down:=-6
ActiveSheet.Paste
Selection.Replace What:="[Base DURE.xlsm]", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("E4").Select
Windows("Base DURE.xlsm").Activate

Y a pas un moyen pour diminuer un peu ces lignes ? J'ai une macro super longue a faire
Mercii

[MarcelG]

1- Balise ton code en utilisant les bornes #
2 - Oui, tu peux purger ce code en supprimant ces f... Select, Activate... qui n'apportent rien si ce n'est de le rendre moins lisible
3 - Tu n'as pas suivi mon indication consistant à modifier la liaison. Tu préfères remplacer une partie de tes formules. OK. C'est pour cette solution que je t'ai proposé de modifier la liaison en utilisant l'enregistreur.
4 - Plutôt que de sélectionner une fenêtre, mieux vaut sélectionner un objet classseur, Range....

L'enregistreur rend service, certes, mais il est obligatoire de le "purger".