Copier un code Thisworksheet d'un classeur à un autre

Bonjour Gaspareau,

Tu aurais intérêt à demeurer dans le même fil déjà débuté.

P.-S. Ta question est incompréhensible :

1 - l'objet ThisWorksheet n'existe pas

2 - le code à copier est où? et tu veux le copier où? Ça ne devrait pas être trop difficile à formuler. Précise le nom du classeur
et le nom du module source et celui de destination.


Salutations!


"Gaspareau" <123@234> a écrit dans le message de news: uei5Gsi6FHA.1184@TK2MSFTNGP12.phx.gbl...
Bonjour,

Je reposte car à la relecture je crois que j'avais pas été assez clair
précédemment.

Ce que je voudrais c'est de pouvoir, via un bouton de macro, copier un code
allant dans Thisworksheet
et écrit quelque part (dans un fichier texte, dans le fichier Perso.xls ou
autre suggestion)
dans la feuille en cours.


Merci beaucoup

Le code à copier est celui-ci provenant d'un modèle fait par G. Mourmant :


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Macro créée par G.Mourmant le 01/09/2001
' Site web : www.polykromy.com
' Copyright Gaetan Mourmant

'*** Définition des variables ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left

'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0

'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With

ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name "RectangleH"

With ActiveSheet.Shapes("RectangleH")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With


End Sub