Discussion :

[zyperman]

Bonjour,
J'ai lu cette discussion.
Je me permets de revenir sur ce sujet car je rencontre ce problème.
J'ai désactivé l'action des boutons "enregistrer" et "enregistrer sous" ey un userform s'affiche à la place pour enregistrer le fichier.
Jusque là aucun problème.
Pour permettre l'utilisation du fichier sur plusieurs postes je dois mettre le fichier en lecture seule.
Et là le problème est que j'ai un message d'alerte qui s'affiche avant mon userform lorsque j'appuie sur le bouton "enregistrer" (pas de problème avec "enregistrer sous").
Il s'agit du message indiquant que le fichier est en lecture seule et qu'il faut enregistrer une copie sous un autre nom.
Pas moyen de virer ce message même avec application.displayalerts 😕
Si quelqu'un à une solution à me proposer ...
Par avance merci.

[patricktoulon]

bonsoir
tu te pose pas les bonne question !
pourquoi chercher a éradiquer des avertissements qui sont nécessaires au bon fonctionnement de ton fichier

pose toi la question si il est possible de tester si un fichier actuellement ouvert est en lecture seule ou pas
le résultat pourra te permettre de bloquer ou debloquer la fonction save ou save as
et la j'ai tout dis ,si ce n'est que tu trouvera en cherchant bien dans le forum des discussion traitant de ce sujet

la oui j'ai tout dis

[Invité]

Bonjour,

les message d'alerte sont des informations qui n'entrainement pas de modification sur le comportement du fichier!

ainsi dysplayAlerte autorisera SaveAs si le fichier cible existe déjà et ne demandera pas l’autorisation d'écraser l'existant!

ici c'est le comportement même du fichier qui est remis en cause! un fichier corrompu par exemple entraînera le plantage d'excel et là c'est de sa survie qu'il en dépend!

.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
Mes fichiers sont enregistrés en lecture seule, mais c'est un choix, donc je suis le seule (IgnoreReadOnlyRecommended)

[zyperman]

Merci de vos réponses. Je ne cherche pas à contourner la sécurité d'Excel. Simplement ce message n'a plus d'action car derrière mon userform s'ouvre pour permettre un enregistrement avec une partie du nom fixe suivant les éléments renseignés par l'utilisateur, un complément de nom qu'il peut choisir d'ajouter et également le choix du dossier de destination.
De retour au bureau aujourd'hui je vais explorer la piste de la lecture seule. Peut-être en créant une copie temporaire du fichier lors de son ouverture par l'utilisateur. Mon but est également de préserver mon fichier source.

[Invité]

Bonjour,
As tu regardé IgnoreReadOnlyRecommended?

Mais si ton but c'est de ne pas modifier le fichier source mais de l'utiliser comme modèle alors ne l'ouvre pas mais utilises le comme modèle pour un nouveau classeur!

set wb=workbooks.add(FichierModele)

[zyperman]

Re bonjour.
Pour contourner le problème je suis passé par un fichier modèle au format "xltm". Mon code lors de la tentative d'enregistrement fonctionne parfaitement. Seul petit problème qui subsiste c'est que par défaut excel propose d'enregistrer le fichier issu du modèle en xlsx. Sauf que pour fonctionner par la suite mon fichier doit être en xlsm. Il me reste à trouver comment changer l'extension par défaut.

[Invité]

l'enregistreur de macro te diras comment faire!

Code Enregistreur de macro :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()'
' Macro1 Macro
'
 
 
'
      ActiveWorkbook.SaveAs Filename:= _
        "c:\toto.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

[zyperman]

Merci de ton aide Dysorthographie.
Je pensais que par défaut les fichiers xltm étaient enregistrés en xlsm 🤔
Je vais le faire par macro.
Bonne fin de journée.