Fermeture simultané de deux classeur

[redomtico]

Bonjour le forum.
Apres avoir recu de precieux conseil de votre par pour ouvrir 2 classeur simultanément , j'ai maintenant besoin de fermer ces deux classeur en meme temps .
si vous avez une solution, je l'attent avec impatienc e.
ci joint le code pour ouverture simultané.

Private Sub Workbook_Open()
Dim Chemin As String
Dim NomFichier As String
Chemin = "C:\Users\R.Domenge\Desktop\compteur etmps travail\" '
NomFichier = "MAITRISE D'OEUVRE APPIA.xls" '

Application.ScreenUpdating = False
Workbooks.Open Chemin & NomFichier
ThisWorkbook.Activate
Application.ScreenUpdating = True



End Sub
d'avance merci

 

[Jeannot45]

Re : Fermeture simultané de deux classeur

salut redomtico

Tu peux utiliser l'instruction

Workbooks.close

A+

Jeannot

 

[Jeannot45]

Re : Fermeture simultané de deux classeur

Re

Excuses moi, j'ai réagi un peu vite. il faudrait modifier un peu ta macro Workbook_Open() en déclarant les variables à l'extérieur de la procédure afin de les rendre communes à l'ensemble des procédures


Dim Chemin As String
Dim NomFichier As String

Private Sub Workbook_Open()
......
End Sub

Créer une autre procédure

Private Sub Workbook_BeforeClose()
Application.ScreenUpdating = False
Workbooks(Chemin & NomFichier).close True
Application.ScreenUpdating = True
End Sub

Bonne réception

Jeannot

 

[redomtico]

Re : Fermeture simultané de deux classeur

bonjour

Ca ne fonctionne pas malgré plusieur essai .
Voici lle dernier code utilise en entier
Dim Chemin As String
Dim NomFichier As String


Private Sub Workbook_Open()

Chemin = "C:\Users\R.Domenge\Desktop\compteur etmps travail\" '
NomFichier = "MAITRISE D'OEUVRE APPIA.xls" '

Application.ScreenUpdating = False
Workbooks.Open Chemin & NomFichier
ThisWorkbook.Activate
Application.ScreenUpdating = True



End Sub
Private Sub Workbook_BeforeClose()

Chemin = "C:\Users\R.Domenge\Desktop\compteur etmps travail\" '
NomFichier = "MAITRISE D'OEUVRE APPIA.xls" '

Application.ScreenUpdating = False
Workbooks_BeforeClose(Chemin & NomFichier).Close True
ThisWorkbook.Activate
Application.ScreenUpdating = True

End Sub

D'avance merci

 

[Jeannot45]

Re : Fermeture simultané de deux classeur

Hello redomtico

Attention, dans ta procédure tu as fais une faute de frappe

il faut écrire :
Workbooks(Chemin & NomFichier).close True

et non
Workbooks_BeforeClose(Chemin & NomFichier).Close True

A+

Jeannot

 

[redomtico]

Re : Fermeture simultané de deux classeur

Salut a tous ,
Je suis en train de devenir fou .
J'ai tout essayer et ca ne marche tjs pas .
Je vais reprendre mon explication pour essayer d'etre plus clair.
Quand j'ouvre un classeur A ,une macro m'ouvre automatiquement un classeur B (Jusque la tout va bien ).Quand je ferme mon classeur A , je veut que mon classeur B ce ferme automatiquement 5et la c'est l'angoisse ).
Si quelqu'un a une solution , elle est la bienvenue.