Discussion :

[StandManMike]

Bonsoir

j'en appel à vos lumières pour une petite question , lorsque je souhaite enregistrer les modifications sur ma feuille active et fermer mon classeur , j'utilise l'expression connue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("classeur1.xls").close SaveChanges:= True

c'est un peu long et ca prend presque 30 secondes , je souhaiterai donc enregistrer les modification uniquement sur la feuille active dans laquelle je me trouve et quitter le classeur afin d’éviter d'avoir à ré enregistrer systématiquement tout le classeur

j'ai ecrit ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ActiveSheet. savechanges:True
            Workbooks("classeur1.xls").close

mais j'ai une anomalie d'ecriture à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet. savechanges:True

j'ai essayé d'y remédier sans succès


Vous remerciant pour tout conseil dans la manière d’écrire ces deux lignes.

[Daniel.C]

Bonsoir,

A ma connaissance, tu ne peux pas le faire. Tu pourrais recopier la feuille dans un autre classeur et enregistrer celui-ci, mais si tu n'enregistres pas le classeur en le fermant, tes modifs seront perdues. Essaie plutôt de scinder le classeurs en plusieurs parties.

[StandManMike]

Merci pour ta réponse , je pensais que c'etait possible , merci quand meme

[grisan29]

bonjour StandManMike, daniel c
voici un code que j'utilise pour sauvegarder en fermant par la croix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 On Error GoTo erreur
 varname = Sheets("Devis").Range("g17").Value
 fname = InputBox("enregistrer le fichier sous le nom", "Enregistrement", varname)
 ActiveWorkbook.SaveAs Filename:=fname
 Exit Sub
erreur:
  rep = MsgBox("Une erreur c'est produite, voulez vous quitter sans sauvegarder", vbYesNo)
  If rep = 7 Then Cancel = True
End Sub

mais il y a un msgbox qui s'ouvre afin de demander s'il faut sauver sous le nom qui est en ("g17") ou sous un autre nom
avant il faut cocher enregistrer dans les option d'excel
cordialement si cela peut aider

Pascal