Astuces Excel
  1. Astuces Excel
  3. Excel VBA comment copyr le contenu d'une cellule d'un livre à l'autre
Intereting Posts
Excel COUNTIFS formule match 'not' x Matlab: stockage de gros nombres VBA prend la saisie des users (entier) et entre dans une timer Excel 2007 Passer une variable au classur Excel dans Workbook_Open Comment collecter des references d'Excel dans un arraylist Excel VBA SubTotals Comment gérer cette exception liée à Excel Ajoute dynamicment la valeur de TextBox à une variable dans Excel en utilisant macro VBA Comparez 2 feuilles de différents classurs jusqu'à ce qu'une ligne particulière soit atteinte Ecrire un file Excel avec Java Les problèmes ExcelVBA avec la déclaration IF else VBA – Impossible de cliquer sur un lien sur le site Formule Excel … à de nombreux arguments Décompresser un file zip protégé par mot de passe et extraire des files à l'aide de Excel VBA Enregistrer la table html dans Excel

Excel VBA comment copyr le contenu d'une cellule d'un livre à l'autre

J'essaie de créer une macro qui copyra un contenu de cellule d'un classur vers un autre. Le problème est que, dans le classur original, il existe des liens vers une autre feuille de calcul dans ce classur et, après que ma macro effectue le travail, les liens se réfèrent à la feuille du file source. Par exemple, dans le file source, j'ai =CONCATENATE(A1,Sheet2!A1) et après la copy, le contenu de la cellule devient =CONCATENATE(A1,[Source.xlsm]Sheet2!A1) Ho pour éviter d'apparaître [Source.xlsm] ? 

 Sub Copy() Dim wbk As Workbook Range("A1:B1").Copy Set wbk = Application.Workbooks.Open(ThisWorkbook.Path & "/subdir/destination.xlsx") With wbk.Sheets("Sheet1") Range("A1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With End Sub

Merci d'avance

Utilisez la méthode Range.Replace pour supprimer [Source.xlsm] des formules. 

 With wbk.Sheets("Sheet1") .Range("A1").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False .Cells.Replace What:="[Source.xlsm]", Replacement:="", LookAt:=xlPart, _ MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End With

btw, vous avez manqué le . .Range("A1").PasteSpecial...