Fermeture classeur qui lance un autre classeur

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

Bonsoir Thivame, bonsoir le forum,

Peut-être comme ça :

Private Sub Workbook_Open()
Dim L As Workbook

'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
Set L = Workbooks("lanceur.xlsm")
L.Close False
accueilB2.Show
End If

Peut-être même placer les deux lignes SET et L.Close au début de la macro...

bonjour thauthème

Malheureusement cela ne fonctionne pas soit lanceur ne se ferme pas soit mon userform "accueilB2" ne se lance pas

ça se trouve que c'est tout simple mais ça fait 4 jours que je cherche lol

merci encore pour l'aide que tu essayes de m'apporter

re,

bon malheureusement j'en suis au meme stade tant qu'un onglet n'est pas ouvert le fichier "landeur" reste ouvert

pppffffff

n'etant pas un pro vba je suis completement bloqué

Bonjour Thivame, bonjour le forum,

Si tu avais proposé des fichiers exemple je pense que tu aurais obtenu des réponses plus rapidement ! Car pour tester il faut recréer ton environnement et nous n'avons pas toujours l'envie...

Voilà ce que je te propose :

• Le code du bouton du classeur Lanceur.xlsm

Private Sub CommandButton1_Click()
Application.Workbooks.Open (ThisWorkbook.Path & "\suivi de stage.xlsm")
ThisWorkbook.Close SaveChanges:=False
End Sub

• le code du classeur suivi de stage.xlsm

Private Sub Workbook_Open()
'masquer le menu(en plein ecran)
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = True
'masquer onglet
ActiveWindow.DisplayWorkbookTabs = True
Sheets("bienv").Visible = False
accueilB2.Show
End Sub

À ce sujet, je pense qu'il serait bon que tu rétablisses l'affichage tel qu'il était à la fermeture de ce classeur. Certains utilisateurs peuvent ne pas aimer du tout ce nouvel affichage d'Excel que tu leur imposes.

bonjour,

merci pour cette aide.

Finalement mon probleme est resolu ,

Mon code fonctionnait, mais il fallait juste que je passe la propriété de mon userform en modal=false...

C'etait seulement ca qui mettait le bordel

Merci a toi thautheme