Fermer classeurA qui ouvre classeur B par classeur B
Résolu
thivame
Messages postés
60
Date d'inscription
Statut
Membre
Dernière intervention
-
thivame Messages postés 60 Date d'inscription Statut Membre Dernière intervention -
thivame Messages postés 60 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
encore une fois je fais appelle a vous...
Voila j'ai deux classeurs:
classeur 1 s'appelle "lanceur"
classeur 2 : suivi de stage
dans le classeur 1 j'ai une macro qui lance le classeur 2:
Private Sub CommandButton1_Click()
Application.Workbooks.Open ThisWorkbook.Path & "\suivi de stage"
Workbooks("suivi de stage").Activate
End Sub
l pas de soucis, lorsque mon classeur suivi de stage s'ouvre j' ai un userform qui se lance automatiquement.. et je voudrais que "lanceur" se ferme en meme temps...
j'ai mis ce code mais ca ne marche pas
Private Sub Workbook_Open()
'masquer le menu(en plein ecran)
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = True
'masquer onglet
ActiveWindow.DisplayWorkbookTabs = True
CancelSortie = True
Sheets("bienv").Visible = False
accueilB2.Show
Dim lWorkbook As Workbook
Dim lFound As Boolean
lFound = False
For Each lWorkbook In Workbooks
If lWorkbook.Name = "lanceur.xlsm" Then
lFound = True
Exit For
End If
Next
If lFound Then
Workbooks("lanceur.xlsm").Close false
End If
End Sub
j'ai essayé plusieurs mode de fermeture mais le seul moment ou "lanceur" se ferme est lorsque j'accède a un onglet de "suivi de stage " si j'accède juste a des userforms de "suivi de stage" ca ne ferme pas" lanceur"..
merci pour votre aide
cordialement
encore une fois je fais appelle a vous...
Voila j'ai deux classeurs:
classeur 1 s'appelle "lanceur"
classeur 2 : suivi de stage
dans le classeur 1 j'ai une macro qui lance le classeur 2:
Private Sub CommandButton1_Click()
Application.Workbooks.Open ThisWorkbook.Path & "\suivi de stage"
Workbooks("suivi de stage").Activate
End Sub
l pas de soucis, lorsque mon classeur suivi de stage s'ouvre j' ai un userform qui se lance automatiquement.. et je voudrais que "lanceur" se ferme en meme temps...
j'ai mis ce code mais ca ne marche pas
Private Sub Workbook_Open()
'masquer le menu(en plein ecran)
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = True
'masquer onglet
ActiveWindow.DisplayWorkbookTabs = True
CancelSortie = True
Sheets("bienv").Visible = False
accueilB2.Show
Dim lWorkbook As Workbook
Dim lFound As Boolean
lFound = False
For Each lWorkbook In Workbooks
If lWorkbook.Name = "lanceur.xlsm" Then
lFound = True
Exit For
End If
Next
If lFound Then
Workbooks("lanceur.xlsm").Close false
End If
End Sub
j'ai essayé plusieurs mode de fermeture mais le seul moment ou "lanceur" se ferme est lorsque j'accède a un onglet de "suivi de stage " si j'accède juste a des userforms de "suivi de stage" ca ne ferme pas" lanceur"..
merci pour votre aide
cordialement
A voir également:
- Fermer classeurA qui ouvre classeur B par classeur B
- Imprimer un classeur excel sur mac - Guide
- Classeur numérique gratuit - Télécharger - Bureautique
- B&you - Guide
- Code ascii de b - Guide
- B allemand ✓ - Forum Clavier
4 réponses
Bonjour,
Simplement :
Simplement :
Private Sub CommandButton1_Click() Application.Workbooks.Open ThisWorkbook.Path & "\suivi de stage" ThisWorkbook.Close False End Sub
bonjour Patrice33740
j'ai deja essayé cette version, mais tant que je n'ouvre pas un onglet qui se trouve dans "suivi de stage" cela ne ferme pas "lanceur"
Dans "suivi de stage", on peut se servir juste des userform sans ouvrir d'onglet.. donc du coup lanceur ne se ferme pas
cordialement
j'ai deja essayé cette version, mais tant que je n'ouvre pas un onglet qui se trouve dans "suivi de stage" cela ne ferme pas "lanceur"
Dans "suivi de stage", on peut se servir juste des userform sans ouvrir d'onglet.. donc du coup lanceur ne se ferme pas
cordialement