Je souhaite copier/coller des données qui sont dans un fichier vers un autre fichier.
Cependant j'ai un message d'erreur lors de l'exécution de mon code
- j'ai le message suivant: la méthode select de la classe Range a échoué
Voici le code :
Code:
Sub extraire()
Workbooks("Ex").Sheets("TRANSACTIONS").Range("B4:V10000").Select
Selection.Copy
Windows("DailyReport_draft.xlsm").Activate
Sheets("TRANSACTIONS").Activate
Range("A4").Select
ActiveSheet.Paste
'A partir de cette ligne, il me met le message : la méthode select de la classe Range à échoué mais je ne sais pas pourquoi"
Workbooks("Ex").Sheets("OPEN POSITIONS").Range("B4:N10").Select
Selection.Copy
Windows("DailyReport_draft.xlsm").Activate
Sheets("OPEN POSITIONS").Activate
Range("B6").Select
ActiveSheet.Paste
End Sub
Re : La méthode select de la classe Range à échoué
Bonsoir le fil, bonsoir le forum,
Une proposition sans Select...
Code:
Sub extraire()
Dim cc As Workbook 'déclare la variable cc (Classeur Cible)
Dim no As String 'déclare la variable no (Nom Onglet)
Set cc = Workbooks("DailyReport_draft.xlsm")
no = "TRANSACTIONS"
Workbooks("Ex").Sheets(no).Range("B4:V10000").Copy cc.Sheets(no).Range("A4")
no = "OPEN POSITIONS"
Workbooks("Ex").Sheets(no).Range("B4:N10").Copy cc.Sheets(no).Range("B6")
End Sub