Sujet Précédent Sujet Suivant

Macro à l'ouverture d'un fichier

Résolu/Fermé
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 17 mai 2019 à 15:17
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 17 mai 2019 à 15:54
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 :)
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 mai 2019 à 15:34
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)
0
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
17 mai 2019 à 15:54
C'est parfait ! Merci Michel !
0
Réponse 2 / 2
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 2 404
Modifié le 17 mai 2019 à 15:41
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
0

Discussions similaires

comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses