Bonjour Max, Porcinet, José, Eric le Forum,
A mon avis comme te l'a déjà conseillé Porcinet, tu devrais consacrer un petit moment à lire notre
Charte... (
J'ai changé le sujet pour être 'XLD Compliant')
Pour passer de classeurs en classeurs, le plus académique est de déclarer des Objets avec l'instruction
Set
Voici un exemple basic en partant du principe comme Eric que tu connais le nom du Second Classeur :
Citation:
Sub MultiWorkBooks()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Set WB1 = ThisWorkbook
Set WS1 = WB1.Worksheets('Feuil1')
Set WB2 = Workbooks('UnAutreClasseur.xls')
Set WS2 = WB2.Worksheets('Feuil1')
WB2.Activate
WS2.Activate
WS2.Range('a1') = Now
WB2.Close True
WB1.Activate
WS1.Range('a1') = Now
WB1.Close True'si on met 'False' on ne sauvrait pas le classeur
EndSub
|
Tu noteras, que ta demande dans l'état, ce code répond à ta demande si il est situé dans le Premier Classeur, par contre il est hors de question de penser pouvoir poursuivre l'exécution d'un code si on ferme le classeur le contenant.
Par conséquent ta phrase '
réouvrir le premier classeur puis le fermer' n'est pas applicable. (ou alors depuis un classeur 'tiers' ou bien.... de la 'BAC' comme conseille mon amigo José !!!)
Bonne journée
[ol]@+Thierry[/ol]