Bonjour a tous,
voila mon problême, actuellement j'ai un classeur avec une feuille qui me sert de modèle pour editer un essai, et qui est en liaison avec deux feuilles du meme classeur,
donc pour editer un essai a part entiere, je duplique cette feuille ,je copie les valeurs et je fais un collage special des valeurs, de maniere a ne plus avoir de formules en liaisons avec les deux feuilles, et partir de la je la deplace dans un nouveau classeur.
le seul probleme c'est qu'une liaison se crée, et je ne sais pas comment eviter cette liaison, comment pourrais je l'eviter avec un code VB
voila le code!!!
Pouvez vous m'aider s'il vous plait
Sub creation_nouvel_essai()
' creation_nouvel_essai Macro
'
Dim Dwo As Object
Application.ScreenUpdating = False
'duplicata de la feuille essai
Sheets("Essai").Copy Before:=Sheets(1)
Sheets("Essai (2)").Unprotect Password:="bpe2010"
'renommer la copie de la feuille essai
Sheets("Essai (2)").Name = "New_test"
Sheets("new_test").DrawingObjects.Delete
'copie et collage special des valeurs pour les cellules
'en liaison avec la feuille formulation
Sheets("new_test").Range("E7:H7").Copy
Sheets("new_test").Range("E7:H7").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("E9:N9").Copy
Sheets("new_test").Range("E9:N9").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C13:e23").Copy
Sheets("new_test").Range("C13:e23").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C24:d27").Copy
Sheets("new_test").Range("C24:d27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C28:e30").Copy
Sheets("new_test").Range("C28:e30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("e24:e27").Copy
Sheets("new_test").Range("e24:e27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("G13:G30").Copy
Sheets("new_test").Range("G13:G30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("J13:J30").Copy
Sheets("new_test").Range("J13:J30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K13:K21").Copy
Sheets("new_test").Range("K13:K21").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K22:K23").Copy
Sheets("new_test").Range("K22:K23").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K24:K30").Copy
Sheets("new_test").Range("K24:K30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("N13:N27").Copy
Sheets("new_test").Range("N13:N27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Protect Password:="bpe2010"
'deplacer New_test dans un nouveau classeur
Sheets("New_test").Move
End Sub
voila mon problême, actuellement j'ai un classeur avec une feuille qui me sert de modèle pour editer un essai, et qui est en liaison avec deux feuilles du meme classeur,
donc pour editer un essai a part entiere, je duplique cette feuille ,je copie les valeurs et je fais un collage special des valeurs, de maniere a ne plus avoir de formules en liaisons avec les deux feuilles, et partir de la je la deplace dans un nouveau classeur.
le seul probleme c'est qu'une liaison se crée, et je ne sais pas comment eviter cette liaison, comment pourrais je l'eviter avec un code VB
voila le code!!!
Pouvez vous m'aider s'il vous plait
Sub creation_nouvel_essai()
' creation_nouvel_essai Macro
'
Dim Dwo As Object
Application.ScreenUpdating = False
'duplicata de la feuille essai
Sheets("Essai").Copy Before:=Sheets(1)
Sheets("Essai (2)").Unprotect Password:="bpe2010"
'renommer la copie de la feuille essai
Sheets("Essai (2)").Name = "New_test"
Sheets("new_test").DrawingObjects.Delete
'copie et collage special des valeurs pour les cellules
'en liaison avec la feuille formulation
Sheets("new_test").Range("E7:H7").Copy
Sheets("new_test").Range("E7:H7").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("E9:N9").Copy
Sheets("new_test").Range("E9:N9").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C13:e23").Copy
Sheets("new_test").Range("C13:e23").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C24:d27").Copy
Sheets("new_test").Range("C24:d27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("C28:e30").Copy
Sheets("new_test").Range("C28:e30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("e24:e27").Copy
Sheets("new_test").Range("e24:e27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("G13:G30").Copy
Sheets("new_test").Range("G13:G30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("J13:J30").Copy
Sheets("new_test").Range("J13:J30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K13:K21").Copy
Sheets("new_test").Range("K13:K21").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K22:K23").Copy
Sheets("new_test").Range("K22:K23").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("K24:K30").Copy
Sheets("new_test").Range("K24:K30").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Range("N13:N27").Copy
Sheets("new_test").Range("N13:N27").PasteSpecial Paste:=xlPasteValues
Sheets("new_test").Protect Password:="bpe2010"
'deplacer New_test dans un nouveau classeur
Sheets("New_test").Move
End Sub