Discussion :

[dimitri70]

Bonjour

Je débute sur VBA et malgré de nombreuses tentatives je n'arrive pas à copier/coller un plage de sélection d'un onglet dans un autre fichier excel.

Voici le code que j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CR()
 
'
' CR Macro
'
 
' Range(Cells("A1:N56").selection
Selection.Copy
   Workbooks.Add
   Selection.PasteSpecial xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=Thrue, Transpose:=False
 
End Sub

Avec ce code j'ai juste la cellule selectionnée dans mon onglet qui vient se coller dans la cellule A1 du nouvel onglet. Je suis complètement à la ramasse et j'ai grandement besoin de votre aide.

Merci d'avance

[SMBeccaria]

Bonjour,

Essaie comme cela:

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
 
 
Sub CR()
 
'
' CR Macro
'
 
Range("A1:N56").select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=Thrue, Transpose:=False
 
End Sub

Je ne sais pas ce que tu veux faire, mais je sais que cela marche donc c'est un bon début pour toi.

Cdt

[Invité]

Une méthode sans doute 'plus propre':

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub Test()
 
  Dim wbk1 As Workbook, wbk2 As Workbook
 
  Set wbk1 = ActiveWorkbook
  wbk1.Worksheets("Feuil1").Range("A1:N56").Copy
 
  Set wbk2 = Workbooks.Add
  wbk2.Worksheets("Feuil1").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme, Operation:=xlNone, _
                                                     skipBlanks:=True, Transpose:=False
 
End Sub

[casefayere]

Même ordre d'idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim wbk1 As Workbook, wbk2 As Workbook
 
Set wbk1 = ActiveWorkbook
Set wbk2 = Workbooks.Add
wbk2.Worksheets("Feuil1").Range("A1:N56") = wbk1.Worksheets("Feuil1").Range("A1:N56").Value

[dimitri70]

Merci SMBECCARIA mais j'ai toujours le même problème, ca ne me copie que la cellule sélectionné dans mon onglet.
Ce que je cherche à faire c'est copier mon onglet dans un nouveau fichier ecxel.

[clementmarcotte]

Bonjour,

Dans ta question tu parles de copier-coller une plage de cellules. Et là tu sembles dire que tu veux copier une feuille complète (un onglet, apparemment) et que la copie se retrouve dans un nouveau fichier. Je ne pense pas que tu obtiennes de nouvelles réponses, sans une question précise...