1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Il n'est pas nécessaire d'ouvrir deux applications Excel simultanémnet
'C'est comme quand on utilise Excel "à la mitaine". Excel peut ouvrir
'des classeurs simultanément
Dim Bud As New Microsoft.Office.Interop.Excel.Application
Bud.Visible = True
'ouvrir 2 classeurs
Dim xlBook, Bud_book As Microsoft.Office.Interop.Excel.Workbook
xlBook = Bud.Workbooks.Open("C:\Users\Clément Marcotte\Documents\CompilationDeDonnées.xlsm")
Bud_book = Bud.Workbooks.Open("C:\Users\Clément Marcotte\Documents\Classeur1.xlsm")
' Désigner une feuille de chaque classeur
Dim source As Microsoft.Office.Interop.Excel.Worksheet = xlBook.Worksheets("Onglet")
Dim cible As Microsoft.Office.Interop.Excel.Worksheet = Bud.Sheets("Feuil2")
Try
'La plupart du temps, cela ne sert à rien de
'sélectionner une feuille, parce que l'on peut
'utiliser directement la plupart des objets
'source.Select()
source.Range("A1:L19").Copy()
cible.Paste()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'fermer les 2 classeurs
With xlBook
.Save()
.Close()
End With
With Bud_book
.Save()
.Close()
End With
'Vérifier dans le gestionnaire de tâches si Excel s'est bien fermé
'Au besoin, le fermer manuellement.
Bud.Quit()
End Sub |