A voir également:
- Copie de cellule provenant d'un classeur externe
- Copie cachée - Guide
- Chkdsk disque dur externe - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
3 réponses
Bonjour,
Pour copier une feuille entière, il faut se positionner sur la cellule A1.
Exemple type :
K
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
K
Bonjour,
Il te suffit de sélectionner la plage à copier :
Ça donne quelque chose du genre :
K
Il te suffit de sélectionner la plage à copier :
ActiveWorkbook.Sheets(1).Range("A1:C6").Select
Selection.Copy
Ça donne quelque chose du genre :
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
K
Mais j'aimerais par exemple placer mes cellules dans a partir de la cellule E7 directement