Discussion :

[jj.bastin]

Bonjour à tous.

Comme stipulé dans l'intitulé je voudrais pouvoir Fermer un fichier excel secondaire lors de la fermeture du fichier excel primaire.

En effet lors de l'ouverture du fichier primaire j'ai placé dans visual basic sous la rubrique thisworkbook la procédure suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
Set c = ThisWorkbook
Application.Workbooks.Open ("F:\Noticeanc\ARTBURET.xls"), , True
c.Activate
Set c = Nothing
End Sub

De ce fait lors de l'ouverture du fichier primaire (qui à besoin des données du deuxième fichier) le fichier secondaire s'ouvre en lecture seule et c'est parfait.

Toutefois pour la suite cela ce complique, car j'ai besoin de vos connaissances afin de trouver la procédure inverse pour la fermeture et l'emplacement pour notifier cette procédure (soit à la suite dans thisworkbook soit dans général ou autre ......

C'est pourquoi si je pouvais obtenir de votre part la solution et encore mieux un exemple en fichier attaché se serai parfait car je ne suis pas un spécialiste de visual basic.

Dans l'attente de votre solution je vous en remercie.


J-J

[Marc-L]

Bonjour,

utiliser l'évènement Workbook_BeforeClose pour fermer le classeur secondaire via la méthode Close …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[jj.bastin]

Marc bonjour,

Un grand merci pour votre participation.

Pour la fermeture du dossier voici ce que j'avais placé dans workbook before close avant de prendre contact avec les utilisateurs de ce forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
 Workbooks("F:\Noticeanc\ARTBURET.xls").Close False
 
End Sub

Pouvez-vous corriger cette procédure car cela ne fonctionne pas.

pour info l'enregistrement du deuxième fichier n'est pas utile car il est je le rappelle ouvert en lecture seule

Merci à toi

J-J

[Marc-L]

Il faut placer entre guillemets le nom du fichier tel que dans le titre de la fenêtre une fois ouvert
(sans le répertoire le précédant) …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks("ARTBURET.xls").Close
End Sub
 
Private Sub Workbook_Open()
    With Application
        .ScreenUpdating = False
        .Workbooks.Open ("F:\Noticeanc\ARTBURET.xls"), , True
        Me.Activate
        .ScreenUpdating = True
    End With
End Sub

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[jj.bastin]

Marc,

merci cela fonctionne nickel.

Désolé pour la réponse tardive mais j'était sur un autre dossier.

Bien à toi et bonne fin de journée