Macro à l'ouverture d'un fichier
Résolu
andy2092
Messages postés
78
Date d'inscription
Statut
Membre
Dernière intervention
-
andy2092 Messages postés 78 Date d'inscription Statut Membre Dernière intervention -
andy2092 Messages postés 78 Date d'inscription Statut Membre Dernière intervention -
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 :)
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 :)
2 réponses
-
Bonjour
c'est possible!Option Explicit
'---------------------------
Private Sub Workbook_Open()
Dim mois As String
mois = Format(Date, "mmmm")
Worksheets(mois).Activate
End Sub
A placer dans le module "thisworkbook" de l'éditeur VBA (accès à l'éditeur par Alt+F11) -
Bonjour
A mettre dans le module du WorkbookOption 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
