ENREGISTRMENT DIRECT DE FICHIER

[eric]

Bonjour forum

Comment va?

J´ai un petit pb avec un enregistrement de fichier..

J´ai reussi a conditionner l enregistrement lors d´un enregistrer 'sous'
, lors de la fermeture du fichier, mais pas lors d´un enregistrement direct.

EN effet pour attribuer le nom a nom a mon fichier. JE passe par un module. Mais j´arrive pas à imposer ce module lorsque l utilisateur clique dans le menu à 'Enregistrer'.

Faut il que je le bloque? Comment?

Auriez vous une idé oh grand et bo forum

Eric

 

[G.David]

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

 

[eric]

Salut G david

comment fait on?

Merci d avance

 

[militaire2005]

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

 

[G.David]

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

 

[Yeahou]

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+

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then Cancel = True: MsgBox 'Enregister sous seulement', vbOKOnly + vbInformation
End Sub

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

 

[ERIC]

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

 

[G.David]

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

 

[Bernard_XLD]

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+

Public Autorise_Nomfichier As Boolean
Public Sub NOMFICHIER()
Dim Nom As String
Nom = 'd:\\copy\\blablabla.xls'
Autorise_Nomfichier = True
ActiveWorkbook.SaveAs Filename:=Nom, FileFormat:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=False
Autorise_Nomfichier = False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False And Autorise_Nomfichier = False Then
Cancel = True
MsgBox 'Enregister sous seulement', vbOKOnly + vbInformation
Else
On Error Resume Next
Nom FICHIER
UserForm1.Show
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub

 

[Eric]

Salut Yeahou, G david

desolé a mon tour pour cette réponse tardive

merci pour votre aide ca marche tres bien

Vive le forum