[VBA-E] Sauver en Read-Only et reprendre la main

Bonjour à tous,

Cela faisait un petit moment :)

Je cherche, via un raccourci clavier, à sauver mon classeur à 2 endroits différents dont 1 en Read-Only et l'autre en mode normal, lecture-écriture.

Seulement en bloquant dans mon code, j'ai lu ceci:

Citation:

---

An option that you can set so that a file can be read but not changed. You can open and view a read-only workbook, but you cannot save changes to the workbook file. If you edit the read-only workbook, you can save your changes only if you give the workbook a new name or save a copy in another location.

---

Comment m'y prendre pour sauver aux 2 endroits? 1 en lecture puis l'autre en lecture-écriture?

Code:

---

1 2 3 4 5 6 7 8 9

Sub sauver() 'ctrl + d   ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\Desktop\fichier essai.xls" ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\My Documents\fichier essai.xls"   End Sub

---

N'y a t'il donc pas moyen?
Y a t'il moyen avec la méthode SaveAs, AccessMode ? Si oui, comment ?

Merci à vous.

Il fut un temps où j'ai vu passer un code... fffffff8Offfffffffffffft !
Une recherche sur le forum, peut-être...
Bonne chance

Tiens, regarde là

Re,

Voici mon code pour l'instant mais problème: mon Book3 ne se sauve pas en ReadOnly.

Pour info, lorsque je mets le 1er DisplayAlerts sur True, j'ai un message me demandant si je veux écraser Book2 mais je n'ai rien pour Book3 malgré qu'il se sauve bien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ressai() Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("c:\Documents and Settings\Chewi\Desktop\Book2.xls") Application.DisplayAlerts = False   Kill "c:\Documents and Settings\Chewi\Desktop\essai\Book3.xls" f.Attributes = f.Attributes + ReadOnly ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\Desktop\essai\Book3.xls"   f.Attributes = f.Attributes - ReadOnly ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\Desktop\Book2.xls"   Application.DisplayAlerts = True Set f = Nothing Set fs = Nothing End Sub

---

Les recherches sur le forum n'ont pas donné grand chose, il y a bien quelques post sur le sujet mais peu ont proposé la solution s'il y en avait une.

Je continue...

B à T

Citation:

---

Pour info, lorsque je mets le 1er DisplayAlerts sur True, j'ai un message me demandant si je veux écraser Book2 mais je n'ai rien pour Book3 malgré qu'il se sauve bien.

---

Regarde ton code ;)

Citation:

---

Kill "c:\Documents and Settings\Chewi\Desktop\essai\Book3.xls"

---

Si tu en fais autant pour Book2, tu as toujours le message ?
A moins que book2 n'existe pas (?)
A+

Autant pour moi! Je voulais dire sur "False" car sinon, je n'ai pas de message.

J'ai rajouté la ligne pour supprimer book2 avant de l'enregistrer mais j'ai une erreur: Path/File access error. J'ai vérifié et mon chemin est le bon pourtant. :roll:

Le fichier existe, le nom est le bon ? tu es sur le bon volume ? :mouarf:

Oui oui, tout est bon, j'ai revérifié caractère par caractère:aie: avec le chemin sous les yeux.

Mais dans l'aide, concernant cette erreur, je lis ceci:

Citation:

---

You attempted to open a read-only file in sequential Output or Append mode.
Open the file in Input mode or change the read-only attribute of the file.

---

Edit: rajout: il est effectivement en ReadOnly (mais j'ai du faire une erreur dans le débuggage car ce n'est pas normal)

J'ai l'impression qu'en avançant je recule de plus en plus mais bon, on continue.

"Un pas en avant, deux pas en arrière, un pas en avant, ... ":mouarf:

Edit2: je recommence depuis le début, je suis en train de tout mélanger.

Bonjour le forum, bonjour Ouskel',

Une bonne nuit de sommeil, un peu de dynamisme, on ouvre les yeux et on trouve la solution, qui était loin d'être inaccessible en fait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ressai() Dim fs, f Dim MonFichier As String MonFichier = "c:\Documents and Settings\Chewi\My Documents\Book2.xls" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(MonFichier) Application.DisplayAlerts = False If GetAttr(MonFichier) = 33 Then f.Attributes = f.Attributes - ReadOnly 'valeur = 33-1 = 32 End If ActiveWorkbook.SaveAs MonFichier ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\My Documents\Book1.xls" f.Attributes = f.Attributes + ReadOnly Application.DisplayAlerts = True Set f = Nothing Set fs = Nothing End Sub

---

J'espère que ceci pourra être utile à d'autres utilisateurs.

B à T,

Chewi

Edit: pour info, il faut activer la référence "Microsoft Scripting Runtime"