Discussion :

[Chewi]

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:

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ouskel'n'or]

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

Tiens, regarde là

[Chewi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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+

[Chewi]

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.

[ouskel'n'or]

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