bonjour PY,
pour ta 1ere question, dans ton workbook open () tu fais une recherche des feuilles que tu as crée
Set fs = Application.FileSearch
With fs
.LookIn = 'ton répertoire
.SearchSubFolders = True 'vrai si tu veux rechercher dans tes ss-repertoires
.Filename = 'le nom de tes feuilles
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
Exit Sub
End If
End With
Pour ce qui est des barres de menu :
dans workbook open()
Application.CommandBars(1).Enabled = True
Application.CommandBars(3).Enabled = True
et = False dans workbook beforeclose ()
je ne sais plus quel numéro sert à quelle barre mais tu essaieras.