Bonjour,
A la fin de mon travail, je voudrais copier une feuille en écrasant la feuille protégée, présente dans un classeur fermé. Le classeur en lui-meme n'est pas protégé.
J'ai écrit :
mais j'ai un message qui me dit que MAJ.xls est protégé contre l'écriture.
Est-ce que quelqu'un peut m'aider ?
Merci
A la fin de mon travail, je voudrais copier une feuille en écrasant la feuille protégée, présente dans un classeur fermé. Le classeur en lui-meme n'est pas protégé.
J'ai écrit :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
Application.DisplayAlerts = False
ThisWorkbook.Sheets("F1").Copy 'Copie la Feuille Tables dans un nouveau classeur
'Enregistrement sous fichier existant
ChDir "\SHARED\DONNEES\xxx\# Livrables"
ActiveWorkbook.SaveAs Filename:= _
"\SHARED\DONNEES\xxx\# Livrables\MAJ.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
code
Windows("MAJ.xls").Close savechanges:=True
Application.EnableEvents = True
Application.DisplayAlerts = True
Est-ce que quelqu'un peut m'aider ?
Merci
Aucun commentaire:
Enregistrer un commentaire