before close

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 9 Juin 2006

• #2

Bonsoir,

Essaie cette macro :

Code:

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

😉

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 9 Juin 2006

• #3

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

 

Vote positif 0 Vote négatif

A

adeline

Guest

• 12 Juin 2006

• #4

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 12 Juin 2006

• #5

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.

😉

 

Vote positif 0 Vote négatif

A

ADELINE

Guest

• 12 Juin 2006

• #6

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 12 Juin 2006

• #7

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.

😉

 

Vote positif 0 Vote négatif