Bonjour

j'obtiens une interruption d'exécution suite à ce code avec surlignageen jaune de la ligne set fd1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim fd1 As Worksheet
Dim wb1 As Workbook ' les concessionnaires
Chemin = ActiveWorkbook.Path
Set wb1 = Workbooks.Open(Chemin & "\GESTPV_CONC.xlsx")
Set fd1 = wb1.Sheets("GLOBAL")
où est l'erreur ?
cordialement