Bonjour voila j'essayes d'importer tous les données de ma feuille qui se trouves dans le classeur Absences.xls (y a une seule feuille) dans le classeur actif dans la feuille Absences.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub importation_absences()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "C:\Users\AA0B554N\Desktop\Actes_TST_BT\Absences.xls"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
wk1.Sheets("Absences") = wbk2.Sheets(1)
wbk2.Close
End Sub
j'ai une erreru objet requis au niveau de la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
wk1.Sheets("Absences") = wbk2.Sheets(1)