Bonjour à toutes et à tous!
Je suis en difficulté avec mon code VBA, je fais des copier coller dans un classeur qui est crée mais les liens avec le classeur d'origine sont conservés. Ainsi quand recommence un calcul les résultats qui avaient été copiés s'éfface.
Ma question est la suivante: Comment peut - on faire du copier coller sans les liaisons.
Voci mon code de copier coller:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 'Création du nouveau classeur resultat Sub AddNew() On Error Resume Next Set Newbook = Workbooks.Add(xlWBATWorksheet) On Error Resume Next With Newbook .Title = "Resultats Calcul" .Subject = "Resultats" .SaveAs Filename:="Resultats Calcul.xls" End With End Sub 'Copier coller sur la feuille active du nouveau classeur Private Sub ComboBox3_Change() On Error Resume Next ThisWorkbook.Sheets(ComboBox3.Text).UsedRange.Copy Workbooks("Resultats Calcul.xls").ActiveSheet.Range("A1") On Error Resume Next Workbooks("Resultats Calcul.xls").ActiveSheet.Name = ComboBox3 On Error Resume Next Call Addfeuil 'appel de procédure permettant d'ajouter une nouvelle feuille End Sub
Merci pour votre aide
Partager