before close

[adeline]

bonjour à tout le forum

je voudrais qu'a la fermeture du fichier MACHIN.xls il sauvegarde une feuille BD dans le fichier TRUC.xls

Private Sub Workbook_BeforeClose(Cancel As Boolean) '= MACHIN.xls

Worksheets('BD').cells.Copy

Workbooks.Open Filename:='C:\\Documents and Settings\\...TRUC.xls'
MsgBox Sheets.Count
Sheets('BDbis').Unprotect
Paste...
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

la msgbox me montre qu'il est encore sur MACHIN.xls et pourtant il a bien ouvert TRUC

Je sèche
Quelqu'un a t il une piste

merci d'avance

 

[Dan]

Bonsoir,

Essaie cette macro :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Macro par DAN pour Adeline le 09/06/05
'Macro pour [B]Lien supprimé[/B]
Dim chemin As String
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
chemin = 'c:\\repertoire\\'
Workbooks.Open Filename:=chemin & 'Truc.xls'
ThisWorkbook.Sheets('BD').Copy Before:=Workbooks('Truc.xls').Sheets(1)
With ActiveWorkbook
.Save
.Close
End With
Application.ScreenUpdating = True
End Sub

Macro à placer en VBA dans THISWORKBOOK

Si pb n'hésite pas

😉

 

[CBernardT]

Bonsoir Adeline et Dan,

Une autre version :

Private Sub Workbook_BeforeClose(Cancel As Boolean) '= MACHIN.xls
'Ouverture du classeur 'TRUC.xls'
Workbooks.Open Filename:='C😀ocuments and Settings...TRUC.xls'
' Copie de la feuille 'BD' du classeur 'MACHIN.xls' dans le classeur 'TRUC.xls'
Workbooks('MACHIN.xls').Sheets('BD').Copy Before:=Workbooks('TRUC.xls').Sheets(1)
' Enregistrement et fermeture du classeur truc
Workbooks('TRUC.xls').Save
Workbooks('TRUC.xls').Close
' Enregistrement et fermeture du classeur Machin
ThisWorkbook.Save
End Sub

Cordialement

Bernard

 

[adeline]

bonjour

meci Dan et merci bernard pour vos réponses
que j'ai essayées (pas tout de suite!)

mais je bug encore!

la ligne

Workbooks('MACHIN.xls').Sheets('BD').Copy Before:=Workbooks('TRUC.xls').Sheets(1)

= bug

commentaire de vba :

'l'indice n'appartient pas à la sélection'

J'ai vérifié les noms de classeurs et de feuilles en vain.

apparement il commence la copie, mais qd on re ouvre la copie la feuille est toute blanche
il faut selectionner une zone pour voir apparaitre la copie, mais dès qu'on relache la selection tout disparait !
Je sèche

merci d'avance pour vos éventuels compléments d'info

 

[Dan]

Bonjour Adeline,

:sick: j'ai pas l'impression de bien comprendre ce qu'il t'arrive.

Est-ce que tes deux classeurs sont bien ouverts lorsque tu exécutes la macro ?
Dans la macro que je te propose, tu copies la feuille BD de ton classeur Machin vers le classeur Trucs

La macro doit se trouver dans le Classeur Machin.

Merci de tes précisions.

Au besoin place le fichier Machin ici avec données bidons.

😉

 

[ADELINE]

bonsoir,

le deuxième classeur (truc 😱u je veux faire la copie) est ouvert avec le code precedent
Workbooks.Open Filename:='C😀ocuments and Settings...TRUC.xls'

et la macro se trouve bien ds machin ????

j'essaie de preparer un fichier joint


@ + et merci

 

[Dan]

Re,

Adeline, le code doit se trouver dans le classeur Machin et pas dans Truc. Relis ce que j'ai écrit dans mon post précédent.

et tu dois avoir ---> c:\\document.... au lieu de c:document.

😉