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
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