Guthurhall
XLDnaute Nouveau
Bonjour au forum,
Je sollicite votre aide car j'ai un souci sur un code VBA.
Je fais en gros un copier coller d'un classeur vers un autre et je souhaite fermer celui dont je copie les info et laisser ouvert celui sur lequel je colle les infos.
Mon code donne ceci mais je ne sais pas quoi mettre à la fin pour obtenir ce résultat. Pour l'instant, je n'arrive qu'à fermer la fenêtre active mais ce n'est pas celle-ci que je veux fermer.
Merci de votre aide !!!
Sub Données_Y0000n()
Dim Fichier As Variant
Dim Wb As Workbook
Dim Excelapp As Excel.Application
ChDrive "D"
ChDir "D:\Utilisateurs\0000\Mes documents\INTERNET\Transactions internet\2010\"
Fichier = Application.GetOpenFilename("Classeur Excel (*.xls), *.xls")
Set Excelapp = CreateObject("Excel.Application")
Excelapp.Visible = False
Set Wb = Workbooks.Open(Fichier)
Set Wb = Nothing
Range([a2].End(xlDown), [l2]).Select
Selection.Copy
Windows("Rapprochement transactions.xls").Activate
Range("a65536").End(xlUp).Offset(1).Select
ActiveSheet.Paste
End Sub
Je sollicite votre aide car j'ai un souci sur un code VBA.
Je fais en gros un copier coller d'un classeur vers un autre et je souhaite fermer celui dont je copie les info et laisser ouvert celui sur lequel je colle les infos.
Mon code donne ceci mais je ne sais pas quoi mettre à la fin pour obtenir ce résultat. Pour l'instant, je n'arrive qu'à fermer la fenêtre active mais ce n'est pas celle-ci que je veux fermer.
Merci de votre aide !!!
Sub Données_Y0000n()
Dim Fichier As Variant
Dim Wb As Workbook
Dim Excelapp As Excel.Application
ChDrive "D"
ChDir "D:\Utilisateurs\0000\Mes documents\INTERNET\Transactions internet\2010\"
Fichier = Application.GetOpenFilename("Classeur Excel (*.xls), *.xls")
Set Excelapp = CreateObject("Excel.Application")
Excelapp.Visible = False
Set Wb = Workbooks.Open(Fichier)
Set Wb = Nothing
Range([a2].End(xlDown), [l2]).Select
Selection.Copy
Windows("Rapprochement transactions.xls").Activate
Range("a65536").End(xlUp).Offset(1).Select
ActiveSheet.Paste
End Sub