Discussion :

[chipster62]

bonjour à tous,

j'ai mis un fichier en lecture seule.
Lorsqu'on ouvre ce fichier, j'ai le message :
"L'auteur souhaite que vous ouvriez " test.xlsm" en lecture seule, à moins que vous ne devriez y apporter des modifications. Voulez-vous l'ouvrir en lecture seule ?
avec 3 choix : Oui, Non, Annuler


Je ne veux pas que cette fenêtre s'affiche et qu'automatiquement ce fichier s'ouvre en lecture seule (donc clik virtuel sur oui)

Comment procéder ?

merci bien

[Trystan441]

Bonjour,

Tu ne veux pas que cette fenêtre s'affiche juste pour toi ?

SI non, il faut que tu ailles dans l'éditeur VBA, que tu trouves la ligne de code provoquant cette fenêtre et que tu supprimes cette/ces lignes.

Ensuite, tu fermes le fichier -> Clic doit sur le fichier -> Propriété -> Lecture Seule

[Menhir]

Ne coche pas l'option "Lecture seule recommandée" quand tu sélectionnes les options d'enregistrement.
La formulation de cette option est trompeuse.

Contente-toi de mettre un mot de passe dans "Mot de passe pour la modification".

[chipster62]

Lecture seule recommandé faite sur les options d'enregistrements

En fait c'est un document avec différents éléments à saisir dedans.

Le but de l'ouvrir en lecture seule (en étant vierge d'informations) c'est de forcer le changement de nom pour ne pas avoir des éléments saisis à l'ouverture du fichier vierge sauvegardé.

[eriiic]

Bonjour,

Enregistre-le en tant que modèle xltx ou xltm alors.
A l'ouverture ça sera une copie qu'il sera obligé d'enregistrer sous...
eric

[chipster62]

merci c'est la logique d'Excel

mais je n'arrive pas utiliser une macro pour sauvegarder en fichier xlsx (j'ai plus besoin des macros à la sauvegarde du fichier) avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & _
Format(Range("I8"), "yyyymmdd") _
& " - " & UCase(Range("E12")) _
& " " & UCase(Range("H12")) _
& " " & Range("E10") _
& " " & Range("E18") _
& " " & " - Fiche" & _
".xlsx"

merci bien

[eriiic]

Bonjour,

fais-le en enregistrement de macro, tu verras les paramètres à mettre.
eric

[Patrice740]

Bonjour,

Regardes ce fil :
https://www.developpez.net/forums/d1.../#post10755750

Tu peux adapter le fichier exemple à ton besoin.

Attention pour modifier ce xltm, il faut :
1) Désactiver toutes les macros, pour éviter que l'évènement BeforeSave se produise lors de l'enregistrement.
2) Ouvrir le xltm (ne pas double cliquer (ça ferait Nouveau) mais clic droit, ouvrir)
3) Faire les modifs, l'enregistrer et le fermer
4) Réactiver les macro

[Menhir]

mais je n'arrive pas utiliser une macro pour sauvegarder en fichier xlsx (j'ai plus besoin des macros à la sauvegarde du fichier) avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & _
Format(Range("I8"), "yyyymmdd") _
& " - " & UCase(Range("E12")) _
& " " & UCase(Range("H12")) _
& " " & Range("E10") _
& " " & Range("E18") _
& " " & " - Fiche" & _
".xlsx"

Avant d'utiliser une construction aussi compliquée dans un SaveAs, commence par la mettre dans une variable String et vérifie le contenu de cette variable (par exemple avec un Debug.Print) pour voir si le chemin qui en résulte est correct.