Copie EXCEL

[xls]

Bonjour,

Je souhaite trouver un programme pour copier un tableau dans un classeur excel ( le tableau est A112 dans le feuillet Feuil1 du classeur nomme Principal.xls) vers un autre classeur excel deja existant ( Second.xls en A1 ).
Je souhaite que ce programme s'effectue lors d'un clic sur un bouton.
Pourriez vous m'aider a la mise en place de ce programme.

Merci d'avance.

 

[F.launay]

Bonjour, ci joint un bout de code qui te permetrra d'y arriver

'Copie de données dans feuille resultat
With Worksheets(base)
.Range(.[A7], .[B7].Offset(vlign)).Copy Worksheets(resultat).[A7]
End With

'et dans feuille resultat
Range(A7).Select
Selection.Copy
Worksheets(CALCUL).Activate
Range("b22").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
après tu creer un bouton avec la barre d'outils formulaire
ou avec le code suivant à inserer dans un module

Comment créer un bouton et y affecter une macro?
Sub CréerBouton()
'Défini l'emplacement et la taille du bouton
ActiveSheet.Buttons.Add(60, 0, 60, 12.75).Select
Selection.OnAction = "AffecterMaMacro"
Selection.Characters.Text = "Mon bouton"
With Selection.Characters(Start:=1, Length:=12).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
End Sub