bonjour a tous
j'ai 2 fichiers
le premier se nommant "MM" dans lequel je travail sur la "FEUIL2"
je sélectionne une zone (CurrentRegion) (cette zone est composée de X colonnes et X lignes)
le deuxième (classeur = ActiveWorkbook.Name) ayant une feuille SHEET ("MOT")
ce que je voudrais faire c'est de copier la zone sélectionnée dans "MM" et l'insérer dans le deuxième classeur dans la feuille ("MOT") au niveau de ActiveCell.Offset(2, 0 )
Pourriez-vous m'aider à ecrire ce code
pour info
je voudrais ecrire ce code a la suite de celui-ci
Dim Cellule_Ref As Range ' pour déclarer l'objet au début de ta macro
Dim Cellule_Rf As Integer
Cellule_Ref = ActiveCell
Dim fin As Long
Dim classeur As String
classeur = ActiveWorkbook.Name
'-------------------------------------------------------------------------------------------------------------
' creation d'un plan dans MM feuille 2
'--------------------------------------------------------------------------------------------------------------
Range("c2").CurrentRegion.Copy
Sheets.Add After:=ActiveSheet
Sheets("feuil2").Range("A1").PasteSpecial xlPasteValues
Columns("c:c").Replace What:="total ", Replacement:=""
'-------------------------------------------------------------------------------------------------------------
' import /insertion la zone selectionnée vers --> ActiveCell.Offset(2, 0)qui est dans
' "classeur" (variable déclarée), sheets("MOT")
'--------------------------------------------------------------------------------------------------------------
Range("c2").CurrentRegion.Copy