ENREGISTRMENT DIRECT DE FICHIER

une piste : virer l'enregistremet du menu lors du demarrage du fichier mais ne pas oublié de le remettre a la fermeture (on en a pendu pour moins que ça)
Cordialement
G.David

Salut G david

comment fait on?

Merci d avance

pour le faire je pense qu'il doit être possible de lancer l'enregistrement d'une macro qui s'éxécute dès l'ouverture et d'en faire une autre qui le remet juste après l'enregistrement.

Pour enlever un bouton : clic sur la petite fléche au bout de la barre d'outils, Ajouter Supprimer des boutons> Standard> décocher enregistrer.

Dites mmoi si ça a marché.

La le probleme est un poil plus profonds je ne pense pas que l'enregistreur de macro prenne en compte la personalisation des commandbars donc il va falloir potasser l'aide en ligne et les index des menus
Cordialement
G.David

bonjour Erci, G.David, Pacifiste2005, le forum

un code qui désactive l'enregistrement direct d'un classeur en n'autorisant que l'enregistrer sous

A+

Message édité par: yeahou, à: 29/07/2005 13:21

Merci Yeaouh, G david, Militaire2005, Forum

Pour votre vivacité

Ca marche très bien.. Mais ca mets en péril des macros que j uitlise pour des manips, dont l´une d´entres elles est l enregistrement en passant par le module NOMFICHIER
En gros ca donne

mes macros du type

Private Sub MAcro1_clic()
code...
NOMFICHIER
Thisworkbook.close
End sub


mon module

Public Sub NOMFICHIER()

Dim Nom As String
Nom = blablabla
ActiveWorkbook.SaveAs Filename:=Nom, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False
'lors de cette manip le fichier va ds le BeforSave mais SaveAsUI est égale à False donc le Msgbox apparaît
End Sub

Dans mon workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = False Then
Cancel = True:
MsgBox 'Enregister sous seulement', vbOKOnly + vbInformation
End
End If
On Error Resume Next
NOM FICHIER
UserForm1.Show

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Saved = True

End Sub


J´aimerai pouvoir :
- refaire marcher mon enregistrement par macro
- tout en desautorisant l´enregistrement par l´option enregistremen 'Direct'
- et en maintenant mes conditions en cas d enregistrement par 'Enregistrer sous

J espère avoir été assez clair

Merci en tout cas pour votre aide

Eric

Je suis un peu fatiguer mais si tu recuprer une variable a l'ouverture
etat=false et dans ta macro etat=true
dans ton before save saveasUI=etat
ça ne résoudrait pas tes angoisses
cordialement
G.David

Bonjour

désolé pour le retard, mais mon profil n'ayant pas été pris, je n'ai pas eu les réponses en automatique.
Voila les codes modifiés

A+

Salut Yeahou, G david

desolé a mon tour pour cette réponse tardive

merci pour votre aide ca marche tres bien

Vive le forum