Enregistrement direct sans choix possible

[MARIE74]

B) Bonjour a tous

Toujours en grande forme ce forum

26° ce matin en Haute Savoie et soleil


Pouvez vous me procurer une macro pour ne permettre que
l'enregistrement a un endroit donné
L'enregistrement se fera a l'aide d'un bouton dans le classeur
Il faut rendre inactif le' enregistrer sous'
Cela pour eviter de trouver des fichiers n'importe ou (le personnel est 'bordelique')

Merci d'avance

 

[PascalXLD]

Bonjour

Si tu places ce code dans ton fichier tu ne pourras plus que faire enregistrer mais plus enregistrer sous

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

Bon courage

 

[MARIE74]

B) Bonjour PASCAL76


Merci
Mais comment je designe l'endroit ou sauvegarder





Infos: je ne t'avais pas expliquer qu'en VBA je suis preque nule
alors il faut l'en dire beaucoup mais je comprend vite

Peux tu me faire un petit exemple avec comme chemin:
F:/commercial/devis/devis calcul/en cours




D'avance merci

 

[PascalXLD]

Re

Expliquemoi quelque chose

Ton fichier existe et i lest déjà enregistrer dans le répertoire que tu donnes ici

Donc ensuite avec le code que je t'ai donné l'utilisateur ne pourra faire que enregistrer tout cours soit dans le répertoire d'origine et pas enregistrer sous

A moins que je me trompe dans ce cas là peux-tu m'expliquer ??

 

[MARIE74]

Resalut

OK si mon fichier existe deja cela marche

Mais en creation cela ne fonctionne pas il bloque l'enregistrement

As tu une solution


Merci beaucoup

 

[PascalXLD]

Re

Le nom du fichier tu le veux comment ? Fixe ou au choix des users ??

 

[MARIE74]

B) resalut


PASCAL76

Je souhaite Le nom du fichier Fixe





Encore Merci PASCAL

 

[PascalXLD]

Re

Voici un exemple de macro qui fait ceci

Sub Imprimer()

Const MonFichier = 'F:\\commercial\\devis\\devis calcul\\en cours\\toto.xls'

Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=MonFichier, FileFormat:= _
        xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
        , CreateBackup:=False
Application.DisplayAlerts = True
End Sub

Sans oublier le morceau de code dans thisWOrkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

Bon courage

 

[marie74]

B) re re re re

oh PASCAL76

Merci je fait un essai et je te tiens au courant

Mais pas tout de suite




Grosse Bisounnette

 

[DERKOO]

Salut Pascal salut Marie de Savoie

J´ai un peu suivi votre fil car cela m´interessait de pouvoir contrôler les sauvegardes de mes utiisateurs...
La seule différence était que le nom de mon fichier est variable.
Je pense avoir reussi à surmonter cette condition..

Mais maintenant qd je le ferme directement sur la croix et que je dis oui ds le cas d´un enregistrement avec nom de fichier dejà existant.. il bug en me disant que Windows a detecté un bug et qu´il va fermer le fichier...
Je n´arrive pas à trouver le pourquoi...

Ne faudrait-il pas que je conditionne un Before close ou qqch comme ca??

Merci d avance pour toute réponse

Derkoo

 

[PascalXLD]

Re

le mieux serait que tu joignes ton fichier pour voir

 

[DERKOO]

Salut Pascal

Je te joints un fichier similaire présentant seulement le contenu de mon code du workbook.
j AI UN PEU PLUS D´INFO SUR L ERREUR..
Comme tu pourras voir ds le code j´ai 4 cellules qui conditionent le chemin d á ccés de mon fichier..

Lorsque je remplie les 2 premières, indispensables pour pouvoir attribuer le nom par défaut du produit et executer l´enregistrement , qui sont:
- Type de produit
- Nom du modele

et que j effectue l enregistrement tout va bien.

En suite lorsque je rempli la 3ème ou la 4ème, ss avoir enregistrer au préalable, (le nom du fichier est donc la combinaison des 2 premières cellules à ce moment là) et que je ferme le fichier répondant si à 'Voulez vous remplacerle fichier existant' le message d erreur windows avec femeture automatique d excel s executent.

Je crois que il y a un bug entre mon code ds Workbook qui conditionne un enregistrement qd les cellule sont remplis et la fct fermeture d excel qui elle se refere au dernier nom d enregitrement. Ces 2 noms n etant pas simmilaires BUGGGGGGG

Ce que tu as a faire pour voir l erreur et d ouvrir mon fichier et de remplir la case Version commande ds la premiere feuille ou la version ds la 2eme et fermer excel en repondant si a voulez vous remplacer le nom existant. l erreur devrait apparaître

J´espère avoir été clair. en cas contraire, fais le moi savoir et je m´y expliquerai autrement

Merci d avance

Derkoo [file name=Mirol.zip size=8422]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mirol.zip[/file]