Déjà traité?

[jeanba]

Bonjour à tous,
J'ai mis sur un serveur un fichier consultable par tous. Un utilisateur donné rentre son code utilisateur et l'info le concernant s'affiche. Souci?en quittant le fichier, il y a systématique le message:"Voulez-vous enregistrer les modif aaportées?", ce qui est peu normal. Mais je veux virer ce meessage et enregistrer systématique les modif apportées. Que faire?
Merci d'avance,
Jeanba

 

[wazzebu]

Re : Déjà traité?

Bonjour,

Mettre ce code dans thisworkbook (alt+f11 pour accéder au code)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.Close True
End Sub

@+

 

[Orodreth]

Re : Déjà traité?

Bonjour jeanba, edit: salut wazzebu

Tout dépend si tu veux sauvegarder ton fichier sur le même nom, et donc écrasé l'ancien, ou enregistrer sous un nom différent.

Si tu veux juste écraser, ceci devrait te plaire:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

A rajouter dans le module "This Workbook" du VBA. Cela déclenche une sauvegarde écrasante du fichier lors de la fermeture.

Cordialement,
Thomas

 

[jeanba]

Re : Déjà traité?

Bonjour,

Mettre ce code dans thisworkbook (alt+f11 pour accéder au code)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.Close True
End Sub

@+

Salut Orodreth et wazzebu,
Merci mais j'ai essayé les 2 codes et le message d'erreur suivant s'affiche dans les 2 cas:"Erreur de compilation! Nom ambigü détecté:Workbook_BeforeClose"

 

[wazzebu]

Re : Déjà traité?

re, bonjour Orodreth,

Tu ne peux utiliser qu'une solution à la fois !!

il ne peut y avoir qu'une seule instruction commencant par "Private Sub Workbook_BeforeClose(Cancel As Boolean)"


C'est bon?

 

[Orodreth]

Re : Déjà traité?

re

je rejoins wazzebu: essaye l'une ou l'autre, mais pas les deux en même temps

 

[jeanba]

Re : Déjà traité?

J'ai essayé tour à tour les 2 instructions, pas les 2 à la fois bien entendu, mais aucune ne marche. Est-ce ce n'est pas parce que j'ai déjà un code sur la meme ThisWorkbook, ce qui me fait en tout:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CP INDIVIDUALISE").Range("I3").ClearContents
Sheets("CP INDIVIDUALISE").Range("A1").ClearContents
-------------------------------------------------------
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 

[wazzebu]

Re : Déjà traité?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CP INDIVIDUALISE").Range("I3").ClearContents
Sheets("CP INDIVIDUALISE").Range("A1").ClearContents
-------------------------------------------------------
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Le rouge est à supprimer, tu utilises deux fois le même nom pour deux instructions différentes.

 

[jeanba]

Re : Déjà traité?

Excellent wazzebu! Ca marche à merveille!
Merci à vous deux...
jeanba