Discussion :

[Cgoldy]

Bonjour ,

Je débute en VBA et je n'arrive pas à copier des cellules d'un classeur vers un nouveau classeur. ça plante à la dernière ligne " selection paste" .
tout marche, le nouveau classeur s'ouvre bien, la cellule "A1" est selectionnée, mais ça veut pas "coller"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Range("A1:E5").Select
Selection.Copy
 
Application.SheetsInNewWorkbook = 1
Application.Workbooks.Add
 
Range("A1").Select
 
Selection.Paste
 
End Sub

je pense que la solution doit être facile pour vous.
Merci pour votre aide.

[Cgoldy]

Personne n'a répondu, alors j'ai cherché testé et trouvé la soluce.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
With ThisWorkbook.Worksheets("Feuil2")
     .Activate
 
     Range("A1:B9").Select ' on selectionne
    Selection.Copy         ' on copie
   Workbooks.Add           ' on ouvre un classeur
   Range("c1").Select      ' on choisit l'endroit ou l'on va coller notre selection
    ActiveSheet.Paste      ' on colle
   .Activate               ' on revient au classeur d'origine
End With
End Sub

[Sogestion]

Bonjour ,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Range("A1:E5").Select
Selection.Copy
 
Application.SheetsInNewWorkbook = 1
Application.Workbooks.Add
 
Range("A1").Select
 
Selection.Paste
 
End Sub

Bonsoir,

Sugestion évitez les Select

Voici un code testé

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
16
17
Sub TestCopie()
 
    Dim WsScr As Worksheet, WsDest As Worksheet, MaPlage As Range
 
    Set WsScr = Worksheets(ActiveSheet.Name) ' a adapter a vos besoins
    Set MaPlage = WsScr.Range("A1:E5")
 
    Application.SheetsInNewWorkbook = 1
    Application.Workbooks.Add
 
    Set WsDest = Worksheets(ActiveSheet.Name)
 
    MaPlage.Copy WsDest.Range("A1")
 
    ' Libérer mémoire -------------------------------------------------
    Set WsScr = Nothing: Set WsDest = Nothing: Set MaPlage = Nothing 
End Sub

__________________
Cordialement
Albert

[Cgoldy]

Merci Sogestion !!

Votre code est plus "pro" que le mien c'est sur !!

je vais m'en inspirer pour la suite
Merci encore