Macro à l'ouverture d'un fichier Résolu/Fermé

Question

Bonjour, 

J'ai un fichier contenant des onglets de Mai à Décembre. Je souhaiterai créer une macro qui, à l'ouverture du fichier, vérifie la date du jour et m'ouvre le fichier avec l'onglet associé.

Exemple : si la date du jour est le 6 juin 2019, quand j'ouvre le fichier excel m'affiche l'onglet Juin.

Est-ce possible ?

Merci d'avance :)

michel_m · Answer

Bonjour

c'est possible!
Option Explicit'---------------------------Private Sub Workbook_Open()Dim mois As Stringmois = Format(Date, "mmmm")Worksheets(mois).ActivateEnd Sub 
 
A placer dans le module "thisworkbook" de l'éditeur VBA (accès à l'éditeur par Alt+F11)

ccm81 · Answer

Bonjour

A mettre dans le module du Workbook
Option Explicit

Const listemois = "Janvier;Février;Mars;Avril;Mai;Juin;Juillet"

Private Sub Workbook_Open()
Dim d As Date, m As Long, nf As String
d = Date
m = Month(d)
nf = Split(listemois, ";")(m - 1)
Sheets(nf).Activate
End Sub
https://www.cjoint.com/c/IErnOT1guXB

CDlmnt

Macro à l'ouverture d'un fichier

2 réponses

Discussions similaires