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


A voir également:

4 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Simplement :
Private Sub CommandButton1_Click()
Application.Workbooks.Open ThisWorkbook.Path & "\suivi de stage"
ThisWorkbook.Close False
End Sub
0
thivame Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   4
 
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
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Il faut pas que USF soit modal. (ShowModal=False)
0
thivame Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   4
 
ok je vais verifier et essayer
merci par avance
0
thivame Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   4
 
bon mis sur false, le lanceur se ferme bien mais mon userfrom ne se lance plus tout seul
0
thivame Messages postés 60 Date d'inscription   Statut Membre Dernière intervention   4
 
je reviens sur le sujet pour vous signaler que mon probleme est resolu aider par un membre d'un autre fofo (désolé)
cordialement
0