Fermeture automatique d'un fichier

Bonjour le forum,

Je viens auprès de vous pour affiner un code que j'essai de faire. Je vous explique, j'ai un fichier nommé "TABLEAU DE BORD" ou se trouve des boutons afin d'accéder à d'autres fichiers à l'aide de liens, en l'occurrence un fichier nommé (pour le moment) "Observation".

La procédure est la suivante,

j'ouvre "Tableau de bord" click sur le bouton "Observation" qui ouvre le fichier "Observation" et à se moment la, j'aimerai que le fichier "Tableau de bord" se referme.

J'ai créé se code mais ça ne fonctionne pas bien.

Option Explicit
'dans fichier Observation
Private Sub Workbook_Open()
Workbooks("TABLEAU DE BORD").Close False 'sans sauvegarde (True si sauvegarde)

  Worksheets("MC Vierge").Range("C2") = Date
End Sub

que faudrait'il améliorer ??

Merci à vous

pompaero

Bonjour,

Tu devrais plutôt fermer le fichier Tableau de bord en fin de la procédure qui ouvre le fichier Observation.

    ThisWorkbook.Close False

Cordialement.

Bonjour MFerrand

Merci de ton aide.

Concernant la procédure d'ouverture du fichier Observation, cela se fais par lien hypertexte (je crois que je ne peu donc pas faire que tu me dis, non ?)

C'est pour cela que je l'ai fais l'ouverture du fichier Observation.

Cdlt

Tu devrais substituer une procédure normale d'ouverture au lien hypertexte...

Bonjour MFerrand

Excuse de mon silence,

J'ai suivi ton conseil de substituer une procédure normale, cela fonctionne bien.

Merci à toi

A bientôt

pompaero

Merci du retour. Bonne continuation.

Rechercher des sujets similaires à "fermeture automatique fichier"