- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture
seule :
ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True
- Puis dans un Workbook_BeforeClose et avant de quitter je lui demande
d'effectuer une action et de l'enregistrer alors je repasse en lecture
ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:=False, demande mon
action que je souhaite le sauvegarder : ActiveWorkbook.Save
mais ca ne fonctionne pas, Pourquoi ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
Manu avait soumis l'idée :
Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture seule : ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True - Puis dans un Workbook_BeforeClose et avant de quitter je lui demande d'effectuer une action et de l'enregistrer alors je repasse en lecture ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon action que je souhaite le sauvegarder : ActiveWorkbook.Save mais ca ne fonctionne pas, Pourquoi ?
Merci Manu
Si tu le sauvegarde en lecture seule, il faudra le sauvegarder après, mais avec un nom différent. Par contre, je ne comprends pas pourquoi tu le sauvegarde en lecture seule pour le réenregistrer après !!! :-?
-- JLuc
Manu avait soumis l'idée :
Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture
seule :
ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True
- Puis dans un Workbook_BeforeClose et avant de quitter je lui demande
d'effectuer une action et de l'enregistrer alors je repasse en lecture
ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon
action que je souhaite le sauvegarder : ActiveWorkbook.Save
mais ca ne fonctionne pas, Pourquoi ?
Merci
Manu
Si tu le sauvegarde en lecture seule, il faudra le sauvegarder après,
mais avec un nom différent.
Par contre, je ne comprends pas pourquoi tu le sauvegarde en lecture
seule pour le réenregistrer après !!! :-?
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture seule : ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True - Puis dans un Workbook_BeforeClose et avant de quitter je lui demande d'effectuer une action et de l'enregistrer alors je repasse en lecture ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon action que je souhaite le sauvegarder : ActiveWorkbook.Save mais ca ne fonctionne pas, Pourquoi ?
Merci Manu
Si tu le sauvegarde en lecture seule, il faudra le sauvegarder après, mais avec un nom différent. Par contre, je ne comprends pas pourquoi tu le sauvegarde en lecture seule pour le réenregistrer après !!! :-?
-- JLuc
MichDenis
Un fichier exemple sur le sujet :
http://cjoint.com/?bppcMmo1k5
"Manu" a écrit dans le message de news: uZ3$ Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture seule : ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True - Puis dans un Workbook_BeforeClose et avant de quitter je lui demande d'effectuer une action et de l'enregistrer alors je repasse en lecture ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon action que je souhaite le sauvegarder : ActiveWorkbook.Save mais ca ne fonctionne pas, Pourquoi ?
Merci Manu
Un fichier exemple sur le sujet :
http://cjoint.com/?bppcMmo1k5
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
uZ3$oiJOHHA.4928@TK2MSFTNGP06.phx.gbl...
Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture
seule :
ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True
- Puis dans un Workbook_BeforeClose et avant de quitter je lui demande
d'effectuer une action et de l'enregistrer alors je repasse en lecture
ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon
action que je souhaite le sauvegarder : ActiveWorkbook.Save
mais ca ne fonctionne pas, Pourquoi ?
"Manu" a écrit dans le message de news: uZ3$ Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture seule : ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True - Puis dans un Workbook_BeforeClose et avant de quitter je lui demande d'effectuer une action et de l'enregistrer alors je repasse en lecture ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon action que je souhaite le sauvegarder : ActiveWorkbook.Save mais ca ne fonctionne pas, Pourquoi ?
Merci Manu
Manu
En fait j'ai réussi avec ton fichier Mich. Merci
"MichDenis" a écrit dans le message de news: OQ%
Un fichier exemple sur le sujet :
http://cjoint.com/?bppcMmo1k5
"Manu" a écrit dans le message de news: uZ3$ Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture seule : ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True - Puis dans un Workbook_BeforeClose et avant de quitter je lui demande d'effectuer une action et de l'enregistrer alors je repasse en lecture ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon action que je souhaite le sauvegarder : ActiveWorkbook.Save mais ca ne fonctionne pas, Pourquoi ?
Merci Manu
En fait j'ai réussi avec ton fichier Mich.
Merci
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OQ%23nl3KOHHA.5000@TK2MSFTNGP03.phx.gbl...
Un fichier exemple sur le sujet :
http://cjoint.com/?bppcMmo1k5
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
uZ3$oiJOHHA.4928@TK2MSFTNGP06.phx.gbl...
Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en
lecture
seule :
ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True
- Puis dans un Workbook_BeforeClose et avant de quitter je lui demande
d'effectuer une action et de l'enregistrer alors je repasse en lecture
ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon
action que je souhaite le sauvegarder : ActiveWorkbook.Save
mais ca ne fonctionne pas, Pourquoi ?
"Manu" a écrit dans le message de news: uZ3$ Bonjour,
- Dans un Workbook_Open, je lui demande entre autre de se mettre en lecture seule : ActiveWorkbook.SaveAs , ReadOnlyRecommended:=True - Puis dans un Workbook_BeforeClose et avant de quitter je lui demande d'effectuer une action et de l'enregistrer alors je repasse en lecture ecriture : ActiveWorkbook.SaveAs ReadOnlyRecommended:úlse, demande mon action que je souhaite le sauvegarder : ActiveWorkbook.Save mais ca ne fonctionne pas, Pourquoi ?
