Supprimer une réf à un autre classeur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
didi75
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 15 novembre 2017
Version d'Excel : 2016 FR

Message par didi75 » 19 novembre 2018, 14:39

Boujour à 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 :

=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 :

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

Mais lorsque j'emploie ce code :

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")
Titi.xlsx
(646.4 Kio) Téléchargé 6 fois
Range("A4:AA174").Replace What:="[Base.xlsm]", Replacement:="", LookAt:=xlPart

Cela ne fonctionne pas et les [Base.xlsm] sont toujours là dans Titi

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

Merci beaucoup pour votre aide
Base.xlsm
(716.46 Kio) Téléchargé 7 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 1'485
Appréciations reçues : 100
Inscrit le : 29 mai 2018
Version d'Excel : 2016 (365)

Message par ric » 20 novembre 2018, 12:30

Bonjour,

Un essai ....
Sub Macro1()

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")

   Windows("Titi.xlsx").Activate
   Application.CutCopyMode = False
   Cells.Replace What:="[Base.xlsm]", Replacement:="", LookAt:=xlPart, _
                 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                 ReplaceFormat:=False
   Windows("Base.xlsm").Activate
End Sub



ric
Smart Indenter,
Excel fermé, https://www.add-ins.com/macro-products- ... a-code.htm .
Puis, clic-droit sur le code.

Ma formation avance ... je ne sais pas quelle forme j'aurai. :P
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message