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

[jui42]

Bonjour,
J'ai une macro qui consiste à créer un fichier pour qu'un opérateur puisse y entrer des données , jusque là, tout est ok. La difficulté est la suivante :
mon programme, teste l'existence d'un fichier et donc l'ouvre le cas échéant. De ce fait, j'aimerais empecher à l'utilisateur de changer l'emplacement du fichier qui à été crée et qu'il puisse simplement enregistrer.
J'ai essayé d'implanter la méthode Workbook_BeforeSave dans le module de Code ThisWorkbook mais j'ai l'impression qu'elle est inactif.
Les fichier se crée via le classeur "fiche_op" le classeur "tableau_controle" est une bdd sur laquel le programme vien extraire les infos.

Si vous avez une idée je suis preneur ! Ou même si vous pouvez m'expliquez le fonctionnement de la procédure Workbook before save

Merci !!

 

[Deadpool_CC]

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

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.

 

[Deadpool_CC]

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.

 

[jui42]

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

 

[jui42]

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

 

[Deadpool_CC]

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 .

 

[jui42]

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 ?

 

[Deadpool_CC]

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.

 

[jui42]

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 ?

 

[Deadpool_CC]

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.

 

[jui42]

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

 

[Deadpool_CC]

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 ....

 

[jui42]

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

 

[Deadpool_CC]

'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.

 

[soan]

Bonjour jui42, Deadpool,

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

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