youky(BJ)
XLDnaute Barbatruc
Bonjour à tous
J'ai bien cherché mais pas trouvé la solution et pourtant
je ne suis pas tombé de la dernière pluie en VBA.
Voila je joint 2 fichiers à enregistrer dans le même répertoire.
(C'est impératif pour la bonne marche)
Ouvrir le fichier "essaiBruno.xlsm" et activer les macros.
Le fait d'activer les macros cela ouvre l'autre fichier "superfichier.xlsx" et le réduit dans la barre des taches
Lors de la fermeture d'excel si je click sur la croix rouge il me reste la fenêtre grise.
Mon problème est de tout fermer avec la croix rouge.
Merci à tous
Bruno
le code
J'ai bien cherché mais pas trouvé la solution et pourtant
je ne suis pas tombé de la dernière pluie en VBA.
Voila je joint 2 fichiers à enregistrer dans le même répertoire.
(C'est impératif pour la bonne marche)
Ouvrir le fichier "essaiBruno.xlsm" et activer les macros.
Le fait d'activer les macros cela ouvre l'autre fichier "superfichier.xlsx" et le réduit dans la barre des taches
Lors de la fermeture d'excel si je click sur la croix rouge il me reste la fenêtre grise.
Mon problème est de tout fermer avec la croix rouge.
Merci à tous
Bruno
le code
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Workbooks.Count = 2 Then
Workbooks("superfichier.xlsx").Close False
Application.Quit
End If
End Sub
Private Sub Workbook_Open()
On Error Resume Next 'gestion error
Workbooks("superfichier.xlsx").Activate 'on tente activation
If Err > 0 Then 'si error on ouvre avec open
fichier = ThisWorkbook.Path & "\superfichier.xlsx"
Workbooks.Open fichier: Err.Clear 'ouvre et efface l'error
ActiveWindow.WindowState = xlMinimized 'on le réduit pour pas le voir
End If
ThisWorkbook.Activate 'on active ce fichier
ActiveWindow.WindowState = xlMaximized ' en grand
End Sub