XL 2019 Empêcher d'enregistrer sous un fichier crée via macro

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #2

Bonjour,
j'avais l'inverse dans mess snips de code mais adapté, cela devrait fonctionner:

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If  SaveAsUI Then
        Cancel = True
        MsgBox "Vous ne pouvez pas utiliser le [Enregistrer sous ...] pour sauvegarder ce fichier => Utiliser le [Enregistrer] simple !", vbInformation, "Oupps"
    End If
End Sub

moi je l'ai déjà utilisé en If Not SaveAsUI then ... pour forcer à enregistrer sous ... mais j'ai pas testé la modif. faite dans le code ci-dessus.

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #3

ps : après le Cancel = true tu pourrais en dictateur forcer le Save "normal" toi même mais vaut mieux laisser faire l'utilisateur car on ne sait pas pourquoi il a voulu faire un Save As ... donc force pas l'enregistrement toi même.

 

Vote positif 0 Vote négatif

J

jui42

XLDnaute Junior

• 13 Juin 2022

• #4

Super merci je vais essayer ça, ce code doit être placé dans le module This Workbook ?

 

Vote positif 0 Vote négatif

J

jui42

XLDnaute Junior

• 13 Juin 2022

• #5

Re, j'ai essayé d'implanter ce code dans le module de la feuille qui contient la macro mais je peu toujours enregistré mes fichiers que je crée

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #6

Non pas das le module ... dans workbook comme tu en avais l'intuition ... c'est une fonction fournie de base mais sans code ... elle est automatiquement appelée au bon moment dans elle n'est pas vide .

 

Vote positif 0 Vote négatif

J

jui42

XLDnaute Junior

• 13 Juin 2022

• #7

D'accord donc je colle ce bout de code dans le WorkBook et si j'ai bien compris je n'ai pas besoin de l'appeler dans le module de ma feuille ?

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #8

pas besoin de l'appeler ... excel va passer dans le code entre le moment ou il aura demander le "save as ..." (clic souris, raccourcis, clavier) et le moment ou cela doit lui afficher la fenêtre de sauvegarde ... c'est automatique et géré par excel.

 

Vote positif 0 Vote négatif

J

jui42

XLDnaute Junior

• 13 Juin 2022

• #9

Ah oui j'ai compris j'ai testé en direct et ça fonctionne sur mon fichier principal. Dernière question stp, j'aimerais crée un fichier via macro et empecher de SaveAS sur le fichier crée, c'est possible ?

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #10

Alors là ... mettre du code dans cette fonction "beforeSave" à la création du fichier, en partant de rien ... je sais pas faire.
peut-être un spécialiste du VBA (que je ne suis pas) pourra te répondre.

 

Vote positif 0 Vote négatif

J

jui42

XLDnaute Junior

• 13 Juin 2022

• #11

D'accord merci beaucoup en tout cas d'avoir pris le temps de m'expliquer. Je vais essayer d'implanter ce code dans le PEROSNAL.xlsb et voir comment cantonné la fonction aux fichiers que je veux. Merci beaucoup en tout cas

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #12

sinon, tu l'inclus (ta macro) dans un fichier "modèle" que tu enregistres en .xlsm
ensuite quand tu créer, via les commande windows (pas Excel) tu duplique le fichier et tu ne renommes puis tu l'ouvre dans Excel et tu fais ta création vba ....

 

Vote positif 0 Vote négatif

J

jui42

XLDnaute Junior

• 13 Juin 2022

• #13

Je vais essayer ta solution mais étant donné que ce fichier et ces fiches crées sont utilisé par des opérateurs qui ne connaissent pas forcément les ordinateurs... Je voulais tout automatiser et limiter le nombre d'interactions

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 13 Juin 2022

• #14

VB:

'Copier un fichier
FileCopy "c:\data\encours\Paye.xlsm", "c:\data\encours\Paye-Janvier.xlsm"

'renommer un fichier
Name "c:\data\encours\Paye-Janvier.xlsm" As "c:\data\encours\Paye-Fevrier.xlsm"

tu peux faire la copie depuis soit un répertoire cahé pour eux (réseau, ou sur le poste vers leur répertoire de travail
tu peux le renommer comme bon te semble.

ps : ouvre le dans Excel que après ... si ouvert dans Excel le renommage ne fonctionnera pas.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 13 Juin 2022

• #15

Bonjour jui42, Deadpool,

jui42 à dit:

j'aimerais créer un fichier via macro et empêcher le SaveAS sur le fichier créé, c'est possible ?

Cliquez pour agrandir...

je ne donne pas de solution pour ça, mais juste ces quelques infos :

* si le nom du fichier créé via macro est déjà connu d'avance et fixe, par exemple "MonFichier.xlsm", il faut que le nom utilisé pour le SaveAs soit différent de "MonFichier.xlsm" (test simple à faire pour éviter ce nom de fichier).

* si le nom du fichier créé via macro est inconnu ou variable, c'est beaucoup moins évident ! peut-être que ça peut être résolu facilement de cette façon : la macro créé le fichier puis en tout dernier, elle lui mets l'attribut "Lecture seule" (attribut ReadOnly de l'ex-DOS ; cet attribut est toujours valable sous Windows, car il fait aussi partie du système de fichiers NTFS) ; dès lors, le SaveAs échouera sur ce fichier en Lecture seule : impossible de l'écraser ! mais alors, il faudra aussi mettre en place un code de "Gestion d'erreur" pour éviter un plantage brutal du code qui fait le SaveAs ! autrement dit : il faudra « récupérer l'erreur » afin de demander à l'utilisateur de saisir un autre nom de fichier pour effectuer le SaveAs.

(j'ai rien d'autre à proposer)​

soan

 

Dernière édition: 13 Juin 2022

Vote positif 0 Vote négatif