Bonjour,

Je ne vois pas d'où vient l'erreur indiquée dans le titre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 Dim W As Workbook
 'Sauvegarde
        ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & E & ".xls"
        Set W = Workbooks(E) 'attribution de la feuille de classeur
la ligne ci dessous est surligné en jaune

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set W = Workbooks(E) 'attribution de la feuille de classeur
Merci de votre aide