bonjour
Sub j()
For Each Wb In Workbooks
If Wb.Name <> "Classeur3" And Wb.Name <> "PERSO.XLS" Then
Application.Run Wb.Name & "!auto_open"
End If
Next Wb
End Sub
'attention un de mes classeurs s'appelle "Classeur3" sans l'extension parcequ'il n'a pas encore été sauvegardé, sinon il doit porter l'extension
bye
stephane