Je cherche à copier une plage de cellule d'un classeur en feuil1 pour les copier dans un autre classeur dans la feuille "toto" à partir de la cellule B2 par exemple.
ActiveWorkbook.Sheets(1).Cells.Copy
With ThisWorkbook.Sheets("toto").Cells
.PasteSpecial Paste:=xlPasteValues
.Application.CutCopyMode = False
End With
ActiveWorkbook.Close
Pour copier une feuille entière, il faut se positionner sur la cellule A1.
Exemple type :
Option Explicit
'
Public Sub Import()
Dim NomFichier As String
Dim ClasseurCourant As Workbook
Dim ClasseurACopier As Workbook
Set ClasseurCourant = ThisWorkbook
NomFichier = ChoisirFichier
If (NomFichier <> "") Then
Workbooks.Open Filename:=NomFichier
Set ClasseurACopier = ActiveWorkbook
ActiveWorkbook.Sheets(1).Cells.Copy
ClasseurCourant.Sheets("Toto").Range("A1").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ClasseurACopier.Activate
ClasseurACopier.Close
ClasseurCourant.Activate
ActiveWorkbook.ActiveSheet.Range("A1").Select
End If
End Sub
'
Private Function ChoisirFichier() As String
Dim Fichier As String
' Choix fichier
MsgBox "Choisir le fichier "
Fichier = Application.GetOpenFilename
ChoisirFichier = Fichier
End Function
Option Explicit
'
Public Sub Import()
Dim NomFichier As String
Dim ClasseurCourant As Workbook
Dim ClasseurACopier As Workbook
Set ClasseurCourant = ThisWorkbook
NomFichier = ChoisirFichier
If (NomFichier <> "") Then
Workbooks.Open Filename:=NomFichier
Set ClasseurACopier = ActiveWorkbook
ActiveWorkbook.Sheets(1).Range("A1:C6").Select
Selection.Copy
ClasseurCourant.Activate
Sheets("Toto").Select
Range("E7").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ClasseurACopier.Activate
ClasseurACopier.Close
ClasseurCourant.Activate
ActiveWorkbook.ActiveSheet.Range("A1").Select
End If
End Sub
'
Private Function ChoisirFichier() As String
Dim Fichier As String
' Choix fichier
MsgBox "Choisir le fichier "
Fichier = Application.GetOpenFilename
ChoisirFichier = Fichier
End Function
55998 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3
- Date d'inscription
- mercredi 13 février 2019
- Dernière intervention
- 18 février 2019
-Mais j'aimerais par exemple placer mes cellules dans a partir de la cellule E7 directement