Fermer classeurA qui ouvre classeur B par classeur B

Résolu/Fermé
thivame Messages postés 60 Date d'inscription vendredi 9 avril 2004 Statut Membre Dernière intervention 2 janvier 2023 - 8 nov. 2014 à 21:21
thivame Messages postés 60 Date d'inscription vendredi 9 avril 2004 Statut Membre Dernière intervention 2 janvier 2023 - 9 nov. 2014 à 20:13
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 dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
9 nov. 2014 à 08:54
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 vendredi 9 avril 2004 Statut Membre Dernière intervention 2 janvier 2023 4
9 nov. 2014 à 12:53
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 dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
9 nov. 2014 à 13:47
Il faut pas que USF soit modal. (ShowModal=False)
0
thivame Messages postés 60 Date d'inscription vendredi 9 avril 2004 Statut Membre Dernière intervention 2 janvier 2023 4
9 nov. 2014 à 17:42
ok je vais verifier et essayer
merci par avance
0
thivame Messages postés 60 Date d'inscription vendredi 9 avril 2004 Statut Membre Dernière intervention 2 janvier 2023 4
9 nov. 2014 à 17:59
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 vendredi 9 avril 2004 Statut Membre Dernière intervention 2 janvier 2023 4
9 nov. 2014 à 20:13
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