VBA copie d'un classeur à l'autre sans liens

Re : VBA copie d'un classeur à l'autre sans liens

Bonjour,

A tester :

Sub Test()
classeurSource.Sheets("source").Cells.Copy
With classeurDestination.Sheets("destination").Range("A1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats 'Optionnel
End With
End Sub


NB - il vaut mieux remplacer Cells.Copy par Range("Zone à copier").Copy

Re : VBA copie d'un classeur à l'autre sans liens

Ca marche !!
Merci

Re : VBA copie d'un classeur à l'autre sans liens

en fait j'ai un bug
Pour un onglet, ca marche
mais j'en copie 3 d'affilée :
classeurSource.Sheets("Supplier Deliverables").Cells.Copy
With classeurDestination.Sheets("Deliverables_Database").Range("A1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats 'Optionnel
End With
classeurSource.Sheets("Risks-Issues").Cells.Copy
With classeurDestination.Sheets("Risks_Database").Range("A1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats 'Optionnel
End With
classeurSource.Sheets("KPIs").Cells.Copy
With classeurDestination.Sheets("Quality_Database").Range("A1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats 'Optionnel
End With

et j'ai comme message d'erreur :
La méthode PasteSpecial de la classe Range a echouée

Re : VBA copie d'un classeur à l'autre sans liens

Re,

chez moi, pas de plantage.
A quel endroit cela plante t il ?

Il faut éviter de faire un copy des Cells. Ca manipule un gros volume de données ...

Re : VBA copie d'un classeur à l'autre sans liens

Ca venait de ca, j'ai utilisé range et maintenant ca marche !
Merci

Re : VBA copie d'un classeur à l'autre sans liens

sinon il y a la solution de supprimer les plages nommées du classeur déstination par macro (si bien sur il n'y a pas de plage nommée dnas le classeur de déstination)


Dim I As Integer
On Error Resume Next
I = MsgBox("Attention ce code supprime les plages nommées, pas de retour possible!" & Chr(10) & "Voulez vous continuer?", vbYesNo, "Attention à la macro")
If I = 6 Then
For I = 1 To ActiveWorkbook.Names.Count
ActiveWorkbook.Names(I).Delete
Next I
End If